Question : Fill Combo Box Method

Hi All,

I am developing a very simple form based Excel application with no cell referencing at all.

I have a combo box on a user form named DaysOfSupply that needs to display the values 1 - 100. i.e. 1, 2, 3, 4 and so forth.

Does anyone know a quick way to that I can populate it with the 100 values without using the .additem method for each of the 100 values.

I want to do this on the form initialise event.

Thanks in advance.

CF

Answer : Fill Combo Box Method

If you want to loop instead, then you can use the code you posted in the Initialize sub, but you don't want x + 1, you want x:

1:
2:
3:
4:
5:
6:
7:
8:



Private Sub UserForm_Initialize()
    Dim x as long
    With Me.DaysOfSupply
      For x = 1 To 100
        .AddItem x
      Next x
    End With
End Sub

Question : Fill Combo Box Method

Answer : Fill Combo Box Method

If you want to loop instead, then you can use the code you posted in the Initialize sub, but you don't want x + 1, you want x: 1: 2: 3: 4: 5: 6: 7: 8: Private Sub UserForm_Initialize() Dim x as long With Me.DaysOfSupply For x = 1 To 100 .AddItem x Next x End With End Sub

If you want to loop instead, then you can use the code you posted in the Initialize sub, but you don't want x + 1, you want x:

1: 2: 3: 4: 5: 6: 7: 8:

Private Sub UserForm_Initialize() Dim x as long With Me.DaysOfSupply For x = 1 To 100 .AddItem x Next x End With End Sub