Bugünkü tarihe kadar olan satırları silmek

[hakki83]

Selamlar

Ekteki dosyada B sütununda tarihler, diğer sütunlarda da veriler vardır. B sütunundaki tarihlerden bugünkü tarihe kadar olan tüm satırları (bugünün tarihi hariç) makro ile sildirebilir miyiz?
Not: Tarihler değişkendir.
Teşekkürler.
Listede bugünün tarihi yok ise, bugünden sonraki en yakın ilk tarihe kadar silinebilir.

 

[y.selim]

Merhaba, bu şekilde dener misiniz ?

Sub satirsil()
For i = Cells(Rows.Count, 2).End(3).Row To 2 Step -1
    If Cells(i, 2) <> Date Then
    Rows(i).Delete
    End If
Next i
End Sub

 

[hakki83]

Merhaba, bu şekilde dener misiniz ?

Sub satirsil()
For i = Cells(Rows.Count, 2).End(3).Row To 2 Step -1
    If Cells(i, 2) <> Date Then
    Rows(i).Delete
    End If
Next i
End Sub

Çok teşekkür ederim. Emeğinize sağlık. Sadece <> karakterlerinden > karakterini sildim, düzeldi.