Solved: Combine Non-Contiguous Ranges Hide Col.

[YellowLabPro]

Wondering if the first line can be combined into one line instead of two independent ones?


Columns("C:F", "I:R").EntireColumn.Hidden = Not Columns("C:F", "I:R").EntireColumn.Hidden
Columns("C:F").EntireColumn.Hidden = Not Columns("C:F").EntireColumn.Hidden
Columns("I:R").EntireColumn.Hidden = Not Columns("I:R").EntireColumn.Hidden

[Bob Phillips]

Why, what will it buy you?

[YellowLabPro]

Just looking to learn how to combine non-contiguous ranges, as a matter of knowledge

[Paul_Hossler]

Always a big fan of abstract knowledge for it's own sake :cloud9:



Union(Columns("C:F"), Columns("I:R")).EntireColumn.Hidden = Not Union(Columns("C:F"), Columns("I:R")).EntireColumn.Hidden
Columns("C:F").EntireColumn.Hidden = Not Columns("C:F").EntireColumn.Hidden
Columns("I:R").EntireColumn.Hidden = Not Columns("I:R").EntireColumn.Hidden

[YellowLabPro]

Hi Paul,
Thanks- this got me here:

Union(Columns("C:F"), Columns("I:R"), Columns("W:Z")).EntireColumn.Hidden = Not Union(Columns("C:F"), Columns("I:R"), Columns("W:Z")).EntireColumn.Hidden
' Columns("C:F").EntireColumn.Hidden = Not Columns("C:F").EntireColumn.Hidden
' Columns("I:R").EntireColumn.Hidden = Not Columns("I:R").EntireColumn.Hidden
' Columns("W:Z").EntireColumn.Hidden = Not Columns("W:Z").EntireColumn.Hidden


Something like this also helps bring me closer to understanding VBA overall, seeing the required format and arguments...

most grateful,

YLP

[mdmackillop]

Hi Yelp,
Although it's not something I make use of, I think this is the sort of thing Custom Views is designed to do.

[YellowLabPro]

Thanks MD,
I am not familiar w/ all the different approaches.... always good to get another pointer of the features in Excel....

YLP