Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Print Pivot Table headers on pages with Pivot Table | Excel Worksheet Functions | |||
linked 3 pivot table pages ????? | Excel Worksheet Functions | |||
Show pages without using pivot table | Excel Discussion (Misc queries) | |||
Pivot Table help - select pages | Excel Discussion (Misc queries) | |||
What happened to Pivot Table "Show Pages"? | Excel Discussion (Misc queries) |