Jump to content
georgegch

Desmarcar o limpiar CheckBox vbOKCancel

Recommended Posts

Hola a toda la comunidad, espero me puedan ayudar a un problema al parecer simple, pero no he podido darle solución a esto:

Tengo un checkBox1 con esté código que al activarlo y me salga el mensaje de Ok y Cancel, al presionar el botón OK, se ejecuta la macro "ModificarFicha" (Hasta ahí todo bien)....

Private Sub CheckBox1_Click()
Dim respuesta As Variant 

respuesta = MsgBox("¿Desea registrar ahora la ficha?" + Chr(13) + "¿Desea proceder?", vbOKCancel)

If CheckBox1.Value = 1 And _
respuesta = vbOK Then
ModificarFicha
End If

End Sub

El problema resulta cuando ya tengo el checkbox1 activado y ya se ejecuto la macro "ModificarFicha" porque presioné Ok. en mi formulario ya llene todos los textbox y campos obligatorios, a la hora de querer procesar la información a mi listbox de mi formulario por medio del boton "AnotarLinea", cuando ya presiono este boton y al final de todo lo que ejecuta me deje limpios los Checkbox (vease el código del boton en la parte inferior), me VUELVE A SALIR EL MENSAJE si quiero aplicar la macro "MODIFICARFICHA" que presione OK o Cancel de mi CheckBox1. y lo que quiero evitar es esto.

Lo que quiero es que no me aparezca ya este mensaje al momento de presionar el boton "AnotarLinea"  y al final me desactive o limpie el CheckBox1

El código que aplico para el Botón "AnotarLinea" es este:

Private Sub AnotarLínea_Click()
ListBox1.ColumnHeads = True
X = LC.Range("A" & Rows.Count).End(xlUp).Row + 1
For Y = 1 To 17: LC.Cells(X, Y) = Controls(Controles(Y)).Value: Next
ListBox1.RowSource = "'" & LC.Name & "'!A2:Q" & X

cb_dpto = ""
txt_cantidad = ""
txt_peso = ""
txt_pesototal = ""
txt_precioU = ""
txt_importe = ""
txt_igv = ""
txt_ganancia = ""
txt_preciovtatotal = ""
txt_preciovtagramo = ""
CheckBox1.Value = 0
fotografia.Picture = LoadPicture("")

sumarImportes


End Sub

Espero me puedan ayudar he intentado algunas formas pero se puede con los CheckBox simples de marcar o desmarcar, sin ningun cuadro de dialogo de por medio.

Share this post


Link to post
Share on other sites
Hace 20 horas, Macro Antonio dijo:

Yo lo haría así.

Libro1.xls

Hola Macro Antonio, a lo me referia es hacer algo parecido a eso pero en los CheckBox, para aclarar mas el asunto adjunto el excel.

Al activar el CheckBox1 que dice ActualIZAR Ficha me aparece el mensaje si quiero aceptar o cancelar para activar la macro ModificarFicha, hasta ahi todo bien, el problema que tengo que al procesar la información completada en mis textbox y pasarla al listbox inferior con el boton ANOTAR LINEA, este supuestamente me limpia todos los checkbox, pero tambien de nuevo me aplica el cuadro de dialogo si quiero volver a MODIFICAR FICHA y sale aceptar o cancelar y eso es lo que yo no quiero que me aparezca de nuevo, solamente cuando presiono el CheckBox que le corresponde.

 

Espero tu ayuda. Gracias de antemano.

checkbox duda.rar

Share this post


Link to post
Share on other sites

Hola a toda la comunidad, aún no encuentro solución a mi problema :(, espero me puedan hechar una mano, gracias de antemano.

 

pd. si se necesita alguna información adicional me dicen, en el segundo comentario deje el archivo adjunto

Share this post


Link to post
Share on other sites
En 17/5/2016 at 8:39 , nachobm dijo:

hola georgegch,

prueba a poner 


if checkbox1 then

delante de la linea de código que tienes en el evento del checkbox1_click

Muchas Gracias @nachobm ese era lo que me faltaba, entre tanto código algo faltaba. Tema solucionado

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Hola! Puede alguien ayudarme a corregir esta sentencia? Son dos condiciones. Si la Celda A es igual a "Referencia 23" y la D no contiene la palabra "Almacén" entonces MsgBox "..." Lo probé de dos formas pero no hace bien el filtro, he leído que lo suyo es usar el If Not pero entonces también creo que lo aplica a lo segundo y no funciona: 1) If Cells(i, "A").Value = "Referencia 23" And Cells(i, "D").Value <> "*Almacén*" Then MsgBox.... 2) If Not Cells(i, "D").Value Like "*almacén*" And Cells(i, "A").Value = "Referencia 23" Then MsgBox … Gracias!
    • @pixelatumente, te recomiendo que rellenes los campos de tu perfil referentes al separador de argumentos y versión de Excel que usas. Con Excel 365 hay una respuesta fácil a tu consulta.
    • Gracias por tu aportación. Estoy probando añadiendo más información en la columna B pero no funciona.
    • Saludos compañeros,tengo una tabla dinamica con algunas medidas,una de ellas devuelve el ultimo vendedor que tuvo cierto cliente,el caso es que cuando filtro por vendedor,efectivamente muestra el vendedor,pero sigue mostrando los clientes que antes atendia pero que ya no,solo que en la columna ult vendedor queda la celda vacia,lo que me indica que ese cliente lo tiene actualmente otro vendedor,lo que deseo es que cuando se realice el filtro solo aparezca el vendedor con su cliente actual,sin celdas en blanco en la columna ultvendedor,en el ejemplo adjunto hay mas aclaratorias.tengo otras preguntas que estan relacionadas con el mismo archivo pero no se si es posible hacer varias preguntas en u mismo post,la otra pregunta es como puedo meter en un slicer una medida para filtrar por esa medida,en la columna estatus tengo el estatus de activo,down y bajada quiero un slicer que cuando selecione lost me aparezcan solo los clientes perdidos por ejemplo,y finalmente como puedo hacer un conteo de los clientes con los diferentes estatus por vendedor para poder hacer luego un analisis de cuantos clientes perdidos,activos o en bajada tienen cada vendedor,si debo hacer estas preguntas en otro post me disculpo y lo hare seguro,volvemos solo a la primera pregunta,si no hay lio en responder las otras preguntas se los agradezco.saludos cordiales mis estimados Maestro de pedidos 1.2.xlsx
    • Hola @Antoni, muchas gracias por la respuesta, funciona bien, pero me di cuenta de algo que tal vez no empleé término correcto. Me estoy dando cuenta que si el valor del MONTO TOTAL reflejado en la columna J varía por modificaciones que se haga en la información. El valor que se copió en la hoja CONTROL GENERAL no se actualiza. Creo que empleé mal el término copiar como valor. Debería actualizarse si CONTROL1 se modifica. Así se mantiene actualizada la información en caso de cambios. Agradecido de antemano y disculpa no haberme expresado bien.  Gracias
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy