I'm having a similar issue. I want to pull the last thirteen weeks o
data every week, but I dont want to go in and select the next week fro
the dropdown tree every time. what's the easiest way to have a macr
for this?
Thanks.
the thirteen weeks from last week are selected. this is what I ge
when I deselect the oldest of the thirteen weeks and then add anothe
(this) week; i.e., what i have to do every week.
instead of having it Hide everything I dont want, is there a way t
clear everything and then tell it to select only the weeks i want
e.g., i would have a cell with the current week number. then the scrip
would select that week and the twelve weeks before it
ActiveSheet.PivotTables("PivotTable").CubeFields(1 2).TreeviewControl.Drille
= _
Array(Array("", "", "", ""), Array("[TIME].[All TIME].[2005]"
"", "", ""), Array( _
"[TIME].[All TIME].[2005].[Q2]", "[TIME].[Al
TIME].[2005].[Q3]", "", ""), Array( _
"[TIME].[All TIME].[2005].[Q2].[MM-200506]", _
"[TIME].[All TIME].[2005].[Q3].[MM-200507]", _
"[TIME].[All TIME].[2005].[Q3].[MM-200508]", _
"[TIME].[All TIME].[2005].[Q3].[MM-200509]"))
ActiveSheet.PivotTables("PivotTable").PivotFields( "[TIME].[Yea
Nbr]"). _
HiddenItemsList = Array("[TIME].[All TIME].[2002]"
"[TIME].[All TIME].[2007]", _
"[TIME].[All TIME].[2004]", "[TIME].[All TIME].[2001]", _
"[TIME].[All TIME].[2006]", "[TIME].[All TIME].[2003]", _
"[TIME].[All TIME].[2000]", "[TIME].[All TIME].[1999]")
ActiveSheet.PivotTables("PivotTable").PivotFields( "[TIME].[Qt
Nbr]"). _
HiddenItemsList = Array("[TIME].[All TIME].[2005].[Q4]", _
"[TIME].[All TIME].[2005].[Q1]")
ActiveSheet.PivotTables("PivotTable").PivotFields( "[TIME].[Mont
Abr]"). _
HiddenItemsList = Array("[TIME].[Al
TIME].[2005].[Q1].[MM-200501]", _
"[TIME].[All TIME].[2005].[Q1].[MM-200502]", _
"[TIME].[All TIME].[2005].[Q2].[MM-200504]", _
"[TIME].[All TIME].[2005].[Q2].[MM-200505]")
ActiveSheet.PivotTables("PivotTable").PivotFields( "[TIME].[Week]")
_
HiddenItemsList = Array("[TIME].[Al
TIME].[2005].[Q1].[MM-200502].[WW-200506]" _
, "[TIME].[All TIME].[2005].[Q1].[MM-200502].[Week-200507]", _
"[TIME].[All TIME].[2005].[Q1].[MM-200502].[Week-200508]", _
"[TIME].[All TIME].[2005].[Q1].[MM-200503].[Week-200510]", _
"[TIME].[All TIME].[2005].[Q1].[MM-200503].[Week-200511]", _
"[TIME].[All TIME].[2005].[Q1].[MM-200503].[Week-200512]", _
"[TIME].[All TIME].[2005].[Q1].[MM-200503].[Week-200513]", _
"[TIME].[All TIME].[2005].[Q2].[MM-200504].[Week-200515]", _
"[TIME].[All TIME].[2005].[Q2].[MM-200505].[Week-200519]", _
"[TIME].[All TIME].[2005].[Q2].[MM-200505].[Week-200520]", _
"[TIME].[All TIME].[2005].[Q2].[MM-200505].[Week-200521]", _
"[TIME].[All TIME].[2005].[Q2].[MM-200506].[Week-200523]", _
"[TIME].[All TIME].[2005].[Q3].[MM-200509].[Week-200537]", _
"[TIME].[All TIME].[2005].[Q3].[MM-200509].[Week-200538]", _
"[TIME].[All TIME].[2005].[Q3].[MM-200509].[Week-200539]", _
"[TIME].[All TIME].[2005].[Q3].[MM-200509].[Week-200540]"
--
cowscla
-----------------------------------------------------------------------
cowsclaw's Profile:
http://www.excelforum.com/member.php...fo&userid=2685
View this thread:
http://www.excelforum.com/showthread.php?threadid=40079