Combobox question

[litestream]

I have 2 Comboboxes on a User Form. Both show the same information taken from the result of a formula in a worksheet cell. For demonstration purposes, both boxes show integers from 1 to 44.

Would it be possible to show the number 1 in the first box and 44 in the second when the form is loaded rather than just 2 blank boxes?

Private Sub UserForm_Initialize()
Label1.Caption = Sheets("Summary").Range("B16").Value
Label2.Caption = Sheets("Summary").Range("D16").Value

Dim i As Integer
Dim j As Integer

With Sheets("Summary")
With ComboBox3
       For i = 1 To Worksheets("Summary").Range("L19").Value
          .AddItem i
       Next
End With
End With

With Sheets("Summary")
With ComboBox4
       For j = 1 To Worksheets("Summary").Range("L19").Value
          .AddItem j
       Next
End With
End With

End Sub

When the form is loaded, nothing is shown in either Combobox until the arrow is clicked.

 

[SlinkRN]

Hi Litestream,
Go to the properties of the comboboxes and type the appropriate number in the "text". HTH, Slink

 

[litestream]

Thanks for your reply.

Changing the "text" property would work fine for showing 1 in the first combobox, but the second box changes constantly. Is there a way to show the last number in the range each time?

 

[SlinkRN]

Hi again,
Yes, I'm sure that can be done. I assume the value in L19 is the highest number in the combobox so if you assign the value of L19 to a variable and then use code to set the text to that variable that should work. I have to go to work now but if nobody else helps you before tonight I'll take a look at it then. Slink

 

[litestream]

Thanks, that would be awesome.

 

[SlinkRN]

OK, here you go

Private Sub UserForm_Initialize()
Label1.Caption = Sheets("Summary").Range("B16").Value
Label2.Caption = Sheets("Summary").Range("D16").Value

Dim i As Integer
Dim j As Integer
Dim txt As Integer

With Sheets("Summary")
With ComboBox3
       For i = 1 To Worksheets("Summary").Range("L19").Value
          .AddItem i
       Next
End With
End With

With Sheets("Summary")
With ComboBox4
       For j = 1 To Worksheets("Summary").Range("L19").Value
          .AddItem j
       Next
    txt = Worksheets("summary").Range("l19").Value
    ComboBox4.Text = txt
        
End With
End With

End Sub

It worked for me, hope it works for you! Slink

PS: You really don't have to assign the value to a variable if you don't want to. You can use this code instead.

Private Sub UserForm_Initialize()
Label1.Caption = Sheets("Summary").Range("B16").Value
Label2.Caption = Sheets("Summary").Range("D16").Value

Dim i As Integer
Dim j As Integer

With Sheets("Summary")
With ComboBox3
       For i = 1 To Worksheets("Summary").Range("L19").Value
          .AddItem i
       Next
End With
End With

With Sheets("Summary")
With ComboBox4
       For j = 1 To Worksheets("Summary").Range("L19").Value
          .AddItem j
       Next
     ComboBox4.Text = Worksheets("summary").Range("l19").Value
        
End With
End With

End Sub

 

[litestream]

That was awesome!

Thank you so much