Код VBA, необходимый для изменения фильтров на всех листах в книге - PullRequest
0 голосов
/ 04 марта 2020

Как я могу отфильтровать все рабочие листы в 1 рабочей книге, выбрав значение в раскрывающемся списке на главной вкладке?

У меня есть раскрывающийся список на вкладке 1 (mastertab). Когда я выбираю имя в этом раскрывающемся списке, я хочу, чтобы все листы фильтровали указанный столбец c только по этому имени. Изображения ниже:

Имя рабочей книги - "РУКОВОДСТВА ЗАКАЗА"

Каждая строка - это другое имя распространителя, у меня всего около 80 строк. Каждая строка / распределитель имеет рабочий лист (в пределах одной рабочей книги) с одинаковым макетом. В раскрывающемся списке оранжевого цвета, когда я выбираю «ПИЦЦА», я хочу, чтобы на каждом листе был отфильтрован столбец «Е», чтобы отображались только элементы «ПИЦЦА».

Таблица основных вкладок и выбор раскрывающегося списка

enter image description here

Это то, что я пробовал до сих пор. Хотя все мои листы - это таблицы, может, из-за Рэнджеса это не сработает?

Sub filterSheets()
Application.ScreenUpdating = False
Dim LastRow As Long
Dim ws As Worksheet
For Each ws In Sheets
LastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
ws.Range("C1:C" & LastRow).AutoFilter Field:=1, Criteria1:="ABC"
Next ws
Application.ScreenUpdating = True
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...