help solve - Ambiguous Name Detected

[mark9988]

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)

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

 

[GWteB]

Both codes merged would look like

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

    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

 

[johnnyL]

Or maybe even:

Private Sub Worksheet_Change(ByVal Target As Range)
'
    If Target.Address = ("$C$5") Then
        Select Case Target.Value
            Case Is = "0"
                Worksheets("Sheet1").Range("62:71,72:74").EntireRow.Hidden = True
            Case Is = "1"
                Worksheets("Sheet1").Range("63:71").EntireRow.Hidden = True
                Worksheets("Sheet1").Range("62:62,72:74").EntireRow.Hidden = False
            Case Is = "2"
                Worksheets("Sheet1").Range("64:71").EntireRow.Hidden = True
                Worksheets("Sheet1").Range("62:63").EntireRow.Hidden = False
        End Select
    End If
'
    If Target.Address = ("$C$3") Then
        Select Case Target.Value
            Case Is = "1"
                Worksheets("Sheet1").Range("20:23,28:31,35:38,42:45").EntireRow.Hidden = True
                Worksheets("Sheet1").Range("19:19,27:27,34:34,41:41").EntireRow.Hidden = False
            Case Is = "2"
                Worksheets("Sheet1").Range("21:23,29:31,36:38,43:45").EntireRow.Hidden = True
                Worksheets("Sheet1").Range("19:20,27:28,34:35,41:42").EntireRow.Hidden = False
            Case Is = "3"
                Worksheets("Sheet1").Range("22:23,30:31,37:38,44:45").EntireRow.Hidden = True
                Worksheets("Sheet1").Range("19:21,27:29,34:36,41:43").EntireRow.Hidden = False
        End Select
    End If
End Sub

 

[mark9988]

perfect - Thank you!!!

 

[GWteB]

Glad we could help and thanks for letting us know