A Macro to Hide Rows

[Roopen]

Hi

I am in need of a macro that will hide the rows if the total of a given row is zero in Column M.

I would ultimately want this macro to be activated using a button. (which I know how to add)

Any help on the code would be of huge help!

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("M" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    Rows(i).Hidden = Range("M" & i).Value = 0
Next i
Application.ScreenUpdating = True
End Sub

 

[Roopen]

Peter, this works a treat a huge thank you !

 

[Roopen]

Try

Sub test()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("M" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    Rows(i).Hidden = Range("M" & i).Value = 0
Next i
Application.ScreenUpdating = True
End Sub

Hi Peter, A quick problem... When I run the macro it also hides the top 10 rows that have no data in... How do I change this code so it actually only supresses zero values from column M from row 11 to 31?

Many thanks

 

[VoG]

Just change the 1 to 11

Sub test()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("M" & Rows.Count).End(xlUp).Row
For i = 11 To LR
    Rows(i).Hidden = Range("M" & i).Value = 0
Next i
Application.ScreenUpdating = True
End Sub

 

[Momentman]

Hi Peter, A quick problem... When I run the macro it also hides the top 10 rows that have no data in... How do I change this code so it actually only supresses zero values from column M from row 11 to 31?

Many thanks

Replace For i=1 to LR with For i = 11 to 31

 

[Roopen]

Thank you very much for all your help... Works a treat now !