VBA column hiding
 

hello,

does anybody know of a macro of sorts that will check to see if
column is populated and if not to automatically hide it?
Essentially I have 15 columns of which only 8 may have data and I woul
like to hide the remaining columns at one time....

Thanks a lot

--
natijo
-----------------------------------------------------------------------
natijoe's Profile: http://www.excelforum.com/member.php...fo&userid=2555
View this thread: http://www.excelforum.com/showthread.php?threadid=39002

VBA column hiding
 

Hi Natijoe,

Try:

Sub Tester01()
Dim rng As Range
Dim col As Range
Dim sh As Worksheet

Set sh = ActiveSheet '<<===== CHANGE

For Each col In sh.UsedRange
Set rng = col.Cells
col.EntireColumn.Hidden = Application.CountA(rng) = 0
Next col

End Sub


---
Regards,
Norman



"natijoe" wrote in
message ...

hello,

does anybody know of a macro of sorts that will check to see if a
column is populated and if not to automatically hide it?
Essentially I have 15 columns of which only 8 may have data and I would
like to hide the remaining columns at one time....

Thanks a lot!


--
natijoe
------------------------------------------------------------------------
natijoe's Profile:
http://www.excelforum.com/member.php...o&userid=25556
View this thread: http://www.excelforum.com/showthread...hreadid=390024

VBA column hiding
 

Sub HideColums()
Dim i As Long

For i = 1 To 15
If Application.CountA(Columns(i)) = 0 Then
Columns(i).Hidden = True
End If
Next i

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"natijoe" wrote in
message ...

hello,

does anybody know of a macro of sorts that will check to see if a
column is populated and if not to automatically hide it?
Essentially I have 15 columns of which only 8 may have data and I would
like to hide the remaining columns at one time....

Thanks a lot!


--
natijoe
------------------------------------------------------------------------
natijoe's Profile:
http://www.excelforum.com/member.php...o&userid=25556
View this thread: http://www.excelforum.com/showthread...hreadid=390024

VBA column hiding
 

Hi Natijoe,

Or, more simply:

Sub Tester01()
Dim col As Range
Dim sh As Worksheet

Set sh = ActiveSheet '<<===== CHANGE

For Each col In sh.UsedRange
col.EntireColumn.Hidden = Application.CountA(col) = 0
Next col

End Sub


---
Regards,
Norman



"natijoe" wrote in
message ...

hello,

does anybody know of a macro of sorts that will check to see if a
column is populated and if not to automatically hide it?
Essentially I have 15 columns of which only 8 may have data and I would
like to hide the remaining columns at one time....

Thanks a lot!


--
natijoe
------------------------------------------------------------------------
natijoe's Profile:
http://www.excelforum.com/member.php...o&userid=25556
View this thread: http://www.excelforum.com/showthread...hreadid=390024

VBA column hiding
 

For Each col In sh.UsedRange

Should have been:

For Each col In sh.UsedRange.Columns

to avoid unnecessary iteration.

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Natijoe,

Or, more simply:

Sub Tester01()
Dim col As Range
Dim sh As Worksheet

Set sh = ActiveSheet '<<===== CHANGE

For Each col In sh.UsedRange
col.EntireColumn.Hidden = Application.CountA(col) = 0
Next col

End Sub


---
Regards,
Norman



"natijoe" wrote in
message ...

hello,

does anybody know of a macro of sorts that will check to see if a
column is populated and if not to automatically hide it?
Essentially I have 15 columns of which only 8 may have data and I would
like to hide the remaining columns at one time....

Thanks a lot!


--
natijoe
------------------------------------------------------------------------
natijoe's Profile:
http://www.excelforum.com/member.php...o&userid=25556
View this thread:
http://www.excelforum.com/showthread...hreadid=390024