MACRO to replace pivot row field

[krack1986]

Hi,


I have a report where there are multiple headers and the clients want to see the data in rows as well as page. I could figure the code to use for page "ActiveSheet.PivotTables("PivotTable1").PivotFields("Site").CurrentPage = Range("U2").Value". Can anyone please help me with the code to be used when i want to replace rows? I do not want to call different subs and make a 10 page long code. Any help would be much appreciated.

 

[Hui]

Krack1986


Firstly, Welcome to the Chandoo.org forums.


It appears that you will need to add the new field and then hide the existing field

Doing something like:

[pre]

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Date")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("Name").Orientation = xlHidden

[/pre]

which will replace the Name field with the Date field

 

[krack1986]

Thank you..