Здравствуйте! Речь о макросе расширенного фильтра. Прошелся поиском - в основном что-то не работает или совет создать макрос. Наполовину удовлетворила статья Николая Павлова (https://www.planetaexcel.ru/techniques/2/197/) о диапазоне условий на том же листе, где и таблица. Поскажите, пожалуйста, макрос - на разных листах.
Юрий, спасибо. А сможете код Павлова "причесать" для моего вопроса (ссылка вверху)? В VBA не разбираюсь, но на первый взгляд коды с Казанским очень разные.
В примере от Николая Павлова создайте лист Результат и при активном листе Лист1 запустите макрос
Код
Sub Макрос1()
With Sheets("Результат")
Range("B7").Copy .Range("K1") 'наименование критерий фильтрации
.Range("K2") = "Лук" 'Лук на листе Результат
Range("A7").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("K1:K2"), CopyToRange:=.Range("A1:I1"), Unique:=False
.Range("K1:K2").Clear
End With
End Sub
На лист Результат будут перенесены строки с критерием фильтрации "Лук". Удачи!