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

[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]

Здравствуйте

В Excel, построенные четыре сводных таблицы

И где они? Нам самим рисовать предлагаете?

[gling]

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

=Sheets("Лист1").Range("A1")