combo box user form code for two combo boxes

**robert.begley1** · 12-01-2012, 11:57 AM

Hi,
I have a user form with two combo boxes, the code below is what i used when only had one combo box, but when i use the same code one for each combo box, only one will work, obviously i did change the code to combo box 2 for the second one.

please can anyone give me an idea where i went wrong.
many thanks for reading

Private Sub ComboBox1_Change()

Private Sub UserForm_initialize()
Dim cbtarget As MSForms.ComboBox
Dim rngsource As Range
Set rngsource = Worksheets("drop down lists").Range("a5:a15")
Set cbtarget = Me.ComboBox1
With cbtarget
.List = rngsource.Cells.Value
End With
End Sub

many thanks for reading and hopefully helping.

**Norie** · 12-01-2012, 12:51 PM

What exact code are you using for 2 comboboxes?

**robert.begley1** · 12-01-2012, 01:04 PM

the code i used for one box as above, then entered again with a different range and box name

**robert.begley1** · 12-01-2012, 01:14 PM

I think perhaps all the code for the two boxes should be together but nothing I have tried so far works, thank you for taking the time to look, maybe you can give me a code that will work.

**Norie** · 12-01-2012, 01:14 PM

It's not 100% clear what code you have.

If you just copied that code then you would get a ambiguous name detected on the UserForm_Initialize event.

**robert.begley1** · 12-01-2012, 01:30 PM

that is exactley what happened, here is the code i used.

Private Sub UserForm_initialize()
Dim cbtarget As MSForms.ComboBox
Dim rngsource As Range
Set rngsource = Worksheets("drop down lists").Range("a5:a15")
Set cbtarget = Me.ComboBox1
With cbtarget
.List = rngsource.Cells.Value
End With
End Sub


Private Sub UserForm_initialize()
Dim cbtarget As MSForms.ComboBox
Dim rngsource As Range
Set rngsource = Worksheets("drop down lists").Range("b5:b15")
Set cbtarget = Me.ComboBox2
With cbtarget
.List = rngsource.Cells.Value
End With
End Sub

i tried just deleting initialize on the second lot of code, but the second combo box still did not work

**Norie** · 12-01-2012, 01:33 PM

Try this.

Private Sub UserForm_initialize()
    Dim cbtarget As MSForms.ComboBox
    Dim rngsource As Range
    Set rngsource = Worksheets("drop down lists").Range("a5:a15")
    Set cbtarget = Me.ComboBox1
    With cbtarget
        .List = rngsource.Cells.Value
    End With

    Set rngsource = Worksheets("drop down lists").Range("b5:b15")
    Set cbtarget = Me.ComboBox2
    With cbtarget
        .List = rngsource.Cells.Value
    End With
End Sub

**robert.begley1** · 12-01-2012, 01:41 PM

you are a genius, thank you so much, I have added to your reputation

**Norie** · 12-01-2012, 02:25 PM

Thanks Robert, was kind of worried it might not work for the Mac.

combo box user form code for two combo boxes

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

combo box user form code for two combo boxes

Re: combo box user form code for two combo boxes

Re: combo box user form code for two combo boxes

Re: combo box user form code for two combo boxes

Re: combo box user form code for two combo boxes

Re: combo box user form code for two combo boxes

Re: combo box user form code for two combo boxes

Re: combo box user form code for two combo boxes

Re: combo box user form code for two combo boxes

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions