Hello -
I think I understand my issue, which is that I cant have two or more same names of functions in a module/worksheet. I have tried desperately at attempting to merge these two but no luck. Much appreciate it if you can help out.
Thanks!!!
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$C$3") Then
If Target.Value = "1" Then
Rows("20:23").EntireRow.Hidden = True
Rows("28:31").EntireRow.Hidden = True
Rows("35:38").EntireRow.Hidden = True
Rows("42:45").EntireRow.Hidden = True
Rows("19:19").EntireRow.Hidden = False
Rows("27:27").EntireRow.Hidden = False
Rows("34:34").EntireRow.Hidden = False
Rows("41:41").EntireRow.Hidden = False
ElseIf Target.Text = "2" Then
Rows("21:23").EntireRow.Hidden = True
Rows("29:31").EntireRow.Hidden = True
Rows("36:38").EntireRow.Hidden = True
Rows("43:45").EntireRow.Hidden = True
Rows("19:20").EntireRow.Hidden = False
Rows("27:28").EntireRow.Hidden = False
Rows("34:35").EntireRow.Hidden = False
Rows("41:42").EntireRow.Hidden = False
ElseIf Target.Text = "3" Then
Rows("22:23").EntireRow.Hidden = True
Rows("30:31").EntireRow.Hidden = True
Rows("37:38").EntireRow.Hidden = True
Rows("44:45").EntireRow.Hidden = True
Rows("19:21").EntireRow.Hidden = False
Rows("27:29").EntireRow.Hidden = False
Rows("34:36").EntireRow.Hidden = False
Rows("41:43").EntireRow.Hidden = False
End If
End If
End Sub
I think I understand my issue, which is that I cant have two or more same names of functions in a module/worksheet. I have tried desperately at attempting to merge these two but no luck. Much appreciate it if you can help out.
Thanks!!!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$C$5") Then
If Target.Value = "0" Then
Rows("62:71").EntireRow.Hidden = True
Rows("72:74").EntireRow.Hidden = True
ElseIf Target.Value = "1" Then
Rows("63:71").EntireRow.Hidden = True
Rows("62:62").EntireRow.Hidden = False
Rows("72:74").EntireRow.Hidden = False
ElseIf Target.Value = "2" Then
Rows("64:71").EntireRow.Hidden = True
Rows("62:63").EntireRow.Hidden = False
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$C$3") Then
If Target.Value = "1" Then
Rows("20:23").EntireRow.Hidden = True
Rows("28:31").EntireRow.Hidden = True
Rows("35:38").EntireRow.Hidden = True
Rows("42:45").EntireRow.Hidden = True
Rows("19:19").EntireRow.Hidden = False
Rows("27:27").EntireRow.Hidden = False
Rows("34:34").EntireRow.Hidden = False
Rows("41:41").EntireRow.Hidden = False
ElseIf Target.Text = "2" Then
Rows("21:23").EntireRow.Hidden = True
Rows("29:31").EntireRow.Hidden = True
Rows("36:38").EntireRow.Hidden = True
Rows("43:45").EntireRow.Hidden = True
Rows("19:20").EntireRow.Hidden = False
Rows("27:28").EntireRow.Hidden = False
Rows("34:35").EntireRow.Hidden = False
Rows("41:42").EntireRow.Hidden = False
ElseIf Target.Text = "3" Then
Rows("22:23").EntireRow.Hidden = True
Rows("30:31").EntireRow.Hidden = True
Rows("37:38").EntireRow.Hidden = True
Rows("44:45").EntireRow.Hidden = True
Rows("19:21").EntireRow.Hidden = False
Rows("27:29").EntireRow.Hidden = False
Rows("34:36").EntireRow.Hidden = False
Rows("41:43").EntireRow.Hidden = False
End If
End If
End Sub