Combo box macro multiple arguments....

[ExcelNovice]

I'm trying to use multiple arguments in my combo box macro as shown below, but it does not work....any help will be appreciated:

With Sheets("Sheet1")
If ComboBox2 = "Honda"; "Ford"; "Toyota" Then
.Range("cg219") = 1
Else
.Range("cg219") = 0
End If

End With

Thanks

 

[Sektor]

I guess, you better use Checkboxes or ListBox with multiple selections (MultiSelect = frmMultiSelectMulti).

 

[ExcelNovice]

Sektor, thanks but that will not work; need to use the Combo Box.

 

[Sektor]

You can't select multiple items in Combobox.

 

[AlphaFrog]

Try this...

    With Sheets("Sheet1").Range("CG219")
        If ComboBox2.Value = "Honda" Or ComboBox2.Value = "Ford" Or ComboBox2.Value = "Toyota" Then
            .Value = 1
        Else
            .Value = 0
        End If
    End With

Or this...

    With Sheets("Sheet1").Range("CG219")
        Select Case ComboBox2.Value
            Case "Honda", "Ford", "Toyota"
                .Value = 1
            Case Else
                .Value = 0
        End Select
    End With

Or this...

    Sheets("Sheet1").Range("CG219").Value = Abs((ComboBox2.Value= "Honda") + (ComboBox2.Value= "Ford") + (ComboBox2.Value = "Toyota"))

 

[ExcelNovice]

Ok....thanks.