| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
pivot managment through VBA
hi all
could someone give me a hand with this piece of code which I can't get to work for me: indPlan = Sheets("pivot").Range("L46").Value Select Case indPlan Case indPlan <= 3 tptPlanMonths.PivotFields("quarter").PivotItems(1) .Visible = True tptPlanMonths.PivotFields("quarter").PivotItems(2) .Visible = False tptPlanMonths.PivotFields("quarter").PivotItems(3) .Visible = False tptPlanMonths.PivotFields("quarter").PivotItems(4) .Visible = False Case indPlan = 4 & indPlan <= 6 tptPlanMonths.PivotFields("quarter").PivotItems(1) .Visible = True tptPlanMonths.PivotFields("quarter").PivotItems(2) .Visible = True tptPlanMonths.PivotFields("quarter").PivotItems(3) .Visible = False tptPlanMonths.PivotFields("quarter").PivotItems(4) .Visible = False Case indPlan = 7 & indPlan <= 9 tptPlanMonths.PivotFields("quarter").PivotItems(1) .Visible = True tptPlanMonths.PivotFields("quarter").PivotItems(2) .Visible = True tptPlanMonths.PivotFields("quarter").PivotItems(3) .Visible = True tptPlanMonths.PivotFields("quarter").PivotItems(4) .Visible = False Case indPlan = 10 & indPlan <= 12 tptPlanMonths.PivotFields("quarter").PivotItems(1) .Visible = True tptPlanMonths.PivotFields("quarter").PivotItems(2) .Visible = True tptPlanMonths.PivotFields("quarter").PivotItems(3) .Visible = True tptPlanMonths.PivotFields("quarter").PivotItems(4) .Visible = True End Select thanks a lot in advance! |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Capability / Resource Managment | Excel Discussion (Misc queries) | |||
| Yardi Property Managment Program | Excel Discussion (Misc queries) | |||
| Information Right Managment | Excel Programming | |||
| ODBC managment with VB Excel | Excel Programming | |||
| contact managment | Excel Discussion (Misc queries) | |||
Threaded Mode
