Ayuda con Condiciones

[Gakex]

Lo que debes hacer es utilizar la recursivida, es decir que la funcion se llame a si misma, en este caso cuando encuentre un error se llamara a si misma para empesar de nuevo y se llamara a si misma las veces que sea necesario hasta recibir un valor permitido.


Sub ejemplo()
'
' ejemplo Macro
' ejemplo
'
' Acceso directo: Ctrl+Mayús+U
'

x = InputBox("escribe un numero")

If Not IsNumeric(x) Then
x = MsgBox("Ingresa Solo Numeros", 1 + 48)
call ejemplo
End If

If x >= 1 And x <= 10 Then
Range("A1").Select
ActiveCell.FormulaR1C1 = x
Else
x = MsgBox("Escoje un numero entre el 1 y el 10 ", 1 + 48)
call ejemplo
End If

End Sub