¿En esta línea de vba Excel, qué tengo mal?

Quiero que me digas y corijas el error que tengo en esta línea Or

If ComboBox1 = "FISICA" Or "NATURAL" Or "TRANSEUNTE" Or "RESIDENTE" Then
Worksheets("DATOS").Cells(final, 6) = TextBox1.Value & " " & TextBox2.Value & " " & TextBox3.Value
End If

Si el ComboBox1 su texto es = "FISICA" Or "NATURAL" Or "TRANSEUNTE" Or "RESIDENTE" entonces

Sigue la línea siguiente

También trate con

If ComboBox1 = "FISICA" And "NATURAL" And "TRANSEUNTE" And "RESIDENTE" Then pero sin exito

Error 13 No coinciden los tipos

Tanto con el 1ª como el 2ª

Tengo otra pregunta sobre MsgBox para después de esta porque también me manda error pero 1º esta y luego la otra

2 Respuestas

Respuesta
1

Intente:

If ComboBox1 = "FISICA" Or ComboBox1 = "NATURAL" Or ComboBox1 = "TRANSEUNTE" Or ComboBox1 = "RESIDENTE" Then
    Worksheets("DATOS").Cells(final, 6) = TextBox1.Value & " " & TextBox2.Value & " " & TextBox3.Value
End If
Respuesta
1

También es factible que utilices para estos casos la sentencia Select Case

    Select Case combobox1
        Case "FISICA", "NATURAL", "TRANSEUNTE", "RESIDENTE"
            Sheets("DATOS").Cells(Final, 6) = TextBox1 & " " & TextBox2 & " " & TextBox3
    End Select

s a l u d o s

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas