Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 1004 with PivotItems.Visible
I record this macro as I un-select one item and then select another item:
With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Env") .PivotItems("1").Visible = False .PivotItems("42").Visible = True End With But when I then try to run (playback) the macro, I get an error 1004. I still get the error if I change the order and put True first, then False. What am I missing? Thanks, Charlie Rowe |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 1004 with PivotItems.Visible
To prevent the error, set the Sort for the field to Manual. For example:
Dim intASO As Integer With ActiveSheet.PivotTables("PivotTable2").PivotFields ("Employee") intASO = .AutoSortOrder .AutoSort xlManual, .SourceName .PivotItems("1").Visible = False .PivotItems("42").Visible = True .AutoSort intASO, .SourceName End With Charlie Rowe wrote: I record this macro as I un-select one item and then select another item: With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Env") .PivotItems("1").Visible = False .PivotItems("42").Visible = True End With But when I then try to run (playback) the macro, I get an error 1004. I still get the error if I change the order and put True first, then False. What am I missing? Thanks, Charlie Rowe -- Debra Dalgleish Excel FAQ, Tips & Book List http://www.contextures.com/tiptech.html |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 1004 with PivotItems.Visible
Debra,
WOW, thank you so much; I would have never figured that out. How did you ever figure it out? Charlie Rowe "Debra Dalgleish" wrote: To prevent the error, set the Sort for the field to Manual. For example: Dim intASO As Integer With ActiveSheet.PivotTables("PivotTable2").PivotFields ("Employee") intASO = .AutoSortOrder .AutoSort xlManual, .SourceName .PivotItems("1").Visible = False .PivotItems("42").Visible = True .AutoSort intASO, .SourceName End With Charlie Rowe wrote: I record this macro as I un-select one item and then select another item: With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Env") .PivotItems("1").Visible = False .PivotItems("42").Visible = True End With But when I then try to run (playback) the macro, I get an error 1004. I still get the error if I change the order and put True first, then False. What am I missing? Thanks, Charlie Rowe -- Debra Dalgleish Excel FAQ, Tips & Book List http://www.contextures.com/tiptech.html |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Controlling Pivotitems.visible | Excel Discussion (Misc queries) | |||
Runtime error 1004 - unable to set Visible property of Worksheet c | Excel Programming | |||
Visible PivotItems matching criteria | Excel Programming | |||
Always keep the same 4 PivotItems visible | Excel Programming | |||
Run-time error '1004' - Unable to set the Visible property of the Worksheet class | Excel Programming |