Como crear Macro para contar Checkbox seleccionados
Me gustaría si es posible me ayudaras en lo siguiente: tengo una hoja excel en la cual tengo un total de 315 Checkbox y necesito una macro que me cuente cuantos checkbox están seleccionados a partir del Nº 211 hasta el 315.
1 respuesta
¿Los checkbox los creaste con un control activeX?
Prueba si funciona lo siguiente, deberás poner un commandbutton para iniciar el conteo
Private Sub CommandButton1_Click()
'por.dam
cuenta = 0
For i = 211 To 315
If Controls("CheckBox" & i) = True Then
cuenta = cuenta + 1
End If
Next
MsgBox cuenta
End Sub
Saludos. Dam
Si es lo que necesitas.
Gracias Dam por tu respuesta, es correcto los Checkbox lo cree con control activeX y están ubicados en la hoja 1 de excel, y requiero que al activar alguno de los checkbox la macro corra y me cuente cuanto de los checkbox que van del 211 a 315 están activos.
Igual probé la macro que me enviaste y me da un error de compilación que me indica que "No se ha definido la Sub o Function"
¿Pero creaste un commandbutton con activeX?
¿Asociaste la macro a ese botón?
Si, lo cree y lo asocie...
Cambia esta línea
If Controls("CheckBox" & i) = True Then
Por esta
If oleobjects("CheckBox" & i) = True Then
Prueba y me comentas
Realice el cambio y me indica Error 438 en tiempo de ejecución: El Objeto no admite esta propiedad o método
Ya probé lo siguiente y si funciona, crea un módulo en VBa y pega la siguiente macro
Sigue las Instrucciones para ejecutar la macro
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5
Sub cuenta3()
For i = 211 To 315
cuenta = 0
If ActiveSheet.OLEObjects("Checkbox" & i).Object.Value = True Then
cuenta = cuenta + 1
End If
Next
MsgBox cuenta
End Sub
Saludos. Dam
Si es lo que necesitas.
