Применить фильтр на основе критериев списка в другой электронной таблице - PullRequest
0 голосов
/ 05 марта 2019

Я внимательно читал другие подобные вопросы, но ни один из ответов после некоторой адаптации, похоже, не сработал.

У меня есть два листа, PPTemp и PP.

На PPTemp есть две колонки, A и B. У них есть список месяцев в A и продуктов в B.

Содержимое в A установлено как Raneg ("MonRNG"), B установлено в "CatRNG"

Мне нужно отфильтровать PP на основе следующих критериев:

Столбец B "Активен" (это не проблема)

Столбец N содержит любое из значений в MonthRNG

Столбец Y содержит любое из значений в CatRNG

Столбец AE имеет номер больше 18. (тоже не проблема)

Что у меня пока есть:

Dim MonthRNG, CatRNG As Range

Set MonthRNG = Range("A2:A13")
Set CatRNG = Range("B2:B10")


Set PP = Workbooks.Open("H:\Sales\Price Panels\Price Panels 2019.xlsm", ReadOnly:=True)


PP.Activate
Range("A3").Activate
Dim PPLastrow As Long
PPLastrow = Cells(Rows.Count, "A").End(xlUp).Row


Range("A2:AF" & PPLastrow).AutoFilter Field:=2, Criteria1:="Active"
Range("A2:AF" & PPLastrow).AutoFilter Field:=14, Criteria1:=MonthRNG
Range("A2:AF" & PPLastrow).AutoFilter Field:=25, Criteria1:=CatRNG
Range("A2:AF" & PPLastrow).AutoFilter Field:=31, Criteria1:=">18"

Спасибо!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...