Combo box list code....

[jeet_singh23]

Hi,
Please help me with the coding for the combo box. The combo box is in the userform. I want to add items in the drop down menu using VBA from range A6:A35 of a worksheet named "Summary", which may or may not be active since there are numerous sheets in one excel file.
One way I know of doing it is by going to the properties box and filling the rowsource as the range mentioned above. However, I dont want to do it that way. I am looking for some codeing only.
Can it be something like:
Sheets("Summary").Select
Combox1.Additem =(Range"A6:A35")
But the above code does not work.
Do let me know your thoughts.

 

[Tom Urtis]

This code in your userform module would do it.


Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Summary").Range("A6:A35").Value
End Sub

 

[jeet_singh23]

Hi,
Thanks for the quick reply.... I checked it but unfortunately is not working for me (perhaps something else might be interfering in my case).
Is there a way to post an attachment with thos post or send u email separatelty with the excel file?
Even in the private messages also there is no option for attaching file.... please do let me know...

Thanks....

 

[Norie]

jeet

How is the code Tom posted not working?

No items appearing in combobox? Wrong items in combobox? Errors?

 

[wigi]

You do not need to use AddItem and so on.

Like Tom said, use .List

Try:

Private Sub UserForm_Initialize()
   Combox1.List = Sheets("Summary").Range("A6:A35").Value
End Sub

 

[jeet_singh23]

yup... no items appearing.... iam actually using a multi page in this....

 

[Norie]

What, if anything, did you change in Tom's code?

Are you referring to the combobox correctly in the code?

If it's on a multipage then you might need to go through that to get to it. eg MultiPage1.Combobox1.List.