satyen
10-19-2013, 09:06 AM
Hello.
Please could someone help.
I have this code that selects each item/button on the pivot table - but the code I not efficient as i would like it loop to a hundred.
Sub Macro13()
ActiveWorkbook.Slicer("SlBook").ItemsList = _
Array( _
"[100].[DayNo].&[1]")
ActiveWorkbook.Slicer("SlBook").ItemsList = _
Array( _
"[100].[DayNo].&[1]", "[100].[DayNo].&[2]")
ActiveWorkbook.Slicer("SlBook").ItemsList = _
Array( _
"[100].[DayNo].&[1]", "[100].[DayNo].&[2]", _
"[100].[DayNo].&[3]")
ActiveWorkbook.Slicer("SlBook").ItemsList = _
Array( _
"[100].[DayNo].&[1]", "[100].[DayNo].&[2]", _
"[100].[DayNo].&[3]", "[100].[DayNo].&[4]")
End Sub
Please could someone help.
I have this code that selects each item/button on the pivot table - but the code I not efficient as i would like it loop to a hundred.
Sub Macro13()
ActiveWorkbook.Slicer("SlBook").ItemsList = _
Array( _
"[100].[DayNo].&[1]")
ActiveWorkbook.Slicer("SlBook").ItemsList = _
Array( _
"[100].[DayNo].&[1]", "[100].[DayNo].&[2]")
ActiveWorkbook.Slicer("SlBook").ItemsList = _
Array( _
"[100].[DayNo].&[1]", "[100].[DayNo].&[2]", _
"[100].[DayNo].&[3]")
ActiveWorkbook.Slicer("SlBook").ItemsList = _
Array( _
"[100].[DayNo].&[1]", "[100].[DayNo].&[2]", _
"[100].[DayNo].&[3]", "[100].[DayNo].&[4]")
End Sub