bugüngü tarihen eski olan sütünlar silinsin

[fireman64]

Selamlar.
Örnekte verdiğim dosyada bugünün tarihinden eski tarihe sahip satırları silecek makroya lazım.

 

[Orion1]

Buyurun .,

Sub tarihsil()
Dim sat As Long, i As Long
sat = Cells(Rows.Count, "D").End(xlUp).Row
If sat < 3 Then Exit Sub
For i = sat To 3 Step -1
    If Cells(i, "D").Value < Cells(1, "B").Value Then Rows(i).Delete xlUp
Next
MsgBox "Tarihler kontrol edildi ve satırlar silindi" _
& vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

 

[fireman64]

Sayın Evren bey çok teşekkürler ışık hızında cevabınız için