UserForm ComboBox Change Event Question

**tja1964** · 05-10-2012, 06:16 PM

I was wondering, can you give a combobox a value i.e. Me.ComboBox1.ListIndex = 0 and not have the ComboBox change event fire unless the value gets changed?

Private Sub test()
Me.combobox1.RowSource = "ComboTypes"
Me.ComboBox1.ListIndex = 0
End Sub

Private Sub ComboBox1_Change()
'do stuff if value is changed
End Sub

Private Sub ComboBox2_Change()
'do more stuff
End Sub

I'm finding that since I'm giving a value to ComboBox1, the focus switches to ComboBox2 without user interaction. I would like ComboBox1 to have focus and wait till the user presses the enter button, or clicks combobox2 with the mouse (acknowledging that combobox1 has the correct default value). Is that possible?

**JosephP** · 05-10-2012, 06:37 PM

you need to use a variable as a flag to skip the change code

Dim bNoEvents as Boolean
Private Sub test()
Me.combobox1.RowSource = "ComboTypes"
bNoEvents = True
Me.ComboBox1.ListIndex = 0
bNoEvents = False
End Sub

Private Sub ComboBox1_Change()
If bNoEvents then Exit Sub
'do stuff if value is changed
End Sub

Private Sub ComboBox2_Change()
If bNoEvents Then exit sub
'do more stuff
End Sub