help with adding list box to userform
Chris, replace the "ListBox" with a combobox, then add this line of code to
your Userform_Activate() sub:
ComboBox1.RowSource = Range(Range("MyRange").Offset(4), _
Range("MyRange").Offset(4).End(xlDown)).Address
Assuming that My Range is a named range and is actually "MyRange" as excel
doesn't like spaces.
--
Charles Chickering
"A good example is twice the value of good advice."
"Chris" wrote:
I have this code when the userform loads:
Private Sub UserForm_Activate()
' Read initial values from 4 rows after "My Range":
lCurrentRow = Range("My Range").Cells(4, 1).Row
LoadRow
I need to add listbox1 to this UserForm_Active sub.
I put a list box on the userform so that the user can select which
record to go to on the worksheet so they can edit the record through
the userform. I am not quite sure how to populate the data onto the
list box so the user can choose which record to go to.
I need the listbox to only be populated with data from column A
starting 4 rows after "My Range" through the next blank cell in column
A. Is there an easy way to do this and have the list box be more of a
drop down box?
Thanks in advance for any assistance.
|