Hi Guys, I am trying to select multiple pivotitems in an OLAP cube pivot based on a dynamic list. The code is below. when I run the macro and loop is completed, one the last item on the list is selected. I want all the items on the list to be visible.
Was wondering if anyone can please fix the issue for me? I am not really too competent with VB, and hence might be doing some fundamental mistake.
Sub Test()
Set wb1 = ThisWorkbook
Set sh4 = wb1.Sheets("Control")
Sheets("Test").Select
ActiveSheet.PivotTables("Test").PivotFields( _
"[Product].[Model Group].[Model Group]").ClearAllFilters
u2 = sh4.Range("B50000").End(xlUp).Row
ActiveSheet.PivotTables("Test").CubeFields(66).EnableMultiplePageItems = True
For i = 2 To u2
zh = sh4.Cells(i, "B")
ActiveSheet.PivotTables("Test").PivotFields( _
"[Product].[Model Group].[Model Group]").CurrentPageName = _
"[Product].[Model Group].&[" & zh & "]"
Next i
End Sub
Was wondering if anyone can please fix the issue for me? I am not really too competent with VB, and hence might be doing some fundamental mistake.
Sub Test()
Set wb1 = ThisWorkbook
Set sh4 = wb1.Sheets("Control")
Sheets("Test").Select
ActiveSheet.PivotTables("Test").PivotFields( _
"[Product].[Model Group].[Model Group]").ClearAllFilters
u2 = sh4.Range("B50000").End(xlUp).Row
ActiveSheet.PivotTables("Test").CubeFields(66).EnableMultiplePageItems = True
For i = 2 To u2
zh = sh4.Cells(i, "B")
ActiveSheet.PivotTables("Test").PivotFields( _
"[Product].[Model Group].[Model Group]").CurrentPageName = _
"[Product].[Model Group].&[" & zh & "]"
Next i
End Sub