Pivot Table Help Please

[markdenovan]

We have an Excel sheet with a number of different pivot tables on it.

They look at the same data, and there are fields Month & Date

We have simple macro where you set the Month on the first pivot table and it copies the value to the other pivot tables.

ActiveSheet.PivotTables("PivotTable2").PivotFields("Month").CurrentPage = Cells(2, 2).Text

This works fine in Office 2000, but we have just installed Office 2007 and it won't work anymore?

Wierldy, it works on a couple by changing the end to .Value but on one field it jusy refuses to work.

I have checked and the value is def available.

Any ideas?

Many thanks,

Mark

 

[Andrew Poulsom]

Does this work?

ActiveSheet.PivotTables("PivotTable2").PivotFields("Month").CurrentPage = ActiveSheet.PivotTables("PivotTable1").PivotFields("Month").CurrentPage

or:

Dim x as String
x = ActiveSheet.PivotTables("PivotTable1").PivotFields("Month").CurrentPage
ActiveSheet.PivotTables("PivotTable2").PivotFields("Month").CurrentPage = x

 

[markdenovan]

Hi Andrew,

Many thanks for trying, but sadly no, the vba still falls over.

It is so strange as it works in Excel 2000 fine.

Any other ideas?

Many thanks,

Mark

 

[RoryA]

Is the field it fails on a date field?