Tengo realizado un modulo que según que numero introduzca con el condicional if, me salga un mensaje u otro.
He creado una repetición con el bucle do while...loop, para que solo introduzcar del 1 al tres y sino vuelva a pedirlo, pero no sale del bucle, me pide en cada vuelta que introduzca el dato. ponga 1 o 2 o 3
La variable la declaro como Variant o como String y da lo mismo, Porque el inputbox da como string y no como Integer.
Estoy buscando información de como se usa, pero creo que es asi, no veo el problema, ¿Me pueden ayudar?
Pongo el código:
Sub Escalado()
Dim Escalado As Variant
Do While Escalado <> "1" Or "2" Or "3"
MsgBox "Tienes que poner un numero del 1 al 3", vbInformation, "ENVIO CORREO PLANTILLA"
Escalado = InputBox("Tipo de escalado 1, 2 o 3", "ENVIO PLANTILLA", " SOLO INTRODUCIR UN NUMERO 1 - 2 o 3")
Loop
If Escalado = "1" Then
MsgBox "escalado n1"
ElseIf Escalado = "2" Then
MsgBox "escalado n2"
Else
MsgBox "escalado n3"
End If
End Sub