1. sayfadaki verileri tarih sırasına göre süzme

[akadirozturk]

arkadaşlar 1 sayfaya tarih sırası önemli olmaksızın yapmış olduğum kayıtları ilgili aynı dosya içersindeki ay ay ayrılmış olan sheetlere o aya ilişkin verileri sıralı olarak aktarmak istiyorum. bu arada yapılan kayıtlar aynı tarihe aitte olabilir fakat bunların birbirinede karıştırmadan ilgili aylarda nasıl süze bilirim . yardımcı olursanız çok sevinirim. sorunumu incelemeniz için ekli dosyayıda gönderiyorum. bu konuda bana yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim.






Edit: Sorularınızı sadece açıklayıcı bir biçimde sorunuz. Acil,yardım kelimeleri kullanmayınız.

 

[zafer]

Merhaba

Aşağıdaki dosyayı inceleyiniz

 

[akadirozturk]

Sn. zafer elinize ve bilginize sağlık fakat aktar dediğimde girilen verileri sürekli tekrarlıyor. bunu engellemenin yani daha önce aktarılmış verilerin tekrar aktarılmamsı için yapabilecğimiz bi yol varmıdır.

 

[Korhan Ayhan]

Selamlar,

Sn. Zafer beyin size önermiş olduğu kodu aşağıdaki gibi revize ederseniz butona ikinci kez bastığınızda daha önce aktarılmış olan verileri tekrar aktarmaz.

Sub AKTAR()
Set S1 = Sheets("ödemeler")
SON = S1.[B65536].End(3).Row
For X = 8 To SON
SAYFA = S1.Cells(X, 5)
SATIR = Sheets(SAYFA).Cells(65536, 2).End(xlUp).Row + 1
For Y = 2 To 4
If S1.Cells(X, 6) <> "AKTARILDI" Then
Sheets(SAYFA).Select
Cells(SATIR, Y) = S1.Cells(X, Y)
End If
Next
S1.Cells(X, 6) = "AKTARILDI"
Next
End Sub