Issue with ComboBox

[Rocky0201]

Hi.

I have a ComboBox (ComboBox36) that I wish to use two ways if possible.

First, The user can select a value from the dropdown list. Once the value is selected, the code runs and acts on the selection.

Second, the user can enter data into the ComboBox. Once the enter key is press, the code runs and acts on the value entered.

I've tried the following to no avail.

Private Sub ComboBox36_Change()

Run Code

End Sub

Private Sub ComboBox36_AfterUpdate()

Run Code

End Sub

In the above example, I can select "ABC" from the dropdown and the Change event runs and ABC is diplayed in the ComboBox. If I change ABC to XYZ, the moment I change A to X the Change events runs again.

I guess I'm looking to make the changes in the ComboBox , press enter and the AfterUpdate Event would run.

If I did away with the Change Event and only use the AfterUpdate Event, I can still select ABC from the dropdown but the event does not run.

Am I trying to do something that is not possible?

Thanks.

 

[GTO]

Am I correct that this is in a UserForm?

 

[mikerickson]

This will react to the user either selecting from the list or typing in a value and pressing return. Changing the focus in the Click event is the VBA equivalent of the user pressing enter.

Private Sub ComboBox1_AfterUpdate()
    Me.Caption = ComboBox1.Text
    Rem call routine
End Sub

Private Sub ComboBox1_Click()
    TextBox1.SetFocus
End Sub

 

[Rocky0201]

Thank you both!!!

GTO - Yes, it is a UserForm in fact it is my Page 2 of Mulitpage.

mikerickson - The routine seems to work. I did change TextBox1 to ComboBox1 in the Click Event.

Thanks again...