Hiding Empty Columns

[IorekByrnison]

Hoping somebody can help me out here

I've got an excel sheet where for a specific range of values I want to hide the columns if there is nothing entered into the cells for for that column. The examples I could find to work only worked if you were looking at the entire column, but in my case, the data I want to look at starts in the 3rd for of each column. So F3:F30, G3:G30, and so forth. Data is not just numbers if that matters, could be numbers or letters, but either way, I want the column to hide if there is nothing entered within the range for that column. Thanks for any help.

 

[Joe4]

Welcome to the Board!

Here is a VBA procedure that should do what you want.

Sub HideColumns()

    Dim col As Long
    Dim rng As Range
    
    Application.ScreenUpdating = False
    
'   Run against columns 6-10 ("F:J")
    For col = 6 To 10
'       Set rng to check (rows 3:30)
        Set rng = Range(Cells(3, col), Cells(30, col))
'       Count non-blank cells in range
        If Application.WorksheetFunction.CountA(rng) = 0 Then
'           Hide column if no non-blank cells in range
            Columns(col).Hidden = True
        End If
    Next col
    
    Application.ScreenUpdating = True
    
End Sub

This example is running against columns F-J, but you can easily change that to suit your needs.

 

[IorekByrnison]

Awesome, thanks so much!

 

[Joe4]

You are welcome.
Glad I was able to help!