JHogan0721
New Member
- Joined
- Dec 7, 2016
- Messages
- 12
I am new to VBA and working on a userform but am ready to pull my hair out with something I fear is very simple. I have a combobox (Cntrl2) that I want to populate with manager names. I have a range titled DMNames that I set as my rowsource property for the combobox. This works fine and when I click the box the names populate perfect. The trouble starts when I try to select one of the names when testing the userform. All names show up but I can't select them. I have multiple userforms for this project and have the same manager combobox on another form that works perfectly. I have compared all the properties to ensure that the box is not locked, other textboxes allow for data entry so I don't believe to userform is locked. I am at a loss. I have this combobox set to populate another box after selection has been made. Below are some details that may help.
Combobox = Cntrl2
Locked Property = False
RowSource Property = DMNames (a static range from worksheet "List Values" cells k2:k8)
Here is the code attached to Cntrl2 that populates the next combobox (Cntrl3)
I'm not sure if it matters but the combobox is on a multipage control on the userform.
Any help would be greatly appreciated, as this is my first post I may have missed some important details. Let me know if you need more info.
Thanks
Combobox = Cntrl2
Locked Property = False
RowSource Property = DMNames (a static range from worksheet "List Values" cells k2:k8)
Here is the code attached to Cntrl2 that populates the next combobox (Cntrl3)
Code:
Private Sub Cntrl2_Change()
Me.Cntrl2 = ""
Select Case Me.Cntrl2 'provide rep auto-fill info based on DM name'
Case "Brad Ward"
Me.Cntrl3.RowSource = "Brad_Ward_Rep_Names"
Case "David Bible"
Me.Cntrl3.RowSource = "David_Bible_Rep_Names"
Case "Justin Brooking"
Me.Cntrl3.RowSource = "Justin_Brooking_Rep_Names"
Case "Justin Hogan"
Me.Cntrl3.RowSource = "Justin_Hogan_Rep_Names"
Case "Mark Thornton"
Me.Cntrl3.RowSource = "Mark_Thornton_Rep_Names"
Case "Steve Rosenzweig"
Me.Cntrl3.RowSource = "Steve_Rosenzweig_Rep_Names"
Case "Ted Fisher"
Me.Cntrl3.RowSource = "Ted_Fisher_Rep_Names"
End Select
End Sub
I'm not sure if it matters but the combobox is on a multipage control on the userform.
Any help would be greatly appreciated, as this is my first post I may have missed some important details. Let me know if you need more info.
Thanks