Hide Column if no data in Cell below

I have a excel spreadsheet and the spreadsheet has Headings in row 1.  
What I need, on open if there is a Heading in row 1 but the cells below have no data then to hide that column.

Any help would greatly be appreciated.
ca1358Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
StephenJRConnect With a Mentor Commented:
Try this:
Sub x()

Dim c As Long

With ActiveSheet.UsedRange
    For c = 1 To .Columns.Count
        If Cells(1, c) <> "" And WorksheetFunction.CountA(.Columns(c)) = 1 Then
            .Columns(c).Hidden = True
        End If
    Next c
End With

End Sub

Open in new window

0
 
Ardhendu SarangiSr. Project ManagerCommented:
Hi,
Can you try this code -

Sub HideME()
    Set ws = ActiveSheet ' SELECT CURRENT SHEET
    Set Rng = ws.Range("A1:ZZ65536") ' DEFINE RANGE
    For Each Col In Rng.Columns ' START SEARCHING THE RANGE FOR EMPTY COLUMNS
        'MsgBox (Mid(Col.Address, 2, 1))
        'MsgBox (Cells(65536, Mid(Col.Address, 2, 1)).End(xlUp).Row)
        If Cells(65536, Mid(Col.Address, 2, 1)).End(xlUp).Row = 1 Then
            Rng.Columns(Col.Column).EntireColumn.Hidden = True ' Hide COlumn if this is empty
        End If
    Next Col
End Sub

Open in new window


Thanks,
Ardhendu
0
 
ca1358Author Commented:
Thank you
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.