W
WayneR
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.....
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.....