Excel Forum

Code: Select all

Public Sub HideBlankRows1()
Dim i As Long

With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
        Range("K1:L15").Select
For i = Selection.Rows.Count To 1 Step -1
    If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Hidden = True
    End If
Next i

.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

Code: Select all

Sub test0()
   Dim r As Range
   For Each r In Range("k1:k15")
        If r = "" Then
            r.EntireRow.Hidden = True
        End If
   Next r
End Sub

Code: Select all

Public Sub FixCode()
Dim r As Range
   For Each r In Range("A1:A10")
        If Application.Sum(r.Resize(, 2)) = 0 Then
            r.EntireRow.Hidden = True
        End If
   Next r
End Sub

Code: Select all

Public Sub FixCode()
Dim r As Range
Dim a As String
    Set r = .Range("A1:A10")
    
   For Each a In r
        If Application.Sum(a.Resize(, 3)) = 0 Then
            a.EntireRow.Hidden = True
        End If
   Next a
End Sub

Code: Select all

Public Sub FixCode()
Dim r As Range
   For Each r In Range("A1:A10")
        If Application.Countif(r.Resize(, 3),0) = 3 Then
            r.EntireRow.Hidden = True
        End If
   Next r
End Sub

Code: Select all

If Application.Countif(r.Resize(, 3),0) = 3 Then

Code: Select all

Public Sub HideBlankRow()
    Dim r As Range
    For Each r In Range("A5:A199")
        If Application.CountIf(r.Resize(, 4), "") _
            + Application.CountIf(r.Resize(, 4), 0) = 4 Then
            r.EntireRow.Hidden = True
        End If
    Next r
End Sub