Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос, позволяющий фильтроваться в сводке по условию из списка
 
Привет!

Есть макрос 1, который фильтруется в сводной таблице "Продажи" по условию ячейки В2 на листе "расчет" (код ниже). Выбрал нужный город - подтянулась история продаж. Красота - не то слово.

Нюанс в том, что макрос фильтруется только по названию городу. Но по мимо прочего, у каждого города есть свой код склада. И помимо фильтрации по городу, нужна фильтрация в сводной таблице по нужному коду склада (лист матрица). Для примера город Москва, в сводной таблице история продаж по кодам склада № 7000, № 8001, № 8002, но фильтрация нужна не по всем складам (как это реализовано сейчас), а только по тем, которые указаны в отдельной таблице (лист матрица) - № 8001, № 8002.

Резюмирую: выбрал город, подтянулась история продаж по необходимым тебе кодам складов.
Код
Sub Макрос1()
Sheets("свод").PivotTables("Продажи").PivotFields("Город").ClearAllFilters
Sheets("свод").PivotTables("Продажи").PivotFields("Город").CurrentPage = Sheets("расчет").Range("B2").Value
End Sub
 
Salva ну раз Вы за такое взялись, то пропишите в источнике сводной доп. столбец - в него формулу с Вашими условиями, и сводная уже будет просто обновляться по фильтру этого доп. столбца. А так же рекомендуется источник сделать умной таблицей для автропротяжки этого фильтра. Вторую строку в источнике лучше зарезервировать и установить 1, чтоб срез или фильтр не слетали.
Изменено: skais675 - 3 Апр 2020 19:04:48
 
skais675, , нюанс в том, что в боевых условиях сводная таблица будет SQL и вставить столбец с формулами не получится.
Но Ваша мысль мне понравилась=)
Страницы: 1
Читают тему (гостей: 1)
Наверх