Печать страницы - Excel VBA Макросы. Как сделать фильтрацию сразу в двух сводных таблицах по значению, указанному в заданной ячейке?

Название: Excel VBA Макросы. Как сделать фильтрацию сразу в двух сводных таблицах по значению, указанному в заданной ячейке?
Отправлено: Посетитель от 11 марта 2021, 20:58

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

Название: Re: Excel VBA Макросы. Как сделать фильтрацию сразу в двух сводных таблицах по значению, указанному в заданной ячейке?
Отправлено: Посетитель от 15 марта 2021, 05:14

Я нашел решение.

Sub Выбрать_филиал()
ActiveSheet.PivotTables("PivotTableRevenue").PivotFields("Филиал").ClearAllFilters
ActiveSheet.PivotTables("PivotTableRevenue").PivotFields("Филиал").CurrentPage = Range("B4").Value
ActiveSheet.PivotTables("PivotTableCoS").PivotFields("Филиал").ClearAllFilters
ActiveSheet.PivotTables("PivotTableCoS").PivotFields("Филиал").CurrentPage = Range("B4").Value
End Sub

PivotTableRevenue и PivotTableCos - это названия двух сводных таблиц. B4 - ячейка, в которой находится нужное для фильтрации значение.

Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель от 11 марта 2021, 20:58