Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Макрос для изменения даты в нескольких сводных таблицах

Автор Tartakovsky, 14.01.2016, 14:14

« назад - далее »

Tartakovsky

Добрый день, форумчане!

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

Попытался написать макрос (пока уровень - "чайник"), с помощью "записать" макрос:
ActiveSheet.PivotTables("СводнаяТаблица3").PivotFields("Дата").ClearAllFilters
    ActiveSheet.PivotTables("СводнаяТаблица3").PivotFields("Дата").PivotFilters. _
        Add2 Type:=xlAfter, Value1:="30.06.2015"

Как вместо Value1:="30.06.2015", подставить ссылку на ячейку, в которой указана нужная дата ?

Serge 007

Здравствуйте
Цитата: Tartakovsky от 14.01.2016, 14:14В Excel, построенные четыре сводных таблицы
И где они? Нам самим рисовать предлагаете?
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

gling

ЦитироватьКак вместо Value1:="30.06.2015", подставить ссылку на ячейку
=Sheets("Лист1").Range("A1")
mail: vovik100661@gmail.com;
ЯД-41001506838083.