VBA Textbox Autofilter скрывает все

Question

Я внедрил поисковое окно, похожее на Google, в свою электронную таблицу, используя текстовое поле activex. Однако вначале оно работало нормально, но теперь оно скрывает весь используемый диапазон, и я вижу только пустые ячейки.Это действительно должно работать на 100%, но я не могу понять, в чем проблема.

Код выглядит следующим образом:

Sub TextBox1_Change()

Application.ScreenUpdating = False
Range("$O$7").AutoFilter Field:=14, Criteria1:=TextBox1

End Sub

Буду признателен за помощь в решении этой проблемы.

Answer 1

Я не вижу ни одного оператора для очистки предыдущих фильтров, например: Worksheets(1).AutoFilterMode = False

Кроме того, перед End Sub должно быть Application.ScreenUpdating = True, чтобы восстановить обновление экрана.

Answer 2

If TextBox1.vlaue = "" Then Application.Autofiltermode= False