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
Bookmarks