I have written code which updates several pivot table page fields using a
list. Is there a way to also update a pivot table field when it's used in a
pivot table as a column/row? I tried the code below, however, I get an error
stating that the 'Object doesn't support this property or method'. The only
other option I could think of was to create a second field in the data sheet
which would contain the same data then use this new field as a page field in
the pivot table but I would like to know if there is a way to do this using
VBA.

Sheets("Pivot Tables").Select

ActiveSheet.PivotTables("PivotTable2").PivotItems( "Product
Line").CurrentPage = Sheets("Sales").Range("E3").Value
ActiveSheet.PivotTables("PivotTable2").PivotItems( "Region").CurrentPage =
Sheets("Sales").Range("B3").Value

--
RDiva

You cannot use CurrentPage for a row/column field. You have to loop
through the PivotItems collection of the PivotField in question and set
the Visible property for each as required.


RDiva;696813 Wrote:

I have written code which updates several pivot table page fields using
a
list. Is there a way to also update a pivot table field when it's used
in a
pivot table as a column/row? I tried the code below, however, I get an
error
stating that the 'Object doesn't support this property or method'. The
only
other option I could think of was to create a second field in the data
sheet
which would contain the same data then use this new field as a page
field in
the pivot table but I would like to know if there is a way to do this
using
VBA.

Sheets("Pivot Tables").Select

ActiveSheet.PivotTables("PivotTable2").PivotItems( "Product
Line").CurrentPage = Sheets("Sales").Range("E3").Value
ActiveSheet.PivotTables("PivotTable2").PivotItems( "Region").CurrentPage
=
Sheets("Sales").Range("B3").Value

--
RDiva


--
aflatoon

Regards,
A.
------------------------------------------------------------------------
aflatoon's Profile: 1501
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=194839

http://www.thecodecage.com/forumz

Excel 2007 PivotTable
Update multiple PTs, multiple sheets.
Row/Column/Page Fields.
With Multiple Items in Page Field(s)
Matches selections of one chosen PT to all.
http://c0718892.cdn.cloudfiles.racks.../04_12_10.xlsm
Pdf preview (2 pgs):
http://www.mediafire.com/file/gmdgdnizmoo/04_12_10.pdf