Texbox otomatik olarak kapansın..!

[sensizsoldum]

Merhaba,
Herkese hayırlı cumalar.
Aşağıdaki kodda texbox veri girildiğinde süzme aktif oluyor. Veriler dilindiğinde ise aktif olarak kalıyor. Tekxboxta veri yoksa ya da veri girilip geri silinmişe süzme de otomatik olarak kapanabilir mi?

Private Sub TextBox1_Change()
    ActiveSheet.ListObjects("Tablo_AS400_").Range.AutoFilter Field:=3, Criteria1 _
        :="*" & TextBox1.Value & "*"
End Sub

 

[dEdE]

Merhaba,
Koddaki End Sub satırından önce aşağıdaki satırı ekleyip dener misiniz?

 If TextBox1 = "" Then Selection.AutoFilter Field:=3

 

[sensizsoldum]

Merhaba,
Selection.AutoFilter Field:=3 Bu kısım hata veriyor.