Populating a ComboBox in a UserForm

[I Maycotte]

Hi everyone,

My main question is: how do I populate a combobox located in a userform with items from an array? I thought I would use .AddItem like I would a listbox, but it simply will not populate. Here is the code:

Please Login or Register  to view this content.

Any advice? Thanks in advance.

-- Isaac

[kev_06]

Currently, you're trying to add items to a combobox under a change event. The combobox will populate if you enter a value in or somehow change the text/value shown in a combobox. I think you're looking for something that will load the combobox on start, in which case put the code under a userform_initialize event. Something like this:

Private Sub UserForm_Initialize()
Dim MyArray As Variant
Dim Ctr As Integer

MyArray = Array("Item1", "Item2", "Item3", "Item4", "Item5")

For Ctr = LBound(MyArray) To UBound(MyArray)
ComboBox1.AddItem MyArray(Ctr)
Next Ctr
End Sub

[I Maycotte]

Thanks a whole lot Kev. I appreciate it.