hide rows of blank cells

[Galen]

this is the code i have

Sub StatesCleanup()
Dim rngCell As Range
Dim rng As Range

Set rng = Sheets("Summary").Range("c24:c74")

For Each rngCell In rng.Cells
If rngCell.Value = "" Then
rngCell.EntireRow.Hidden = True
End If
Next rngCell


End Sub


but there is a second range (d24:d74) that may ahve different cells that are
blank. If i just set the rang to c24:d74 the it hides rows that are blank in
one cloumn but have a vlue in the other. I only want to hide rows that are
blank in both columns. any help would be greatly appreciated thanks!

 

[Jacob Skaria]

Try the below

Sub StatesCleanup()
Dim rngCell As Range
Dim rng As Range

Set rng = Sheets("Summary").Range("c24:c74")

For Each rngCell In rng.Rows
If Trim(rngCell.Offset(, 0) & rngCell.Offset(, 1)) = "" Then
rngCell.EntireRow.Hidden = True
End If
Next rngCell

End Sub

If this post helps click Yes

 

[Galen]

that worked great! thanks
--
Thanks,

Galen

Try the below

Sub StatesCleanup()
Dim rngCell As Range
Dim rng As Range

Set rng = Sheets("Summary").Range("c24:c74")

For Each rngCell In rng.Rows
If Trim(rngCell.Offset(, 0) & rngCell.Offset(, 1)) = "" Then
rngCell.EntireRow.Hidden = True
End If
Next rngCell

End Sub

If this post helps click Yes