Problem with Combo boxes population

[nieironsio]

Hello - I am having problem populating my combo boxes and list boxes. I have coded the following:

Private Sub UserForm_Initialize()
textb1.Value = ""

With combobox1
.AddItem "A"
.AddItem "B"
End With
cb1.Value = ""

textbox1.SetFocus
End Sub

This works fine but for some reason when you click another button on my userform next time i go back to combo box 1 A and B are there twice so my list becomes abab instead of ab.

Any help would be much appreciated - thanks - Nie

 

[xlbo]

when adding items, you should always clear first unless you are adding iteratively:

Private Sub UserForm_Initialize()
textb1.Value = ""

With combobox1
.clear
.AddItem "A"
.AddItem "B"
End With
cb1.Value = ""

textbox1.SetFocus
End Sub

However, the root cause of this is that your userform is being initialised multiple times - something in your code on other controls must be doing this...probably shouldn't be...


Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question