range sınıfının autofilter yöntemi başarısız

[YALINIM]

BU ŞEKİLDE BİR KOD HAZIRLADIM FAKAT FİLTRELEME YAPMIYOR.range sınıfının autofilter yöntemi başarısız HATASI VERİYOR

Private Sub TextBox1_Change()
tarih1 = Format(DateValue(TextBox1), "dd.mm.yyyy")
End Sub

Private Sub TextBox2_Change()
tarih2 = Format(DateValue(TextBox2), "dd.mm.yyyy")

End Sub

Private Sub CommandButton1_Click()
Dim tarih1 As Long
Dim tarih2 As Long

Sheets("hizmet").Select
Sheets("hiz").Cells.Clear
FilterByExactDate

Sheets("hizmet").AutoFilter.Range.Copy Sheets("hiz").Range("A1")
Sheets("hiz").Select
End Sub
Sub FilterByExactDate()
Sheets("hizmet").Select
Sheets("hizmet").Range("A1:F1").AutoFilter
Sheets("hizmet").Range("A1:F1").AutoFilter Field:=2, Criteria1:=">01/01/2012", Operator:=xlAnd, Criteria2:="<01/31/2012"
End Sub

 

[hamitcan]

Bu şekilde deneyin.

Range(a1").AutoFilter Field:=2, Criteria1:=">=" & CLng(CDate(Tarih1)), _
    Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(Tarih2))