Set Pivot Table Pages
 

hi,

I am having some difficulty setting pagefields and values -- here is my
code...

strpivotsheet = "Pivot Table"
str_selection_value1 = "Delivery #"
str_selection_value2 = "Floor"
str_selection = "1"


For Each pt In Worksheets(strpivotsheet).PivotTables
With pt.PivotFields(str_selection_value1)
.Orientation = xlPageField
.Position = 1
End With
With pt.PivotFields(str_selection_value2)
.Orientation = xlPageField
.Position = 2
End With
Next pt

For Each pt In Worksheets(strpivotsheet).PivotTables
pt.PivotCache.Refresh
pt.RefreshTable
For Each pf In pt.PageFields
If pf.Name = str_selection_value1 Then
For Each pi In pf.PivotItems
If pi.Name = str_selection Then
pf.CurrentPage = pi.Name
Exit For
End If
Next pi
ElseIf pf.Name = str_selection_value2 Then
pf.CurrentPage = "(All)"
End If
Next pf
Next pt

on pf.CurrentPage = pi.name or pf.CurrentPage = "(All)" I get error 1004
application defined or object define error.

please help me.....

--
WayneR

Set Pivot Table Pages
 

I found my problem -- I don't know if this is just for files saved in 97-2203
compatible mode or not.. What I had to do was remove the "slect multiple"
from the pagefiled... it worked fine after that.....
--
WayneR


"WayneR" wrote:

hi,

I am having some difficulty setting pagefields and values -- here is my
code...

strpivotsheet = "Pivot Table"
str_selection_value1 = "Delivery #"
str_selection_value2 = "Floor"
str_selection = "1"


For Each pt In Worksheets(strpivotsheet).PivotTables
With pt.PivotFields(str_selection_value1)
.Orientation = xlPageField
.Position = 1
End With
With pt.PivotFields(str_selection_value2)
.Orientation = xlPageField
.Position = 2
End With
Next pt

For Each pt In Worksheets(strpivotsheet).PivotTables
pt.PivotCache.Refresh
pt.RefreshTable
For Each pf In pt.PageFields
If pf.Name = str_selection_value1 Then
For Each pi In pf.PivotItems
If pi.Name = str_selection Then
pf.CurrentPage = pi.Name
Exit For
End If
Next pi
ElseIf pf.Name = str_selection_value2 Then
pf.CurrentPage = "(All)"
End If
Next pf
Next pt

on pf.CurrentPage = pi.name or pf.CurrentPage = "(All)" I get error 1004
application defined or object define error.

please help me.....

--
WayneR