Ayuda con Condiciones

[erbuson]

Hola, para hacer lo que pides es suficiente con que pongas un Goto por ejemplo así:

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

x = InputBox("escribe un numero")

If Not IsNumeric(x) Then
x = MsgBox("Ingresa Solo Numeros", 1 + 48)
Goto Arriba
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)
Goto Arriba
End If

End Sub


Saludos