VBA check if cell is blank and automatically hide that row

[Janvon13]

Hi,

This is my first post but I have found many answers on this website before but struggling to find something on the following problem:

I am currently trying to write a VBA code which would automatically hide a whole row when this formula displays a blank =IFNA(VLOOKUP(A10,”Sheet 10”!A:C,10,FALSE)," ") in that rows cell.

The cells ranges that contain this formula are B10:B15 and B20:B25 in Sheet 5; and B10:B15 B25:B30 in Sheet 6.

To give more context, I use a data validation, drop down menu method to select a case that I want to view and some cases contain more rows of information than others, the cases that contain no information in the mentioned rows above I want to be able to hide automatically if they are blank

Any help would be much appreciated.

Thank you

 

[DanteAmor]

Welcome to the forum.

Try this

Sub test()
    Dim c As Range
    For Each c In Sheets("Sheet5").Range("B10:B15,B20:B25")
        If c.Value = "" Then
            c.EntireRow.Hidden = True
        Else
            c.EntireRow.Hidden = True
        End If
    Next
    For Each c In Sheets("Sheet6").Range("B10:B15,B25:B30")
        If c.Value = "" Then
            c.EntireRow.Hidden = True
        Else
            c.EntireRow.Hidden = True
        End If
    Next
End Sub

 

[Fluff]

@DanteAmor
Think there's a couple of typos, everything says true & nothing false.

 

[DanteAmor]

@DanteAmor
Think there's a couple of typos, everything says true & nothing false.

It's true, I forgot to change the second line.
This is correct.

Sub test()
    Dim c As Range
    For Each c In Sheets("Sheet5").Range("B10:B15,B20:B25")
        If c.Value = "" Then
            c.EntireRow.Hidden = True
        Else
            c.EntireRow.Hidden = [COLOR=#0000ff]False[/COLOR]
        End If
    Next
    For Each c In Sheets("Sheet6").Range("B10:B15,B25:B30")
        If c.Value = "" Then
            c.EntireRow.Hidden = True
        Else
            c.EntireRow.Hidden = [COLOR=#0000ff]False[/COLOR]
        End If
    Next
End Sub