Forum Discussion

CTinson's avatar
CTinson
Copper Contributor
Nov 30, 2021

Macro for hiding/unhiding rows based on multiple drop down menu needed please

Hi I'm really really beginner at this macro/VBA stuff. My expertise goes as far as googling and using formulas on forums etc    I'm trying to produce a dynamic 'drop down flow chart selector' ... t...
excel
Macros and VBA
HansVogelaar's avatar
HansVogelaar
MVP
Nov 30, 2021

CTinson 

How about

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Select Case Target.Address
        Case "$C$13"
            Select Case Range("C13").Value
                Case "Code 2", "Code 3"
                    Range("A22:A32").EntireRow.Hidden = False
                    Range("C25").Select
                    Range("C25").ClearContents
                Case "Code 1", "Code 4"
                    Range("A22:A58").EntireRow.Hidden = True
            End Select
        Case "$C$25"
            Select Case Range("C25").Value
                Case "Yes"
                    Range("A33:A44").EntireRow.Hidden = False
                    Range("C37").Select
                    Range("C37").ClearContents
                Case "No"
                    Range("A33:A58").EntireRow.Hidden = True
            End Select
        Case "$C$37"
            Select Case Range("C37").Value
                Case "Yes"
                    Range("A45:A58").EntireRow.Hidden = False
                    Range("C49").Select
                    Range("C49").ClearContents
                Case "No"
                    Range("A45:A58").EntireRow.Hidden = True
            End Select
    End Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Resources