Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding PivotItems
I cannot get the syntax right when trying to add PivotItems to a PivotField.
Given there are 4 possible items in a field ie L E S and (blank) I want to ensure there are always 3 PivotItems in the resulting PTable whether there are any values or not (I will add zeros where necessary). 1. The code below fails at the Cubefields statement with error 1004 2. Because of the fail I cannot determine whether the construct code should be inside the With .PivotFields("L E S") procedure or outside. Can anyone help please? Using XL2003 and given: ActiveWorkbook.Sheets(5).PivotTables("PivotTable1" ).PivotCache. _ CreatePivotTable TableDestination:=Sheets(5).Range("CM22"), _ TableName:="PivotTable6" With Sheets(5).PivotTables("PivotTable6") With .PivotFields("T") .Caption = "Day" ''''etc etc End With With .PivotFields("L E S") .Orientation = xlDataField .Position = 1 End With The construct then is : If Not .PivotFields("L E S").PivotItems.Count 1 Then '''''''''''''''''''''''''''''' goes wrong here With ActiveSheet.PivotTables("PivotTable6").PivotFields ("[L E S]") .CubeFields.EnableMultiplePageItems = True End With '''''''''''''''''''''''''''''' then something like Do .AddPageItem "[L E S].[xxxxx]" Until .PivotFields("L E S").PivotItems.Count = 3 ''''''''''''''''''''''''''''' then give titles to the created PivotItems End if End With T.I.A. Geoff |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Controlling Pivotitems.visible | Excel Discussion (Misc queries) | |||
Always keep the same 4 PivotItems visible | Excel Programming | |||
Excel 2003 Hide PivotItems | Excel Worksheet Functions | |||
pivotitems in a multiuser environment | Excel Programming | |||
Add PivotItems to PivotTable / Enabling - Disabling PivotItems | Excel Programming |