Need help with this code for hiding rows with "0"

Use this in the code module of the sheet where you have your data that is being entered. Change

Worksheets("Sheet that you want to filter")
to
have the actual sheet name...

Please Login or Register  to view this content.

Actually, this may be better - hidden rows at the bottom of your list may not reset otherwise, since they will be missed by the End-Up combo...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RngCell As Range
With Worksheets("Sheet that you want to filter")
.Cells.EntireRow.Hidden = False
For Each RngCell In .Range(.Range("I5"), .Cells(.Rows.Count, "I").End(xlUp))
RngCell.EntireRow.Hidden = RngCell = 0
Next RngCell
End With
End Sub

Actually, the range that this will return:

.Cells(.Rows.Count, "I").End(xlUp)

is the lowest visible cell in column I of the worksheet "Networth", because it is moving up from cell I1048576, which is cell I35 - it is not moving up from I35 to find I6.

But, your row 36 is hidden. If you had a formula in I36, one that could return a non-zero value, it would never be un-hidden because the code would skip it. Based on your workbook, my concern really should not be a problem, but I just wanted to point it out to you. And it never hurts to completely reset all the rows to visible before hiding them again.

You should start with whatever cell at the top has a value, to combine with the cell found at the bottom to completely cover filled cells. If you do all of I, blank rows at the top of I may hide headers in other columns.

And you can never just use "I" - at best, you can use "I:I", but you also need to make sure that you are not processing the million + cells of the entire column. Stick with what I posted.