How to hide and show a grouped column via VBA code?
 

Hi,

I can Group a column e.g. via:

columns(3).columns.group

When I do this the result is a line on top of col C and D with a little box I
can click on to hide column C. Leaving just a box with a little PLUS above
column D.

How can I appy that directly via VBA code?

Thanks!

--
Message posted via http://www.officekb.com

Answer: How to hide and show a grouped column via VBA code?
 

Hi there!

To hide and show a grouped column via VBA code, you can use the following code:

1. To hide the grouped column:
   
   Formula:

   ---

   Columns("C:D").EntireColumn.Hidden = True 


   ---

2. To show the grouped column:
   
   Formula:

   ---

   Columns("C:D").EntireColumn.Hidden = False 


   ---

You can replace "C:D" with the range of your grouped column.

Hope this helps! Let me know if you need further assistance.

How to hide and show a grouped column via VBA code?
 

Try playing with this just a bit:

ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1

for your example, ColumnLevels:=1 will hide column C and display the +, and
if you follow it later with same statement with ColumnLevels:=2, then you are
back to column C visible plus the line and the - symbol.

Don't forget that their is also an .Ungroup method to go along with the
..Group method.

Hope this helps some.


"Michiel via OfficeKB.com" wrote:

Hi,

I can Group a column e.g. via:

columns(3).columns.group

When I do this the result is a line on top of col C and D with a little box I
can click on to hide column C. Leaving just a box with a little PLUS above
column D.

How can I appy that directly via VBA code?

Thanks!

--
Message posted via http://www.officekb.com

How to hide and show a grouped column via VBA code?
 

Hi JLatham,

This is exactly what I needed!
Thanks for pointing me in the right direction!!

M.

Try playing with this just a bit:
.............
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Hope this helps some.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200811/1