Hücre içerisinde tarih olan satırı silmek

[1903emre34@gmail.com]

Merhaba arkadaşlar,

D1 hücresinde başlayıp, D300 satıra kadar belirtilen aralığında 01.01.2016 tarih varsa o satırı silecek şekilde nasıl kod oluşturabiliriz.

 

[askm]

Aşağıdaki kodu deneyin.

Sub Tarih_Sil()
    For X = 300 To 1 Step -1
    If Format(Cells(X, 4), "dd.mm.yyyy") = "01.01.2016" Then Rows(X).Delete
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub