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.

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

--
Regards,

Juan Pablo González

"Todd Huttenstine" wrote in message
...
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.

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.


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

--
Regards,

Juan Pablo González

"Todd Huttenstine"
wrote in message
...
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.


.

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

"Todd Htutenstine" wrote in message
...
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.


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

--
Regards,

Juan Pablo González

"Todd Huttenstine"
wrote in message
...
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.


.

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

"Todd Htutenstine"
wrote in message
...
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.


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

--
Regards,

Juan Pablo González

"Todd Huttenstine"
wrote in message
...
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.


.



.