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

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.

 

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

 

Editado el el 31 de julio5 años por Antoni

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

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

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

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

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

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

Doy por cerrado el tema