How do I collapse multiple columns *that are not in a connecting selection" as a single group?

[cluelessintern]

I have many columns (budget, forecast, and variance) for each month and quarter. I need to collapse and expand the variance columns as one group. How do I do this?

 

[Brittain12]

if they are not in a "connecting selection" (ex. your variance being in cells A1 B1 C1 D1 E1) you cannot group them. Another solution you can do is create a macro that hides the cells the variance data is in.....simple click of a button can hide them or unhide them

 

[cluelessintern]

I tried creating a macro to accomplish this. Here are the steps I'm taking (correct me where I go wrong):

1)Record Macro
2)Highlight columns I need hidden (example: Column A, C, & G)
3)Right click, "Hide columns"
4)Stop recording.

I would then go on to create a second macro to unhide those columns, however when I test the first macro, it only hides a single column. How do I get around this? Thanks.

 

[Brittain12]

Whats your code look like for the macro?

 

[Brittain12]

where you able to figure it out?

 

[cluelessintern]

Still no luck.

Here is my code, what do you recommend I do?

Sub mintest1()
'
' mintest1 Macro
'
' Keyboard Shortcut: Ctrl+s
'
Selection.EntireColumn.Hidden = True
End Sub

 

[Brittain12]

Ok, one thing i see is there is no range to hide, so try this

Range("B:B,D:D,F:F,H:H,J:J").Select

Put the code above right above the "Selection.EntireColumn.Hidden = True" part in your macro. You will have to replace the "B:B,D:D,F:F,H:H,J:J" with the columns that you want to hide.

So your macro woudl look like this


Sub mintest1()
'
' mintest1 Macro
'
' Keyboard Shortcut: Ctrl+s

Range("B:B,D:D,F:F,H:H,J:J").Select
Selection.EntireColumn.Hidden = True

End Sub


Let me know if it works

 

[Brittain12]

WHere you able to get it to work?

 

[cluelessintern]

No luck.

 

[cluelessintern]

It just hides different columns than I want