Hide row if cell is blank

[Littlemalky]

I have a range("D35:D44"), and if any of those cells do not contain a value in them, then I need the entire row to be hidden, so that only the cells in that range are shown. All the code I've found is for a specific value it seems, rather than a blank cell.

 

[VoG]

I guess that you have #N/A errors in that range. Should they be deleted?

 

[Littlemalky]

Actually, I did an IFERROR to input blank cells in the ranges that don't have a value which is perfect for me because i needed to exclude all the partnumbers that return an actual value because that means they have been used already.

Now, I have to actually do this with columns D:H, so I just tried to put a ":H" whereever there was a D with that code, but it didn't seem to work. Do you have a solution for doing this in multiple columns with the last code i just posted so I don't have to repeat the same code for each column 5 times?

 

[VoG]

Try

Private Sub DelRows2()
    Dim LR As Long, i As Long
    LR = Cells(Rows.Count, "D").End(xlUp).Row
    For i = LR To 2 Step -1
        If WorksheetFunction.CountA(Range("D" & i).Resize(, 5)) < 5 Then Range("D" & i).Resize(, 5).Delete shift:=xlShiftUp
    Next i
End Sub

 

[Littlemalky]

Hmm, that didn't seem to do anything but resize column D

 

[VoG]

It won't resize any columns. Try

Sub DelRows2()
    Dim LR As Long, i As Long, j As Long
    LR = Cells(Rows.Count, "D").End(xlUp).Row
    For i = LR To 2 Step -1
        For j = 4 To 8
            If Cells(i, j).Value = "" Then
                Range("D" & i).Resize(, 5).Delete shift:=xlShiftUp
                Exit For
            End If
        Next j
    Next i
End Sub