01/06/2006, 01:29
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 18 años, 5 meses Puntos: 1 | |
| La segunda pregunta es fácil
Añade este código en los lugares correspondientes. Lo que está en azul es lo que ya tienes.
volver:
Range("C1").Value = InputBox(Mensaje, Título) ' mensaje para insertar el dinero final
If Range("C1").Value = "" Then
MsgBox ("Debe introducir un número")
GoSub volver
End If
volver:
Range("D1").Value = InputBox(Mensaje1, Título1) ' mensaje para insertar el dinero final
If Range("D1").Value = "" Then
MsgBox ("Debe introducir un número")
GoSub volver
End If
Lo de que escriba un número es algo similar, pero hay que identificar lo de la celda como número. Ahora mismo no me acuerdo como es pero si buscas por excel o por VBA seguro que lo encuentras. Si no lo encuentras, cuando tenga un rato te lo busco si eso.
Me parece que tú estás demasiado consentido, jejejeje.
__________________
El sabio no dice nunca todo lo que piensa,
pero siempre piensa todo lo que dice.
Aristóteles :pensando: |