PDA

View Full Version : Solved: Combine Non-Contiguous Ranges Hide Col.



YellowLabPro
04-29-2007, 07:32 AM
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
04-29-2007, 07:41 AM
Why, what will it buy you?

YellowLabPro
04-29-2007, 08:38 AM
Just looking to learn how to combine non-contiguous ranges, as a matter of knowledge

Paul_Hossler
04-29-2007, 08:52 AM
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
04-29-2007, 09:13 AM
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
04-29-2007, 09:32 AM
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
04-29-2007, 09:37 AM
Thanks MD,
I am not familiar w/ all the different approaches.... always good to get another pointer of the features in Excel....

YLP