bir sayfadaki bilgiyi sıralı aktarma

[bambeyyt]

listeye sürekli bilgi girmem gerekiyor. Ben bilgileri girdikçe o bilgilerin, ilgilinin sayfasına da otomatik olarak bir liste şeklinde gitmesini istiyorum.
lütfen yardımcı olun..

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
On Error GoTo son
If Target.Value = "" Then Exit Sub
sat = Sheets(Target.Offset(0, -1).Value).Cells(65536, "B").End(xlUp).Row + 1
Sheets(Target.Offset(0, -1).Value).Cells(sat, "A").Value = Target.Offset(0, -2).Value
Sheets(Target.Offset(0, -1).Value).Cells(sat, "B").Value = Target.Offset(0, -1).Value
Sheets(Target.Offset(0, -1).Value).Cells(sat, "C").Value = Target.Offset(0, 0).Value
son:
End Sub

 

[bambeyyt]

teşekkür

evren hocam çok teşekkür ederim yardımın için.
formulü nasıl kullandınız.
çok yeniyim kusura bakmayın

 

[Orion1]

evren hocam çok teşekkür ederim yardımın için.
formulü nasıl kullandınız.
çok yeniyim kusura bakmayın

Mesajımda verdiğim kodları çalışma sayfasının kod bölümüne yazınız.

 

[bambeyyt]

bağışla üstad

selamlar evren bey
yaw beni mazur görün, üst düzey birisiniz bu exceldeanlaşılan
çok baktım göremedim
bu kod bölümü nerde
ayrıca konuyla ilgili sizi rahatsız etmeden okuyarak bilgilenebileceğim bir site,bilgi vs tavsiye edermisiniz....

 

[bambeyyt]

ayrıca

bana bir mail adresinizi verebilir misiniz...
bu işi öğrenmeyi çok istiyorum

 

[Orion1]

selamlar evren bey
yaw beni mazur görün, üst düzey birisiniz bu exceldeanlaşılan
çok baktım göremedim
bu kod bölümü nerde
ayrıca konuyla ilgili sizi rahatsız etmeden okuyarak bilgilenebileceğim bir site,bilgi vs tavsiye edermisiniz....

Sayfa sekmesine sağ yıklayın.
Sonra Kodu görüntüleye tıklayın.
Açılan vb edit'e Kodları yapıştırın.
Sonra vbe edit'i kapatın işlem tamam.
2nci sorunuza gelince sitede kitaplar satılmaktadır.
Başlangıç düzeyinde olan kitaplardan bir tane alırsanız size faydası olacaktır diye düşünüyorum.Ve tabiiki bu forumuda takip etmeniz gerekiyor.

 

[bambeyyt]

selamlar

evren üstad merb...
bu kodlamayı ben nasıl
yazabilirim
bunun
mantığı
nedir
elimde farklı bir çalışma sayfası var,sabahtan beri inceliyorum
ama nafile olmadı, yapamadım. değişkenlerin sayısı çok daha fazla.
yardım ??????????

 

[Orion1]

7nci mesajdaki yönergeleri uygulayınız.

 

[bambeyyt]

acemelik kötü

acemilik çok kötü üstad olmuyor,
yani herhangi çalışma sayfası için aynı şeyi mi
yapmalıyım

 

[Orion1]

acemilik çok kötü üstad olmuyor,
yani herhangi çalışma sayfası için aynı şeyi mi
yapmalıyım

Evet ayni şeyi yapmalısınız.
Veya dosyayı yollayın ben yapayım.

 

[bambeyyt]

kusurlarıma bakmayın

dosyayı ekte gönderiyorum.
size zahmet olacak
değişkenlerin ismini değiştirdiğimde problem olmaz herhalde.
istatistik sayfasından a, b,c, sayfalarına bilgi aktarmak istiyorum.
saygılar sunarım...

 

[Orion1]

İstatistik sayfasında C ve D sütunlarında formüller var.
Dolayısı ile zannedersem bu sütunlara veri girilmeyecek.
Peki siz hangi sütunlara veri gireceksiniz ki os sütuna veri girilince sayfanın change olayı tetiklensin ve ilgili sayfaya veri transfer edilsin?
Yani dosyayı yollamışsınız ama hiçbir açıklama yapmamaışsınız.Biz nereden bilecez ne yapılacağını.Lütfen sorunuzu daha net ve açık sorunuz.Biz soruyu yapmaktan dağa çok inanın ki ne yapılması gerektiği konusunda uğraşıyoruz.

 

[bambeyyt]

haklısınız

selamlar
sağolun
açıklamalarımı istatistik sayfasında verdim.

 

[bambeyyt]

veriler için

veriler başka sayfalardan geliyor
örneğin giriş sayfasında 1. gün 2. gün bölümüne giriş yapılacak

 

[Orion1]

Benim demek istediğim şu:Eğer ben istatistik sayfasına veri girdiğim anda ilgili syafaya yazsın derseniz.Bunun için A B veya C sütununa bilgi girmeniz gerekir.
Ama sizin buradki verilerinizi hepsi formül ile alınmış.Yani siz buralara veri girmiyorsunuz.Verileri formül ile alıyorsunuz.Bunu şunun için soruyorum.İlk yolladığım örnek dosyada böyle bir işlem yapmıştık.Bu dosyadada siz dağa önceden yapmış olduğum örnek dosyadaki gibi bir şey istiyorsunuz diye tahmin ediyorum.Ama bu dosyada istatistik sayfasına elele veri girmeyip formüllerle veri aldığınız için İstatistik sayfasına bir buton koyarak verileri ilgili sayfalara baştan sona döngüye girerek atalım.

 

[bambeyyt]

alakanız için

sonsuz teşekkürler eder çalışmalarınızda başarılar dilerim...
sağolun

 

[Orion1]

Ekli dosyayı inceleyiniz.
Butona basınız.

Sub aktar()
Sheets("İSTATİSK").Select
Application.ScreenUpdating = False
For i = 3 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "C").Value <> "" And Cells(i, "C").Value <> 0 Then
        On Error Resume Next
        sat = Sheets(Cells(i, "B").Value).Cells(65536, "A").End(xlUp).Row + 1
        If sat > 65534 Then
            MsgBox "[ " & Cells(i, "B").Value & " ] Adlı sayfada satır doldu.!" & vbLf _
            & "Bu sayfaya Kayıt yapılmadı..!!", vbCritical, "DİKKAT"
            GoTo hata
        End If
            Sheets(Cells(i, "B").Value).Cells(sat, "A").Value = Cells(i, "A").Value
            Sheets(Cells(i, "B").Value).Cells(sat, "B").Value = Cells(i, "C").Value
    End If
hata:
Next i
MsgBox "Aktarma işlemi ilgili syafalara başarı ile gerçekleşti..!!", vbOKOnly + vbInformation, "AKTARMA"
Application.ScreenUpdating = True
End Sub

 

[bambeyyt]

çok tesekkür

o günden sonra
bakmamışkım buraya
çok
teşekkürler ederim
sağolun
butona tıkalamak istedim ama
nerde
göremedim

 

[Orion1]

o günden sonra
bakmamışkım buraya
çok
teşekkürler ederim
sağolun
butona tıkalamak istedim ama
nerde
göremedim

Rica ederim.