Create List for ComboBoxes
Using the .rowsource property is another way.
But I would use something like:
Private Sub UserForm_Initialize()
Dim rng as Range
with worksheets("Names")
set rng = .range("B2",.Cells(.Rows.Count, "B").End(xlUp))
end with
'I think the form was named FrmMTCLog.
me.combobox1.RowSource = rng.address(external:=true)
End Sub
Then if the worksheet name changed, I'd only have one spot to fix (or use the
Codename for that sheet and not have to worry???).
JLGWhiz wrote:
Private Sub UserForm_Initialize()
rng = Sheets("Names").Cells(Rows.Count, 2).End(xlUp).Address
Me.FrmMTCLog.RowSource = "Names!$B$2:" & rng
End Sub
"Dave Peterson" wrote in message
...
One way:
In the _initialize procedu
with worksheets("Names")
me.combobox1.list = .range("B2",.cells(.rows.count,"B").end(xlup)).val ue
end with
(last filled in column B, right???)
Benjamin wrote:
I need to create a dropdown combobox that has the names from Columb B in
Sheet "Names"
The combobox is in Form FrmMTCLog
the drop down is: combobox1
I need the combobox1 to have a list of all the names from Sheet"Names"
Cell
b2 and down to the last filled in Column.
--
Dave Peterson
--
Dave Peterson
|