satır silme

[rainmaker29]

a sütunundaki tarihler başlangıç ve bitiş tarihi arasında değilse o satırı silmesini istiyorum. forla denedim ama yapamadım.yardım lütfen arkadaşlar

Sub sil()
For i = 4 To Cells(65536, 1).End(3).Row
If Cells(i, 1) >= Range("d2") And Cells(i, 1) <= Range("e2") Then
Else
Rows(i).Delete
End If
Next

End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub kod_sil()
    For i = [a65536].End(3).Row To 4 Step -1
        If CDate(Cells(i, "a")) >= CDate(Range("d2")) And CDate(Cells(i, "a")) <= CDate(Range("e2")) Then
        Rows(i).Delete
        Else
        End If
    Next
End Sub

. . .

 

[rainmaker29]

. . .

Sub kod_sil()
    For i = [a65536].End(3).Row To 4 Step -1
        If CDate(Cells(i, "a")) >= CDate(Range("d2")) And CDate(Cells(i, "a")) <= CDate(Range("e2")) Then
        Rows(i).Delete
        Else
        End If
    Next
End Sub

. . .

hüseyin bey tşkrler yalnız tam tersi oldu söylediğimden sanırım .a sütunundaki tarihler başlangıç ve bitiş tarihi arasında değilse silsin. yani sadece o tarih aralığını süzmek istiyorum

 

[Emir Hüseyin Çoban]

. . .

Sub kod_sil()
    For i = [a65536].End(3).Row To 4 Step -1
        If CDate(Cells(i, "a")) <= CDate(Range("e2")) And CDate(Cells(i, "a")) >= CDate(Range("d2")) Then
        Else
         Rows(i).Delete
        End If
    Next
End Sub

. . .