Pivot Table PageField

[Todd Huttenstine]

Hey guys

I have a pivot table with 3 fields in the PageField. I
would like to just rearrange the position of the fields.
For instance Currently from top to bottom in the pagefield
I have field "AD", then "Supervisor", and
last "Department". I would simply like to alter their
position and put "Department" at the top, then "AD", and
last "Supervisor"

How do I do this?

Thank you.

 

[Juan Pablo Gonzalez]

If you mean by code, try recording a macro. That will give you the idea on
how to do that...

 

[Todd Htutenstine]

I did run a macro. The macros only show adding a field to
the pagefield. When I run a macro and rearrange the
fields, it does not show that.

 

[Juan Pablo Gonzalez]

Ok, try something like this then...

Sub Macro2()
With ActiveSheet.PivotTables("PivotTable1")
With .PivotFields("Field1")
.Orientation = xlColumnField
.Position = 1
End With

With .PivotFields("Field2")
.Orientation = xlRowField
.Position = 1
End With

With .PivotFields("Field3")
.Orientation = xlPageField
.Position = 1
End With
End With
End Sub


--
Regards,

Juan Pablo González

I did run a macro. The macros only show adding a field to
the pagefield. When I run a macro and rearrange the
fields, it does not show that.

 

[Todd Huttenstine]

Thanks that worked.

-----Original Message-----
Ok, try something like this then...

Sub Macro2()
With ActiveSheet.PivotTables("PivotTable1")
With .PivotFields("Field1")
.Orientation = xlColumnField
.Position = 1
End With

With .PivotFields("Field2")
.Orientation = xlRowField
.Position = 1
End With

With .PivotFields("Field3")
.Orientation = xlPageField
.Position = 1
End With
End With
End Sub


--
Regards,

Juan Pablo González

I did run a macro. The macros only show adding a field to
the pagefield. When I run a macro and rearrange the
fields, it does not show that.




.