SOLVED!HIDE ROWS IF CERTAIN CELLS BLANK

[ROBINSYN]

IS THERE A WAY I CAN ASSIGN A MACRO TO HIDE CERTAIN ROWS IF FOR EXAMPLE E2,E3,E4'E5 ARE =0. AND ANOTHER MACRO TO ONHIDE ALL ROWS.


ANY HELP APPRECIATED
This message was edited by ROBINSYN on 2002-10-27 18:13

 

[kskinne]

try these out:

Sub Hide_Rows()
Application.ScreenUpdating = False
If [E2].Value = 0 Then Rows("2").EntireRow.Hidden = True
If [E3].Value = 0 Then Rows("3").EntireRow.Hidden = True
If [E4].Value = 0 Then Rows("4").EntireRow.Hidden = True
If [E5].Value = 0 Then Rows("5").EntireRow.Hidden = True
Application.ScreenUpdating = False
End Sub

Sub Unhide_Rows
Rows("2:5").EntireRow.Hidden = False
End Sub

HTH
kevin

 

[Juan Pablo González]

How about autofiltering E1:E5 for blanks ?

 

[kskinne]

good point Juan Pablo

Robin, you could also make this into a macro:

Sub Hide_Me()
[E2:E5].AutoFilter Field:=1, Criteria1:="<>0"
End Sub

and assign it to a command button. the macro to unfilter it would be:

Sub Unhide_Me()
[E2:E5].AutoFilter Field:=1
End Sub

kevin