Help with Userform ComboBoxes

[JADownie]

Hello -

I have setup a userform with 6 different combo boxes for users to make selections from and a Submit button.

I have macros setup for each of the comboboxes similar to what I am showing here below.

Essentially, each combobox has choices from 1-4, and then those choices are linked to an autofilter macro. So as an example, if the user selects Financial Services, then the form should run macro Team_1.

I would like for the user to be able to makle their selections on the userform, and then click Submit, and that would then run the appropriate macro based on the users selections on the form, and display the filtered data.

I am strugglig now with programming my Submit button to basically read the inputs for the 6 comboboxes, and execute the appropriate macro. Could someone please help me with this first one? I know that once I see the code written, I will understand it, and be able to replicate for my other comboboxes.

Thanks SO much in advance for your help here today!!

Private Sub ComboBox1_Change()
If Me.ComboBox2.Value = "Financial Services" Then
Call Team_1

ElseIf Me.ComboBox2.Value = "Consumer" Then
Call Team_2

ElseIf Me.ComboBox2.Value = "Tel/Tech" Then
Call Team_3

ElseIf Me.ComboBox2.Value = "B&C" Then
Call Team_4

End If

End Sub

 

[CharlesH]

Hi,

If the "Summit" command button is Name "Summit" the you should do some thing like this

Private Sub Summit_Click()
If Me.ComboBox2.Value = "Financial Services" Then
Call Team_1

ElseIf Me.ComboBox2.Value = "Consumer" Then
Call Team_2

ElseIf Me.ComboBox2.Value = "Tel/Tech" Then
Call Team_3

ElseIf Me.ComboBox2.Value = "B&C" Then
Call Team_4

End If

End Sub

 

[JADownie]

Thanks!

I have used this code here for my CommandButton1, but when I click the button, nothing seems to be executing....

Private Sub CommandButton1_Click()

If Me.ComboBox2.Value = "Financial Services" Then
Call Team_1

ElseIf Me.ComboBox2.Value = "Consumer" Then
Call Team_2

ElseIf Me.ComboBox2.Value = "Tel/Tech" Then
Call Team_3

ElseIf Me.ComboBox2.Value = "B&C" Then
Call Team_4

End If

End Sub

 

[CharlesH]

Hi,

Instead of using the "Me" change it to the userform name.

 

[Norie]

Have you checked that the values in the code match those in the combobox?

 

[JADownie]

Thanks! Yes, I have double checked the spelling and made sure that there were no leading or extra spaces.... Seems like it should work

 

[JADownie]

Just changed them all from Me to userform1 and still nothing runs when I click the button

Private Sub CommandButton1_Click()

If UserForm1.ComboBox2.Value = "Financial Services" Then
Call Team_1

ElseIf UserForm1.ComboBox2.Value = "Consumer" Then
Call Team_2

ElseIf UserForm1.ComboBox2.Value = "Tel/Tech" Then
Call Team_3

ElseIf UserForm1.ComboBox2.Value = "B&C" Then
Call Team_4

End If

End Sub

 

[Norie]

Where did you put the code?

Is there something selected in ComboBox2 when the code runs?

Does the code run? You can check that by putting a break point on the first line with F9.

 

[mikerickson]

Try adding one testing line at the start of the routine.

MsgBox Me.ComboBox2.Text

Also, = is case sensitive in VBA, might that be an issue?