un-hiding hidden cells :P

[zilch4ry]

hi all,

i have this code (i had a lot of help from this website already!) which hides all rows which have a value of 0, but the problem im having is if the customer go back and change one of their orders to 1 the macro still shows the row as hidden. I was wondering if anybody could possibly show me what to add to the end of this code for it to unhide rows, once a value of 1 or higher has been entered.

here's the code:

Sub subb()
Application.ScreenUpdating = False

Dim r As Long, LR As Long, stxt As String
LR = Cells(Rows.Count, "G").End(xlUp).Row
        For r = LR To 2 Step -1
                If Range("G" & r).Value = 0 Then
                    Rows(r).EntireRow.Hidden = True
                End If
        Next r
End Sub

Thanks in advance,


Tom

---- Is there also a way of having the macro run all of the time? so that it updates without the user having to manually click the assigned button. thanks again

 

[VoG]

Try

Sub subb()
Application.ScreenUpdating = False
Dim r As Long, LR As Long, stxt As String
LR = Cells(Rows.Count, "G").End(xlUp).Row
For r = LR To 2 Step -1
    Rows(i).Hidden = Range("G" & r).Value = 0
  
Next r
End Sub

 

[zilch4ry]

thank you for the answer, but I was given an error. It said there was an "application-defined or object-defined error" highlighting the

    Rows(i).Hidden = Range("G" & r).Value = 0

row. Any ideas? I'm very bad at visual basic

 

[VoG]

Sorry, it should be

Rows(r).Hidden = Range("G" & r).Value = 0

 

[zilch4ry]

I don't know what you did but thank you very much for the help