J
jlclyde
I have a form and when I initialize the form I need multiple combo
boxes to fill in with the same data. Is there an easier way then
doing .additem for each one? My code below.
Thanks Jay
Private Sub UserForm_Initialize()
With CmbxFirst 'this loads the combo
.AddItem "LDC"
.AddItem "DC"
.AddItem "DB"
.AddItem "LDDB"
.AddItem "XmasDB"
.AddItem "XmasLDDB"
.AddItem "XmasDC"
.AddItem "XmasLDC"
.AddItem "No Die"
.AddItem "Same Die As"
End With
With CmbxSecond 'this loads the combo
.AddItem "LDC"
.AddItem "DC"
.AddItem "DB"
.AddItem "LDDB"
.AddItem "XmasDB"
.AddItem "XmasLDDB"
.AddItem "XmasDC"
.AddItem "XmasLDC"
.AddItem "No Die"
.AddItem "Same Die As"
End With
boxes to fill in with the same data. Is there an easier way then
doing .additem for each one? My code below.
Thanks Jay
Private Sub UserForm_Initialize()
With CmbxFirst 'this loads the combo
.AddItem "LDC"
.AddItem "DC"
.AddItem "DB"
.AddItem "LDDB"
.AddItem "XmasDB"
.AddItem "XmasLDDB"
.AddItem "XmasDC"
.AddItem "XmasLDC"
.AddItem "No Die"
.AddItem "Same Die As"
End With
With CmbxSecond 'this loads the combo
.AddItem "LDC"
.AddItem "DC"
.AddItem "DB"
.AddItem "LDDB"
.AddItem "XmasDB"
.AddItem "XmasLDDB"
.AddItem "XmasDC"
.AddItem "XmasLDC"
.AddItem "No Die"
.AddItem "Same Die As"
End With