04/10/2010, 11:57
|
| | | Fecha de Ingreso: octubre-2010
Mensajes: 6
Antigüedad: 14 años, 1 mes Puntos: 0 | |
| Respuesta: Ayuda con Condiciones
perdon se me olvidaba, aquie esta el codigo nuevo use la solucion de call
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
ya funciona perfecto, lo unico es que si no escribes nada en el inputbox(ninguna letra ni numero) no te deja salir hasta que pongas algo ahi, como podria hacerle??
yo pensaba que era algo de if x= "", pero no se que mas sigue |