Need help with a Hide rows Macro

[copleyr]

Hello all,

I am in desperate need of a macro that will look in column "AU" of the current sheet, rows 15-45, and rows 50-80. For any cell in that area that displays a 0, i need the macro to hide that whole row.

Thank you for your help in advance!

 

[MrKowz]

perhaps:

Public Sub hidezerovalues()
Dim i   As Long
Application.ScreenUpdating = False
For i = 15 To 45
    If Range("AU").Value = 0 Then
        rows(i).Hidden = True
    End If
Next i
For i = 50 To 80
    If Range("AU").Value = 0 Then
        rows(i).Hidden = True
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[copleyr]

Thanks Mr Kowz

I got a run-time error '1004':
Method 'Range' of object'_Global' failed.

Any ideas?

it was pointing to this

If Range("AU").Value = 0 Then

 

[MrKowz]

Public Sub hidezerovalues()
Dim i   As Long
Application.ScreenUpdating = False
For i = 15 To 45
    If Range("AU" & i).Value = 0 Then
        rows(i).Hidden = True
    End If
Next i
For i = 50 To 80
    If Range("AU" & i).Value = 0 Then
        rows(i).Hidden = True
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[copleyr]

Worked perfectly. Thank you so much!!!

 

[copleyr]

Hey,

Was wondering if I can get a reverse Macro to unhide all the rows I had just hidden.

Thank you in advance!

 

[MrKowz]

Try:

Public Sub hidezerovalues()
Dim i   As Long
Application.ScreenUpdating = False
For i = 15 To 45
    If Range("AU" & i).Value = 0 Then
        rows(i).Hidden = False
    End If
Next i
For i = 50 To 80
    If Range("AU" & i).Value = 0 Then
        rows(i).Hidden = False
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[copleyr]

Perfect! Thanks so much for helping me out.