Hide and Show Columns in Pivot Table (Excel 2010)

[gabnash]

I have a pivot table that has 11 columns. I'd like it to become a table where only 8 columns are visible. The user can press a button and the first three columns toggle with three columns that are initially hidden. Pressing the button a second time should revert back to the initial state.

I managed to write piece of VBA code to hide three columns - but I couldn't get them back again!

Any help gratefully received!

 

[ParamRay]

Supposing you want to toggle the hidden property of columns A to C, you could use the following code. If the columns are hidden then the macro will unhide them. Conversely, if the columns are unhidden then the macro will hide them.

(You could also assign this macro to a form control button, which users can click to toggle the hidden property.)

Sub ToggleHidden()
    With Columns("A:C")
        .Hidden = Not .Hidden
    End With
End Sub

 

[gabnash]

Many thanks for your help. I managed to implement the toggling action I wanted by adding one more line of code to yours.

Sub Toggle()

      With Columns("C:E")
            .Hidden = Not .Hidden
      End With

     Columns("F:H").Hidden = Not Columns("C:E").Hidden   

End Sub