Страницы: 1
RSS
Макрос расширенного фильтра. Диапазон условий и таблица - на разных листах
 
Здравствуйте!
Речь о макросе расширенного фильтра. Прошелся поиском - в основном что-то не работает или совет создать макрос. Наполовину удовлетворила статья Николая Павлова (https://www.planetaexcel.ru/techniques/2/197/)  о диапазоне условий на том же листе, где и таблица. Поскажите, пожалуйста, макрос - на разных листах.
Изменено: Александр Чекирда - 13.03.2020 02:19:24
 
Цитата
Диапазон условий и таблица - на разных листах
Посмотрите https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=73810
Комментарии Казанского
 
Юрий, спасибо. А сможете код Павлова "причесать" для моего вопроса (ссылка вверху)? В 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

На лист Результат будут перенесены строки с критерием фильтрации "Лук".
Удачи!
Страницы: 1
Наверх