text box üzerinden filtreleme sonrası filtrelemeyi deaktif yapmak

[EMREKAYA]

Arkadaşlar merhaba,


Ekte xlsm dosyasında 2 kolona göre autofilter yapıyorum yalnız, filtrelemeyi yaptıktan sonra textbox ın içini temizlesem de, o kolonda filtreleme etkin kalıyor, buda en son veri satırından sonra gelen baya bir satırı otomatik olarak gizliyor. Herseferinde data dan unfilter demem gerekiyor manual olarak.

Textbox veri yokken veya arama backspace le silindiğinde orası da otomatik unfilter olsa, bunun için kodu nasıl değiştirmem gerekli şimdiden teşekkür ederim.

Saygılar,
Emre Kaya

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox1_Change()
Sheets("crm").AutoFilterMode = False
If TextBox1.Value <> "" Then
    Range("A2:H304").AutoFilter 2, TextBox1.Text & "*"
End If
End Sub


Private Sub TextBox2_Change()
Sheets("crm").AutoFilterMode = False
If TextBox2.Value <> "" Then
    Range("A2:H304").AutoFilter 8, TextBox2.Text & "*"
End If
End Sub

 

[EMREKAYA]

Orion1 hızlı ve sorunsuz cevabınız için çok teşekkür ederim.