ERROR TIPO 13 EN INPUTBOX AL DEJAR VACIO O DAR CANCELAR

gacg1310 · el 30 de julio

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 · el 31 de julio

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 · el 31 de julio

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 · el 31 de julio

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