Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

InputBox: Evitar error al pulsar botón "Cancelar"

luismc

Member
Registrado
3 Abr 2014
Mensajes
60
Hola a todos los foreros,

Tengo el siguiente código con dos InputBox y si se pulsa el botón Cancelar aparece un error que interrumpe el procedimiento.
¿Cómo se podría evitar?

¿Por otra parte, se...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
dos InputBox y si se pulsa el botón Cancelar aparece un error que interrumpe el procedimiento.
¿Cómo se podría evitar?
cambia esta parte del codigo:
Código:
Do
    in1 = InputBox("Introduzca el peso en kg", "Cálculo de IMC")
Loop Until IsNumeric(in1)

Peso = in1
' Tomar solamente valores numéricos para la altura
Do
    in2 = InputBox("Introduzca la altura en cm", "Cálculo de IMC")
Loop Until IsNumeric(in2)
por algo +/- como esto:
Código:
cargaPeso:
  in1 = CInt(Val(InputBox("Introduzca el peso en kg", "Cálculo de IMC")))
  If in1 <= 0 Then GoTo cargaPeso
  Peso = in1
' Tomar solamente valores numéricos para la altura
cargaAltura:
  in2 = CInt(Val(InputBox("Introduzca la altura en cm", "Cálculo de IMC")))
  If in1 <= 0 Then GoTo...
Volver
Arriba