tarih süzmede kod hatasi

[dennisf06]

merhaba,

D sütununda tarih süzmesi yapmak istiyorum. forum dan buldugum asagidaki kodlari kendime uyarlamak istedim. texbox a tarih yazinca dolu satirlardan sonraki satirlar geliyor. hata da vermiyor. neden süzmüyor bir türlü anlayamadim. tesekkürler.

Private Sub TextBox1_Change()
On Error Resume Next
TARIH = TextBox1.Value = CDate(TextBox1.Value)
Set FC2 = Range("D3:J65000").Find(What:=TARIH)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=CDate(TextBox1.Value)
If TARIH = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

 

[vardar07]

TARIH = TextBox1.Value = CDate(TextBox1.Value) satırını:
TARIH = CDate(TextBox1.Value) olacak şekilde değiştirip denermisiniz.
Yada On Error Resume Next satırını kaldırıp hatanın kaynağını görüp ona göre çözüm bulabilirsiniz.

 

[askm]

Kodları aşağıdaki gibi revize edin.

Private Sub TextBox1_Change()
On Error Resume Next
TARIH = Format(TextBox1.Value, "DD.MM.YYYY")
Set FC2 = Range("D3:J65000").Find(What:=TARIH)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:=Format(TextBox1.Value, "DD.MM.YYYY")
If TARIH = "" Then
Selection.AutoFilter Field:=4
End If
End Sub

 

[dennisf06]

merhaba,

vardar07 bey söylediginiz degisiklikten sonra ayni hatayi verdi. askm bey in belirtmis oldugu degisikliklerden sonra kod sorunsuz calisti. emekleriniz icin sizlere cok tesekkür ederim.