Combobox's In a Userform

[bonzodog1990]

Hi All!

So basically I have a combobox in a userform that I want to be populated by information in a spreadsheet. Easy enough right? Apparently not. I thought the syntax for this was something like:

with *combobox1*
.additem "thing1"
.additem "thing2"

End with

And that works fine, but I want to use pre specified ranges, which i think I've declared properly like this:

dim ccy as range
set ccy as Range("cell1:cell2")

But when I try and use that range to populate my box, none of the syntax's i've found online seem to work. Can you suggest anything?

Additionally, I have this weird bug where I can use identical code for different userforms and it works for some not others. Like, I have a correctly populated combobox written on a test form, and put the same code on my real form, and it doesn't work. Only the names change. I'll screengrab that at work if it makes no sense, but any suggestions appreciated!

Cheers all

 

[Domenic]

For the first part, try...

[font=Verdana]    [color=darkblue]Dim[/color] ccy [color=darkblue]As[/color] Range
    
    [color=darkblue]Set[/color] ccy = Range("A2:A10")
    
    Me.ComboBox1.List = ccy.Value[/font]

 

[bonzodog1990]

Lol, fail at remembering how to declare things. I did use the right syntax for that at work

Will give that a try!

 

[Domenic]

Also, you may want to qualify the range reference with the sheet name. For example, if the range of interest is on Sheet1, use the following instead...

Set ccy = [COLOR="Red"]Worksheets("Sheet1").[/COLOR]Range("A2:A10")

 

[bonzodog1990]

Yeah, I'm a lazy git, qualifying sheets is never going to happen

 

[Domenic]

Yeah, I'm a lazy git, qualifying sheets is never going to happen