Belli tarihe göre koşullu listeleme

[hsyn17]

Sayın Üstat;
Örnekte sunduğum gibi, belli tarihe göre "Evet" olamayan satırları başka sayfaya listelemek istiyoruz.

Şimdiden teşekkür ediyorum, Sağ olun

 

[Orion1]

Dosyanız ektedir.

Sub kosul59()
Dim sat As Long, sh As Worksheet
Sheets("Takip").Select
Set sh = Sheets("Liste")
Range("S3:V" & Rows.Count).ClearContents
Application.ScreenUpdating = False
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=2, Criteria1:="<=" & CLng(Range("X1").Value)
sh.Range("A1").AutoFilter field:=5, Criteria1:="<>Evet"
sh.Range("A1").CurrentRegion.Copy Range("S3")
sh.Range("A1").AutoFilter
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com"
End Sub