Combobox Number Entry.

[d34n0]

I have a combobox in a userform used to record the floor/level number (G, 1, 2, 3 etc). Is it possible to write the code any other way than have 12 different lines of ".additem" code for each 1 to 12 number entries representing the floor number?

Thanks

 

[Richard Schollar]

Hi

Perhaps something like this:

Private Sub UserForm_Initialize()
With Me.ComboBox1
    .List = Range("A1:A10").Value
End With
End Sub

 

[Andrew Poulsom]

You could use a loop, eg:

For i = 1 To 12
    ComboBox1.AddItem i
Next i

 

[kgkev]

maybe something like

.AddItem = "G"

For Floor = 1 To 12
    .AddItem = Floor
Next Floor

 

[d34n0]

The loop solution is kind of what I had in mind but i just failed to get the format right.

Thank you all for your help

Regards

D34n0