iki tarih arasını süzme

[nukhet1616]

ekteki dosyamda iki tarih arasını yazılan tarihler de dahil olacak şekilde süzecek bir makroya ihtiyacım var. kendim uğraşmama rağmen yapamadım.

ilgileneceklere şimdiden teşekkürler

Ekli dosyayı görüntüle SATIŞLAR.xls

 

[nukhet1616]

lütfen biri ilgilensin neden süzmüyor bu?

 

[Orion1]

lütfen biri ilgilensin neden süzmüyor bu?

Süzer süzer niye süzmesin ki.
Dosyanız ekte.

Sub Makro1()
Range("U1:V1").Value = Range("C5").Value
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
If Not IsDate(Sheets("GÜNLÜK").TextBox19.Text) Then
    MsgBox "İlk tarih yanlış girilmiş.."
    Exit Sub
End If
If Not IsDate(Sheets("GÜNLÜK").TextBox2.Text) Then
    MsgBox "Son tarih yanlış girilmiş."
    Exit Sub
End If
Range("U2").Value = ">=" & CLng(CDate(Sheets("GÜNLÜK").TextBox19.Text))
Range("V2").Value = "<=" & CLng(CDate(Sheets("GÜNLÜK").TextBox2.Text))
Range("C5:Q" & Cells(65536, "C").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("U1:V2"), Unique:=False
End Sub

 

[nukhet1616]

Teşekkürler hocam, elinize sağlık.

 

[Orion1]

Teşekkürler hocam, elinize sağlık.

Rica ederim.
İyi çalışmalar.