Microsoft Office Forums - View Single Post - UserForm with Combo Box from data in table within template

gmayor · 06-12-2019, 11:13 PM

At its simplest you would just add items to the combobox e.g.

Code:

Private Sub UserForm_Initialize()
    With ComboBox1
        .AddItem "Select an Item"
        .AddItem "This is the first item"
        .AddItem "This is the second item"
        .AddItem "This is the third item"
        .ListIndex = 0
    End With
End Sub

or you could use an array e.g.

Code:

Private Sub UserForm_Initialize()
Dim vList As Variant
    vList = Array("Select an Item", "This is the first item", "This is the second item", "This is the third item")
    With ComboBox1
        .List = vList
        .ListIndex = 0
    End With
End Sub

or a combination of the two e.g.

Code:

Private Sub UserForm_Initialize()
Dim vList(3) As Variant
    vList(0) = "Select an Item"
    vList(1) = "This is the first item"
    vList(2) = "This is the second item"
    vList(3) = "This is the third item"

    With ComboBox1
        .List = vList
        .ListIndex = 0
    End With
End Sub

You would populate the appropriate part of the document, ideally using a content control, with the value from the combobox.