Pivot Table issue

[Pedro]

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

 

[Pedro]

Tom are you able to help me on this?

Regards

Pedro

 

[Mark Bigelow]

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!

 

[Pedro]

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]

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!