G
Guest
hi im trying to automate a selection for date on all my pvot tables. i have
these pivots that are joined by an olap cube to my workbook. what i have done
is create diffrent tables for diffrent measures but i have one constant and
this is Date. im trying to create a user form which selects from a list the
months required for viewing.
eg March april May, 2006
these selections are fed into arrays as strings like
[Time].[Months].[All Time].[2006].[Quarter 3 2006].[July 2006]
i understand that with the Date field it requires a hide method for the
months not selected.
this is my code so far
ActiveSheet.PivotTables("PivotTable1").CubeFields(44).TreeviewControl.Drilled
_
= Array(Array(""), array(showyear)), showquart)
ActiveSheet.PivotTables("PivotTable1").PivotFields("[Time].[Months].[Year]").
_
HiddenItemsList = Array(notyear)
ActiveSheet.PivotTables("PivotTable1").PivotFields("[Time].[Months].[Quarter]") _
.HiddenItemsList = notquart()
ActiveSheet.PivotTables("PivotTable1").PivotFields("[Time].[Months].[Month]"). _
HiddenItemsList = array(notmonth)
all the Arrays are previously set into strings on the workbook but the pivot
will not read my arrays as normal it comes up with errors and will not change
anything.
hope this reads alright
if anyones got a sample code that would be excellant!!!!!
i just want to be able to auto change 30 pivot tables to the date i chose in
a user format the start! sounds simple but as i found out, not so!
please help
these pivots that are joined by an olap cube to my workbook. what i have done
is create diffrent tables for diffrent measures but i have one constant and
this is Date. im trying to create a user form which selects from a list the
months required for viewing.
eg March april May, 2006
these selections are fed into arrays as strings like
[Time].[Months].[All Time].[2006].[Quarter 3 2006].[July 2006]
i understand that with the Date field it requires a hide method for the
months not selected.
this is my code so far
ActiveSheet.PivotTables("PivotTable1").CubeFields(44).TreeviewControl.Drilled
_
= Array(Array(""), array(showyear)), showquart)
ActiveSheet.PivotTables("PivotTable1").PivotFields("[Time].[Months].[Year]").
_
HiddenItemsList = Array(notyear)
ActiveSheet.PivotTables("PivotTable1").PivotFields("[Time].[Months].[Quarter]") _
.HiddenItemsList = notquart()
ActiveSheet.PivotTables("PivotTable1").PivotFields("[Time].[Months].[Month]"). _
HiddenItemsList = array(notmonth)
all the Arrays are previously set into strings on the workbook but the pivot
will not read my arrays as normal it comes up with errors and will not change
anything.
hope this reads alright
if anyones got a sample code that would be excellant!!!!!
i just want to be able to auto change 30 pivot tables to the date i chose in
a user format the start! sounds simple but as i found out, not so!
please help