tarih süzmesinde kod düzeltmesi

[dennisf06]

merhaba,

asagidaki kodlarla D sütununda tarih süzmesi yapiyorum. yalniz süzme islemini birinci satirdan itibaren yapiyor. süzmelerin üzerindeki aciklamalari görebilmem icin 6. veya 7. satirdan sonra süzmesi icin ne yapmam gerekiyor. tesekkürler.


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

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir.
Kırmızı bölümü; 1. satırdan filtreyi kaldırdktan sonra silin.

Private Sub TextBox1_Change()
On Error Resume Next
[COLOR="Red"]Range("A1:J1").AutoFilter Field:=4[/COLOR]
[COLOR="Blue"]a = Cells(Rows.Count, "J").End(3).Row[/COLOR]
TARYH = Format(TextBox1.Value, "DD.MM.YYYY")
Set FC2 =[COLOR="Blue"] Range("D6:J" & a)[/COLOR].Find(What:=TARYH)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
[COLOR="Blue"] Range("D6:J" & a)[/COLOR].AutoFilter Field:=4, Criteria1:=Format(TextBox1.Value, "DD.MM.YYYY")
If TARYH = "" Then
 [COLOR="Blue"]Range("D6:J" & a)[/COLOR].AutoFilter Field:=4
End If
End Sub