Hide Row With Zero Values

NoSparks · #1 03-17-2020, 06:07 AM

another possibility

Code:

Sub HideZeroValueRows()
    Dim ws As Worksheet, rng As Range, cel As Range
    For Each ws In ThisWorkbook.Sheets
        Set rng = ws.Range("H3", ws.Cells(Rows.Count, "I").End(xlUp).Offset(-1))
        For Each cel In rng
            If cel.HasFormula And cel.Value = 0 Then cel.EntireRow.Hidden = True
        Next cel
    Next ws
End Sub

Marcia · #2 03-17-2020, 10:14 PM

Thank you Jeffrey and Sparks for the code. Both work great in the sample file but I failed to mention that the actual workbook contains sheets that should not be affected by the HideRows macro. The macro should be applied to specific sheets in the workbook.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Table with values from several locations and years - need to find comp values	Ricardo Sousa	Excel	9	07-27-2018 02:06 AM
Table with values from several locations and years - need to find comp values	Ricardo Sousa	Excel	6	06-09-2018 10:51 PM
Display multiple values as new values based on selection from template.	MvdB	Excel	2	09-29-2015 08:51 PM
Hide rows in multiple columns based on zero values	Deane	Excel Programming	19	06-23-2015 11:24 PM
How to Hide/Un-hide a worksheet based on cell on another sheet.	easton11	Excel Programming	1	06-02-2015 12:07 PM