Problems creating multiple dropdown lists in one userform

[jameslytle]

Need help.

I am trying to create a userform that has (Currently) four dropdown lists but I am having issues once I add the third and fourth list.

In Excel I created a name for each list of items to be used i the dropdown lists (i.e. List Name - Eye for a list of eye colors and Name - Hair for hair colors).

My problem is that I have four drop down lists. Everything was working fine until I tried to add the third and fourth drop down lists. The first two lists worked just fine but the third and fourth one I get an error message (Run time Error '1004' Method 'range' of object '_Global' failed). Now if I take the range listed for list number 2 and put it in list number 3 it works fine by showing the drop down list for number 2 on number 3 as well.

Below is a copy of the programming that I have set up for the userform so far.

Please tell me what I am doing wrong.

Thanks.

Private Sub UserForm_Initialize()
With PhenoCombo
.List = Range(PhenoType).Value
.Value = "Human"
End With

With GenderCombo
.List = Range(Gender).Value
End With

With EyeCombo
.List = Range(Eye).Value
End With

With HairCombo
.List = Range(Hair).Value
End With


End Sub

Jim

 

[alansidman]

Here is link to a tutorial on dependent combo boxes.

https://www.contextures.com/exceluserformdependentcomboboxes.html

 

[jameslytle]

Thanks for the response Alansidman but it does not help me as I am not trying to create dependent combo boxes. Each combo box is separate and has its own list assigned to it. It is just that for some reason the third and fourth ones I keep getting the error that I mentioned above and it does not show the dropdown list. The coding for the third and fourth list is exactly the same as for the second list, just linking to a different combobox and linking to a different named list.

 

[Fluff]

Named ranges need to go in quotes like

Private Sub UserForm_Initialize()
With PhenoCombo
.List = Range("PhenoType").Value
.Value = "Human"
End With

 

[jameslytle]

Thanks Fluff,

That solved my problems. That being said why did my first two lists work correctly as they also did not have the quotes but did not give me any errors when I ran them?

Jim

 

[Fluff]

The only reason why they worked, that I can think of, is that you have them set as public variables