Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hiding a column of hyperlinks behind a column of numbers | New Users to Excel | |||
Hiding Column Issue | Excel Worksheet Functions | |||
Column Hiding | Excel Discussion (Misc queries) | |||
HIDING A COLUMN | Excel Discussion (Misc queries) | |||
hiding column using VB | Excel Worksheet Functions |