drop down box. IF function

[DylanUK21]

Hi,

So i have a userform that was working fine, I now want the drop down list items to show certain values based on another combobox`s value.

The previous list was determined by the following code:

Private Sub UserForm_initialize()

cmbDEESHACKLE.List = Split("SSLRDS0.33,SSLRDS0.50,SSLRDS0.75,SSLRDS1.00,SSLRDS2.00,SSLRDS3.00,SSLRDS4.00,SSLRDS5.00,SSLRDS6.00", ",")

Now I thought it would be as simple as putting:

If cmbEYEB.List = "M10" Then

cmbDEESHACKLE.List = Split("SSLRDS0.33", "SSLRDS0.5", "SSLRDS0.75", "SSLRDS1.0", ",")
Else
End If


But when I do it comes up with an error

"Wrong number of arguments or invalid property assignment"





The full code proposed is:


Private Sub cmbEYEB_Change()

If cmbEYEB.List = "M10" Then

cmbDEESHACKLE.List = Split("SSLRDS0.33", "SSLRDS0.5", "SSLRDS0.75", "SSLRDS1.0", ",")

End If

If cmbEYEB.List = "M12" Then

cmbDEESHACKLE.List = Split("SSLRDS0.33", "SSLRDS0.50", "SSLRDS0.75", "SSLRDS1.00", ",")
Else
End If

If cmbEYEB.List = "M16" Then

cmbDEESHACKLE.List = Split("SSLRDS0.33", "SSLRDS0.50", "SSLRDS0.75", "SSLRDS1.00", "SSLRDS2.00", "SSLRDS3.00", ",")
Else
End If

If cmbEYEB.List = "M20" Then

cmbDEESHACKLE.List = Split("SSLRDS0.33", "SSLRDS0.50", "SSLRDS0.75", "SSLRDS1.00", "SSLRDS2.00", "SSLRDS3.00", "SSLRDS4.00", "SSLRDS5.00", ",")
Else
End If

If cmbEYEB.List = "M24" Then

cmbDEESHACKLE.List = Split("SSLRDS0.33", "SSLRDS0.50", "SSLRDS0.75", "SSLRDS1.00", "SSLRDS2.00", "SSLRDS3.00", "SSLRDS4.00", "SSLRDS5.00", ",")
Else
End If

If cmbEYEB.List = "M30" Then

cmbDEESHACKLE.List = Split("SSLRDS0.33", "SSLRDS0.50", "SSLRDS0.75", "SSLRDS1.00", "SSLRDS2.00", "SSLRDS3.00", "SSLRDS4.00", "SSLRDS5.00", ",")
Else
End If

If cmbEYEB.List = "M36" Then

cmbDEESHACKLE.List = Split("SSLRDS0.33", "SSLRDS0.50", "SSLRDS0.75", "SSLRDS1.00", "SSLRDS2.00", "SSLRDS3.00", "SSLRDS4.00", "SSLRDS5.00", ",")
Else
End If



End Sub



Any ideas

[torachan]

upload your workbook - it is bad practice to hard code your list variables - put them into a sheet list then load your comboboxes from the sheet list.
p.s. please put your code between code tags so that we can run it in formatted form as required.

[DylanUK21]

Hi,

As soon as I read that it clicked! Sorted it now, thanks for your reply.

Yes I am new to all this VBA stuff - I am even surprised how far along I am with this sheet I`ve created!

Thanks