PDA

View Full Version : Comboboxes filling with for loop



bvs123
07-24-2011, 07:58 AM
Hey,

I have got 12 comboboxes, all to be filled with the same three options, let's say A, B and C.

Can I do this with something like this:

for i =1 to 12
ComboBoxi.AddItem "A"
ComboBoxi.AddItem "B"
ComboBoxi.AddItem "C"
next i

Have not been able to figure this out, still a beginner to VBA. Would appreciate your help very much.

Best regards

mikerickson
07-24-2011, 09:07 AM
Something like
For i = 1 to 12
With Me.Controls("ComboBox" & i)
.AddItem "A"
.AddItem "B"
.AddItem "C"
End With
Next i

Kenneth Hobs
07-24-2011, 09:10 AM
Welcome to the forum!

Similar to Mike's:
Private Sub UserForm_Initialize()
Dim i As Integer
With ComboBox1
.AddItem "A"
.AddItem "B"
.AddItem "C"
End With
For i = 2 To 12
Controls("ComboBox" & i).List = ComboBox1.List
Next i
End Sub

mikerickson
07-24-2011, 09:17 AM
Expanding on Kenneth's:
For i = 1 to 12
Me.Controls("ComboBox" & i).List = Array("A", "B", "C")
Next i

:) (Do ya think we can get this down to 0 lines?) :)