Making listboxes visible based on the selection of dropdownlist (vba)

[Moe12345]

Hi, I am working on a tool I need help with a function of the tool, which I am not quite sure how to apply.
I have dropdown list in cell "E4" with different possible selections. I also have multiple listboxes. What I need help is making them visible based on
what is selected in the dropdown list. That also means that the listboxes shall be hidden or not visible by default and then made to be visible
by the selection.

'These are options of the dropdown list(cell:"E4"): Sales, Operations, Finance, IT, HR
private Sub ListBox1_Click()
"IT"


End Sub

Private Sub ListBox2_Click()

 "Sales"
End Sub

Private Sub ListBox3_Click()
"Operations"
End Sub

Private Sub ListBox4_Click()
"Finance"
End Sub

Private Sub ListBox5_Click()
"HR"
End Sub

 

[sykes]

I'm assuming that your "Dropdown list" in E4, is a data validation list.
This should work - NB - test on a COPY of your work, first!

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
   If Intersect(Target, Range("E4")) Is Nothing Then Exit Sub
   
    With Me
        .ListBox1.Visible = False
        .ListBox2.Visible = False
        .ListBox3.Visible = False
        .ListBox4.Visible = False
        .ListBox5.Visible = False
    

        Select Case Target.Value
            Case "Operations"
                .ListBox3.Visible = True
            Case "Sales"
                .ListBox2.Visible = True
            Case "IT"
                .ListBox1.Visible = True
            Case "Finance"
                .ListBox4.Visible = True
            Case "HR"
                .ListBox5.Visible = True
    
        End Select
    End With
End With

... be sure to place it in the worksheet module, of the sheet in question.

 

[Moe12345]

I'm assuming that your "Dropdown list" in E4, is a data validation list.
This should work - NB - test on a COPY of your work, first!

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
   If Intersect(Target, Range("E4")) Is Nothing Then Exit Sub
  
    With Me
        .ListBox1.Visible = False
        .ListBox2.Visible = False
        .ListBox3.Visible = False
        .ListBox4.Visible = False
        .ListBox5.Visible = False
   

        Select Case Target.Value
            Case "Operations"
                .ListBox3.Visible = True
            Case "Sales"
                .ListBox2.Visible = True
            Case "IT"
                .ListBox1.Visible = True
            Case "Finance"
                .ListBox4.Visible = True
            Case "HR"
                .ListBox5.Visible = True
   
        End Select
    End With
End With

... be sure to place it in the worksheet module, of the sheet in question.

this works perfectly, thank you.

 

[sykes]

You're welcome - glad it worked, and thanks for the feedback.