функция автофильтра, когда текстовое поле является числовым

Question

Я хочу сделать текстовое поле, где вы можете ввести определенный возраст. Тогда я хочу сделать автофильтр для вставленного возраста. Когда я запускаю его, это не похоже на работу. Любые идеи?

Private Sub TextBox1_Change()
    If IsNumeric(TextBox1) Then

        Sheets("data").Select
        ActiveSheet.Range("$A$1:$Z$1000").AutoFilter Field:=28, Criteria1:=Sheets("filter").TextBox1.Value


End If

Answer 1

Я предполагаю, что существует активный автофильтр, который не "совместим" с вашими предположениями.

Добавьте следующий код, чтобы заранее отключить любой автофильтр

Dim wks As Worksheet
Set wks = Sheets("data")
wks.AutoFilterMode = False