Adding A String To ComboBox

[Chubski]

Hello,

Looking for a quick assist on this question please.

I have a userform with a number of comboboxes on.
Of these I have a subset that need to be populated with the same selection options and each individually point to a unique cell on a sheet.

The question is how to create a string of say the standard 5 selections for that subset and at the point the user form is initialised have the string loaded to the specified say 10 comboboxes.

Text 1
Text 2
Text 3
Text 4
Text 5

I don't want to use .additem for each combobox.

I've tried .List and .ListFillRange with the String but no luck.

Thanks & regards

Chubski

 

[Chubski]

Hi

Quick update - think I've managed to solve the issue.
Couldn't really find an easy way to add a string to a combobox.

Instead I found an answer from rorya which helped me by using an array of the required text options within the comboboxes and then adding them to the specific comboboxes with .List before loading / showing the UserForm.

http://www.mrexcel.com/forum/showthread.php?t=361245&highlight=Array+ComboBoxes

Private Sub FillUserForm()
Dim CBSubData
CBSubData = Array("Text 1","Text2","Text3","Text4","Text5")
UserForm1.ComboBox1.List = CBSubData
UserForm1.ComboBox3.List = CBSubData
UserForm1.ComboBox5.List = CBSubData
UserForm1.ComboBox7.List = CBSubData
UserForm1.Show
End Sub

Cheers

Chubski