Welcome to the forum!
This is one way to load a combobox if your data is in a range of cells when the form is first activated and also how you can run a procedure based on the ListIndex of the combobox
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Private Sub UserForm_Activate()
Dim i As Integer
For i = 1 To Range(Range("A1"), Range("A1").End(xlDown)).Count
ComboBox1.AddItem Range("A1").Offset(i - 1, 0).Value
You could also store your items you want to add in an Array and loop through the array to add the items. I am using a form in the VBE to do the above procedures.
There are currently 1 users browsing this thread. (0 members and 1 guests)