Textboxdaki tarihe göre işlem yapmak

[zulfuernek]

Textbox 1 e tarih yazacağız ve butona basınca aktif sayfadaki E sutununda bu tarihler dışında herhangi bir veri varsa o satırları silsin istiyorum nasıl bir kod yazılabilir.

Saygılarımla

 

[Orion1]

Userforma bir commandbutton ekleyin,ve aşağıdaki kodları yapıştırın.
Useformu açtığınızda bu commandbutonunu çalıştırın işlem tamamdır.

Private Sub CommandButton1_Click()
Dim tar As Date, i As Long, sonsat As Long
sonsat = Cells(65536, "E").End(xlUp).Row
tar = TextBox1.Value
For i = sonsat To 1 Step -1
    If Cells(i, "E").Value <> tar Then
        Range("E" & i).EntireRow.Delete xlUp
    End If
Next i
MsgBox "işlem tamamlandı" & vbLf & "evrengizlen@hotmail.com"

End Sub