Marcar un CheckBox, a partir de un numero en un celda
Quisiera que me ayduaran con un proyecto que estoy haciendo y necesito lo siguiente:
-Marcar o desmarcar un CheckBox a partir de un numero escrito en una celda. (1) Marca (0) Descarca
Estoy utilizando este código, el objetivo lo consigo pero solo haciendo click, ósea, no me marca el checkbox automatico
Private Sub CheckBox1_Click()
If Range("Q2").Value = 1 Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If
End Sub
Para poder ver reflejado el resultado, tengo q marcar manualmente y si se ve reflejado y en ese caso no lo puedo descarmar por la condicion del codigo.
¿Pudiera verse reflejado automaticamente el checkbox al solo ingresar el numero en la celda?
Porque necesito marcar muchos checkbox entonces con solo escribir 1 o 0 pudiera ser mucho mas rapido.
1 Respuesta
Hola Abraham, Gracias por leer, Estoy usando el "CheckBox" desde la hoja, como controles de ActiveX.
Usa el evento "Change" de la hoja. Aquí supondré que tienes tres "checkbox" y que se activan/desactivan dependiendo de si tiene un uno (1) o no en A1, A2 y A3 respectivamente.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A3")) Is Nothing Then
If Target.Value = 1 Then
Select Case Target.Address
Case "$A$1"
CheckBox1.Value = True
Case "$A$2"
CheckBox2.Value = True
Case "$A$3"
CheckBox3.Value = True
End Select
Else
Select Case Target.Address
Case "$A$1"
CheckBox1.Value = False
Case "$A$2"
CheckBox2.Value = False
Case "$A$3"
CheckBox3.Value = False
End Select
End If
End If
End Sub
Comentas
Abraham Valencia
PD: Al inicio estoy colocando "Hola" pero el foro se está "comiendo" el saludo
Hola Abraham, El foro está un poco lento. Me apareció la respuesta a los 10min después.
Gracias por tu tiempo, Me sirvió totalmente, tuve que medio indagar, porque soy muy novato en esto de la programación.
Excelente Respuesta!
De nada, salu2
Abraham Valencia
PD: en general es medio lento el servidor je je je
