genel bir listeden yazdığım tarihe göre diğer sayfalara kayıt atma

[ozkbilgi]

arkadaşlar bir ödeme planı hazırlamak istiyorum. yapmak istediğim şu; ödeme tarihine göre açmış olduğum sayfaların isimlerine göre genel listeden yazdığım tarih kısmını kontrol edip diğer sayfaların hangisinin adına geliyorsa oraya gidip sırasıyla kayıtları atmasını istiyorum. yanlız kayıtların tamamını atması lazım yani 5 adet sütun varsa o satırdaki herşeyi aktarması gerekiyor. ekli istede bir örnek yaptım lütfen yardım;
şimdiden yardım edecek veya edmeyecek arkadaşlara teşekkürler;

 

[Korhan Ayhan]

Selamlar,

Ekte dosyanızda gerekli düzenlemeyi yaptım incelermisiniz.

 

[hamitcan]

Bende bir örnek yaptım. Umarım işinize yarar.

Sub AKTAR()
For a = 1 To Sheets.Count
sh = Sheets(a).Name
sonsh = Application.CountA(Sheets(sh).Columns(1)) + 1
For k = 1 To 5
For i = 1 To Application.CountA(Columns(1)) + 1
If Format(Cells(i, 1), "dd.mm.yyyy") = sh Then
Sheets(a).Cells(sonsh, k) = Cells(i, k)
End If
Next
Next
Next
End Sub