Макросом поставить фильтр "Месяц Год" на сводной таблице

Пользователь

Сообщений: 256 Регистрация: 01.01.1970

10.07.2019 15:14:50

Добрый день всем!
Подскажите какой макрос выставляет в сводной таблице фильтр? Нужно что бы если в Сводной таблице 1 я выставил фильтр "Январь 2019", то в Сводной таблице 2 автоматически фильтр стал "Февраль 2019", то есть на один больше. Пробовал макрорекордером посмотреть, но он после записи не срабатывает, пишет Application-defined or object-defined error.

Прикрепленные файлы

Пример.xlsm (26.36 КБ)

Виталий Криворучко Пользователь Сообщений: 256 Регистрация: 01.01.1970	#2 11.07.2019 09:59:59 А-у!

PooHkrd Пользователь Сообщений: 6602 Регистрация: 22.02.2017 Excel x64 О365 / 2016 / Online / Power BI	#3 11.07.2019 10:26:31 Вам принципиально это делать макросом? Вот горшок пустой, он предмет простой...

Виталий Криворучко

Пользователь

Сообщений: 256 Регистрация: 01.01.1970

11.07.2019 10:34:33

Даже не знаю что сказать. Эти сводные передам человеку, который очень плохо понимает в Ексель. Если ему показать что нажимаешь на "Эту кнопочку" то он сделает. Вот и хочу привязать сводные к одному месяцу, а в остальных что бы автоматически все менялось.
А какие есть варианты, если не макросом?

PooHkrd

Пользователь

Сообщений: 6602 Регистрация: 22.02.2017

Excel x64 О365 / 2016 / Online / Power BI

11.07.2019 10:41:18

Вариант на PowerPivot.
Сделан срез общий для двух сводных, и прописаны меры, которые сдвигают период выбранный на срезе на 1 месяц вперед.
Можно смотреть как вы показали в примере в двух сводных, а можно и сразу в одной вариант тоже в примере показал. Думаю что тыкать в срезе на кнопки человек будет в состоянии.

Прикрепленные файлы

Пример.xlsx (185.02 КБ)

Вот горшок пустой, он предмет простой...

БМВ

Модератор

Сообщений: 23337 Регистрация: 28.12.2016

Excel 2013, 2016

11.07.2019 10:55:57

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
    Application.EnableEvents = False
    ActiveSheet.PivotTables("Сводная таблица14").PivotFields("Дата").CurrentPage = Format(DateSerial(Year([b1]), Month([b1]) + 1, Day([b1])), "[$-419]MMMM YYYY")
    Application.EnableEvents = True
End If
End Sub

но есть проблема с последним месяцем, для него следующего нет

По вопросам из тем форума, личку не читаю.

Виталий Криворучко Пользователь Сообщений: 256 Регистрация: 01.01.1970	#7 11.07.2019 11:13:29 Спасибо, сейчас буду разбираться. Мне главное принцип понять, а с последним месяцем я разберусь. И за срез тоже спасибо, хорошая идея.