Veri süz ile bugünden sonraki tarihli satırları silme

[undertow]

Basit birşey gibi gözüküyor ama uzun zamandır vba ile uğraşmadığım için aklıma bir şey gelmedi.
Makro ile kaydet le yaptığım zaman bu işlemi sadece seçtiğim kritere ve satır sayısına göre yapıyor.Ben her seferinde farklı satır değişkeni ile işlem yapmak istiyorum.Ve bugünden sonraki tarihli satırlar silinmeli istediğim bu sadece.Ufak bir ipucu verebilirseniz kendim yapabilirim.

 

[Murat OSMA]

Deneyiniz;

[SIZE="2"][FONT="Trebuchet MS"]Sub Emre()
    Dim i As Integer
    For i = Range("A65536").End(3).Row To 1 Step -1
        If CDate(Cells(i, 1)) > VBA.Date Then
            Rows(i).Delete
        End If
    Next i: i = Empty
End Sub[/FONT][/SIZE]

 

[undertow]

eyvallah sağolasın ben de şu kodla yapmayı becerdim.

Sub verisuz()
Columns("A:A").Select
Selection.AutoFilter
For i = 2 To 65000
If Cells(i, 2) > Date Then
Cells(i, 2).Select
Selection.ClearContents
End If
Next i

End Sub

 

[Murat OSMA]

Gerçekten mi ? :dusun:

Helâl olsun !

 

[undertow]

olmuyormuş öyle senin kodla da denedim hata veriyor.neyse manuel yapmaya devam

 

[Murat OSMA]

Benim kodlarım hata vermez, kullanabilirsiniz...

 

[undertow]

Benim kodlarım hata vermez, kullanabilirsiniz...

tamam şimdi oldu modules üzerinde kodlarını kullanmıştım debug hatası alıyordum.sayfa1 üzerinde kullanınca işe yaradı.Neyse yavaş yavaş çözecem bunları aradan uzun zaman geçti makro programlama dersi alalı

 

[Murat OSMA]

Modülde de Sayfada da kullanabilirsiniz. Hiç fark etmez...
Siz bir şeyleri yanlış yapıyorsunuz ama anlamadım... :dusun: