Автоматическая фильтрация таблицы с помощью ComboBox
У меня есть три ComboBoxes, которые заполнены числами, и я пытаюсь отфильтровать таблицу при вызове следующего макроса. Проблема в том, что различные тесты он фильтрует правильно, а затем возвращает пустую таблицу со всеми пустыми строками. ComboBoxes загружены правильно, в таблице есть строки, соответствующие критериям в тесте.
Sub AutoFilter ()
Worksheets("Sheet1").ComboBox1.Value If Worksheets("Sheet1").ComboBox1.Value <> "" Then ActiveSheet.ListObjects("Table").Range.AutoFilter Field:=1, Criteria1:=number1 If Worksheets("Sheet1").ComboBox2.Value <> "" Then ActiveSheet.ListObjects("Table").Range.AutoFilter Field:=2, Criteria1:=number2 If Worksheets("Sheet1").ComboBox3.Value <> "" Then ActiveSheet.ListObjects("Table").Range.AutoFilter Field:=3, Criteria1:=number3
Что может быть неправильным?