Enabling active X Drop down combo box after making selection

[Virge]

Hi,

I have what should be an easy situation but can't figure it out. I am creating a user form which consist of several comboboxes and I am having a problem with the code below to work two combo boxes in the following way:

When selecting the word NONE on combox1 with the drop button click procedure combobox2 should be disabled upon clicking on the dropdown button of combobox2. This works, the problem is I want the users to continue down the form selecting information from other non related comboboxes, but the entire sheet locks up and the cursor does not move from combobox2 unless I hit esc, which would be a nuisance for the users of the form.

Private Sub ComboBox2_Dropbutt*******()


If ComboBox1.Text = "NONE" Then
ComboBox2.Enabled = False


Else
ComboBox2.Enabled = True


End If




End Sub

 

[dmt32]

Hi welcome to forum.

see if this does what you want:

Private Sub ComboBox1_Change()
Me.ComboBox2.Enabled = Not Me.ComboBox1.Text = "NONE"
End Sub

Dave

 

[Virge]

Thanks Dave, this does exactly what I need.

Appreciate your quick response