Добрый день! Подскажите пожалуйста, хочу в один столбец поместить несколько фильтров в зависимости от отмеченных чекбоксов. Пробовала несколькими способами. При первом способе при вызове формы и проставлении галочки на каком либо одном чекбоксе идет фильтр по одному (последнему) критерию. (пример привела с частью чекбоксов, так как код уже стерла и нет смысла прописывать прям все):
Код
If CheckBox1.Value = True Then
Worksheets("База общая").Range("A1:FA3863").AutoFilter Field:=9, Criteria1:="КИБ"
ElseIf CheckBox2.Value = True Then
Worksheets("База общая").Range("A1:FA3863").AutoFilter Field:=9, Criteria1:="РБ"
ElseIf CheckBox3.Value = True Then
Worksheets("База общая").Range("A1:FA3863").AutoFilter Field:=9, Criteria1:="ПРПА"
ElseIf CheckBox4.Value = True Then
Worksheets("База общая").Range("A1:FA3863").AutoFilter Field:=9, Criteria1:="Сеть"
ElseIf CheckBox5.Value = True Then
Worksheets("База общая").Range("A1:FA3863").AutoFilter Field:=9, Criteria1:="Руководство"
End if
На просторах форума (конкретно здесь https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=53961) нашла похожую проблему, но не поняла какое итоговое рабочее решение. Не совсем то, так как мои чекбоксы для фильтра не помещены в отдельный фрейм. Попыталась преобразовать под себя, но тоже не вышло, выдает ошибку:
Код
With Me
For Each Control In .MultiPage2.Page2.Controls
If TypeOf Control Is MSForms.CheckBox And Control.Value = True Then: _
Worksheets("База общая").Range("A1:FA3863").AutoFilter Field:=9, Criteria1:=i
Next
End With
Не могу понять, как сделать так, чтобы я мог отметить несколько чекбоксов и фильтр происходил по разным критериям. Прошу помощи в решении этой задачи. Привожу пример формы, на форме есть Frame 3, на нем MultiPage2, и сами чекбоксы на Page2.