RE: still get runtime error 424

Tech-Archive recommends: Speed Up your PC by fixing your registry

Hi

This is weird but I tried this and the form at least runs but I still don't
get the range in the combo box?

Private Sub UserForm_Initialize()
ComboBox2.RowSource = rng
rng = ThisWorkbook.Sheets("Patients").Range("A1:A12")

End Sub
tnx,
"FSt1" wrote:

hi,
perhaps i wasn't clean myself. i ment load the combo boxes in the
initialization sub. use the add item method. see my last post.

regards
FSt1

"Janis" wrote:

Just to make it easier to understand I just tried to load just the one combo
box with the
Private Sub UserForm_Initialize()

ComboBox2.RowSource =
ThisWorkbook.Sheets("Patients").Range("A1:A12").Address(external:=True)
End Sub

I get the error message runtime 380 cannot load the rowsource?

"FSt1" wrote:

hi
no variable needed.
post the code your are using. for list box and combo box.

Regards
FSt1

"Janis" wrote:

Sorry, am I supposed to create a variable for the Listbox1.rowsource line?
I still get runtime error. It can't load the listbox. It is just column A,
for easy testing I just used the first few rows but I need all last names in
the listbox.

So are you saying I must load the other two control combox'es the same way?
What I did here works except for this list box but are you saying in order to
run a procedure based on the choice I need to load them the same as the
listbox I will change it but can you tell me why I get the 424 error?
Thanks,

Private Sub UserForm_Initialize()


ComboBox1.AddItem "Print Single"
ComboBox1.AddItem "Print Multiple"
ComboBox1.AddItem "Exit"
ComboBox3.AddItem Date
'ComboBox1.ListIndent = 1

ListBox1.RowSource =
ThisWorkbook.Sheets("Patients").Range("A1:A12").Address(external:=True)
End Sub
.

Quantcast