How can I check multiple columns?

[PhantomOak]

Right now I have this

Sub HURows() '
    BeginRow = 8
    EndRow = 18688
    ChkCol = 6
    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = "" Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
End Sub

I want it to check column, 3, 6, 7, 8, 13 and 17

How?

 

[PhantomOak]

I changed it to

Sub HURows() '
    Application.ScreenUpdating = False
    BeginRow = 8
    EndRow = 18688
    ChkCol = 6
    ChkCol = 3
    ChkCol = 7
    ChkCol = 8
    ChkCol = 12
    ChkCol = 16
 
    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = "" Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
    Application.ScreenUpdating = True
End Sub

And it seems to work OK, but it will always hide a row that has a value such as "Site Remediation" in column 3 but no values in the other columns. Any ideas on THAT?

 

[PhantomOak]

I changed it to

Sub HURows() '
    Application.ScreenUpdating = False
    BeginRow = 8
    EndRow = 18688
    ChkCol = 6
    ChkCol = 3
    ChkCol = 7
    ChkCol = 8
    ChkCol = 12
    ChkCol = 16
 
    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = "" Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
    Application.ScreenUpdating = True
End Sub

And it seems to work OK, but it will always hide a row that has a value such as "Site Remediation" in column 3 but no values in the other columns. Any ideas on THAT?

Nope, it seems like it only works if all the columns have values...

Ack. Any help?

As I cant edit any other message...

I want to hide any row that does not have values in any of those columns, not hide rows that dont have data in all

 

[mikerickson]

As written, the result will depend only on the values in column 16.

What is your requirement?
If any cell in columns 6,3,7,8,12, or 16 is blank, then hide the entire row (hides lots of rows)

or

Hide any row where column 6,3,7,8,12, or 16 are all blank. (hides fewer rows)

This code will do the first, hiding lots of rows

Sub HURows2() '
    Application.ScreenUpdating = False
    BeginRow = 8
    EndRow = 18688
    
Range("A8:A18688").EntireRow.Hidden = False

For Each ChkCol in Array(6, 3, 7, 8, 12, 16)
    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = "" Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        End If
    Next RowCnt
Next ChkCol
    Application.ScreenUpdating = True
End Sub

This will do the second, hiding fewer rows

Sub HURows3() '
    Application.ScreenUpdating = False
    BeginRow = 8
    EndRow = 18688
    
Range("A8:A18688").EntireRow.Hidden = False

    For RowCnt = BeginRow To EndRow
        With Cells(RowCnt, 6)
            .EntireRow.Hidden = (.Value = "")
        End With 
    Next RowCnt

For Each ChkCol in Array(3, 7, 8, 12, 16)
    For RowCnt = BeginRow To EndRow
        With Cells(RowCnt, ChkCol)
            If .Value <> "" Then
                .EntireRow.Hidden = False 
             End If
    Next RowCnt
Next ChkCol
    Application.ScreenUpdating = True
End Sub