Hi
I have a pivot table and need to know which code should I write in order to
change a RowField by another on the database but, whithout knowing the
existing selected rowfield

Regards
Pedro

Tom are you able to help me on this?

Regards

Pedro

"Pedro" wrote in message
...
Hi
I have a pivot table and need to know which code should I write in order
to
change a RowField by another on the database but, whithout knowing the
existing selected rowfield

Regards
Pedro

I'm not sure what you mean? Can you be more specific or provide an
example of what you want to do?

Mark

---
Mark Bigelow
mjbigelow at hotmail dot com
http://hm.imperialoiltx.com

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

I have in the Row Field "Segment Name" I want to write a code in order to
replace the field by "Currency" but whithout taking into account the name of
the existing. Next time I might have another field name and replace by
Currency


"Mark Bigelow" wrote in message
...
I'm not sure what you mean? Can you be more specific or provide an
example of what you want to do?

Mark

---
Mark Bigelow
mjbigelow at hotmail dot com
http://hm.imperialoiltx.com

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

This should do it:

' This variable tells which position the field is in
' First position is 0
intFieldPos = 0
ActiveSheet.PivotTables("PivotTable1").PivotFields (intFieldPos).Orientat
ion = _
xlHidden
With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Currency")
.Orientation = xlRowField
.Position = intFieldPos
End With

Let me know if this doesn't work.

Mark

---
Mark Bigelow
mjbigelow at hotmail dot com
http://hm.imperialoiltx.com

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!