Use a Macro to hide zero value rows across multiple columns.

[Nicolle]

I'm using the following Macro to hide zero rows over multiple columns and it's working great. I'm wondering what I can do to run this macro if some of the columns are blank, such as D, F, and G?

Sub HideRowsCtoBY()
Dim Last, i As Long
Application.ScreenUpdating = False
Last = Range("C:BY").Find(What:="*", After:=[C1], SearchDirection:=xlPrevious).Row
For i = Last To 1 Step -1
If Application.CountIf(Range("C" & i & ":BY" & i), "0") = 75 Then
Range("C" & i & ":BY" & i).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

Thanks!

[TMS]

Maybe:

Please Login or Register  to view this content.

Should cope with all 0, all blank, or a combination


Regards, TMS

[Nicolle]

Thanks TMS

[TMS]

You're welcome.


If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.