Коллеги, здравствуйте!
Помогите разобраться.
Пытаюсь сделать макрос для дополнительного фильтра, но он не работает по условиям.
А если это сделать вручную, то все работает.
Делаю вручную, записываю макро рекордером, запускаю макрос и он не работает, точнее работает, но фильтрует не по всем условиям.
В строках A1:H7 условия для фильтра
Со строки H7 данные для фильтрации.
Файл пример во вложении. Код ниже.
Помогите разобраться.
Пытаюсь сделать макрос для дополнительного фильтра, но он не работает по условиям.
А если это сделать вручную, то все работает.
Делаю вручную, записываю макро рекордером, запускаю макрос и он не работает, точнее работает, но фильтрует не по всем условиям.
В строках A1:H7 условия для фильтра
Со строки H7 данные для фильтрации.
Файл пример во вложении. Код ниже.
| Код |
|---|
Sub Макрос3()
On Error Resume Next
ActiveSheet.ShowAllData
Range("A7:H23").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:H4"), Unique:=False
End Sub |
