
03/10/2010, 23:35
|
 | | | Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 15 años, 2 meses Puntos: 53 | |
Respuesta: Ayuda con Condiciones 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
__________________ Agradecer a quien te enseñó, es enseñar lo que de él aprendiste. Recuerda: Decir gracias, poco cuesta y mucho vale ... |