ERROR TIPO 13 EN INPUTBOX AL DEJAR VACIO O DAR CANCELAR

[gacg1310]

buenos dias:

les envio un archivo en TXT en donde al oprimir un optionbutton me habilita un inputbox donde se solicita digitar un numero, pero al dejar vacio y dar aceptar o dar boton cancelar me sale "ERROR 13 NO COINCIDEN LOS TIPOS" en la siguiente linea del archivo adjunto.

CANTPEQ = InputBox("Ingrese la cantidad a enviar", "CANTIDAD A ENVIAR")

Agradezco su ayuda

MUESTRA.txt

[Mauricio_ODN]

Hola Intento1.1.xlsb@gacg1310

Sin una muestra del archivo es difícil acertar, en base a él archivo TXT que envias te dejo una posible, pero muy alejada solución.

Saludos.

 

[Antoni]

Sin el archivo con el formulario y datos para probar es difícil darte una respuesta.

De todas formas hay algo que no se entiende, ¿Como pretendes hacer click en la option si la ocultas?

¿No deberías usar un botón?, lo dicho, sin el archivo Excel, no hay nada que hacer.

Prueba así:

Private Sub OptionButton1_Click()
If IsNumeric(Label1) Then
   Do: cantpeq = InputBox("Ingrese la cantidad a enviar", "CANTIDAD A ENVIAR")
       If IsNumeric(cantpeq) Then
         Label4 = Label1 - cantpeq
         Label5 = Label2
         Label6 = Label3
         Label7 = Label9
         Label8 = Label10
         Label12 = Label11
       End If
   Loop While Not IsNumeric(cantpeq)
End If
End Sub

 

[gacg1310]

Buenos dias, adjunto el archivo.

El Userform4 al ejecutarlo, la idea es la siguiente:

Si el label 1 es vacio no debe aparecer el optionbutton1

Si el label 2 es vacio no debe aparecer el optionbutton2

Si el label 3 es vacio no debe aparecer el optionbutton3

 

El error que me genera tambien es cuando oprimo cualquier optionbutton y me abre el inputbox pididendo la cantidad a digitar y esta es vacia y le doy aceptar O le doy cancelar me sale "ERROR TIPO 13" y se detiene en esta linea:

CANTPEQ = InputBox("Ingrese la cantidad a enviar", "CANTIDAD A ENVIAR")

Agradezco muchisimo su ayuda, buen dia desde Colombia

VERSION 5.9.xlsm

[Antoni]

Tienes un lío conceptual impresionante, intentaré subirte algo hoy y si no, mañana.

[gacg1310]

antoni, me puedes explicar  por que lios conceptuales, quisiera aprender mas, gracias

[Antoni]

Revisa el adjunto, el código está comentado, compáralo con el tuyo para ver las diferencias.

Puede que haya algún error de interpretación de lo que pretendes hacer.

VERSION 5.9.xlsm

[gacg1310]

Antoni, Buenos Dias desde Colombia, gracias hoy lo reviso y te estoy comentando en horas de la tarde, como siempre muchas gracias

[gacg1310]

Como siempre muchisimas gracias ANTONI. Tal cual me cogiste la idea.

Doy por cerrado el tema