VBA Macro to hide rows depending on the cell value - Can I do this multiple times?

Hello,

I'm very new to VBA and could really do with some help, I've got the following code to work:

Sub test1()

If Range("sheet2!c9") = 0 Then
ActiveSheet.Rows("10:11").EntireRow.Hidden = True
Else

If Range("sheet2!c9") <> 0 Then
ActiveSheet.Rows("10:11").EntireRow.Hidden = False
Else


End If: End If:


End Sub



But I need to repeat this depending on the value in other cells on the same page to hide other rows?

I've read other posts but can't seem to get anything to work.

Please help, Regards Natalie

Firstly, you don't need that second IF statement. The target cell will either be a 0 value or not....therefore you just need the one IF - ELSE:

If range("Sheet2!C9").value = 0 then
     rows("10:11").entirerow.hidden = true
else                                                               '  ie, cell C9 doesn't equal 0.
     rows("10:11").entirerow.hidden = false
end if

to add other cells / rows to this, simply copy the code you're using and change the cell / row reference. eg:

If range("Sheet2!C9").value = 0 then
     rows("10:11").entirerow.hidden = true
else
     rows("10:11").entirerow.hidden = false
end if

if range("Sheet2!G26").value = 0 then
     rows("30:31").entirerow.hidden = true
else
     rows("30:31").entirerow.hidden = false
end if

Thanks Swoop99, I've used:


Sub Worksheet_Change(ByVal Target As Range)

'Set 1
If Range("N8").Value = 0 Then
ActiveSheet.Rows("12:14").EntireRow.Hidden = True
Else
ActiveSheet.Rows("12:14").EntireRow.Hidden = False
End If

'Set 2
If Range("N18").Value = 0 Then
ActiveSheet.Rows("21:23").EntireRow.Hidden = True
Else
ActiveSheet.Rows("21:23").EntireRow.Hidden = False
End If

'Set 3
If Range("N29").Value = 0 Then
ActiveSheet.Rows("30:33").EntireRow.Hidden = True
Else
ActiveSheet.Rows("30:33").EntireRow.Hidden = False
End If

'Set 4
If Range("N35").Value = 0 Then
ActiveSheet.Rows("39:41").EntireRow.Hidden = True
Else
ActiveSheet.Rows("39:41").EntireRow.Hidden = False
End If

End Sub



Thanks for your reply!