Suma de casillas marcadas en excel 03

Hola
Complemento sobre la respuesta de Patrice a quien saludo en el paso.
Tus datos en la columna A
=CONTAR.SI(A1:A100;""x"")
A1:A100 siendo tu rango
""X" siendo tu representación de las casillas marcadas
=CONTAR.SI(A1:A100;""x"")
tu representación de las casillas marcadas pudiendo variar
=CONTAR.SI(A1:A100;">"")

hola
para hacerlo más simple y si tus otras celdas están vacías

NBVAL(A1;A100)

¡Gracias por tus respuestas!
El problema es que no funciona. Tengo dificultades para integrar las casillas de verificación. Estoy en Excel 2003 y tengo un poco de problemas, ya que solo conozco Excel 2007.
¿Cómo puedo integrar mis casillas de verificación correctamente?

¿Alguien puede enviarme su dirección de correo electrónico para que le envíe mi archivo?

Hola,

Acabo de echar un vistazo a tu archivo, usar una cantidad tal de casillas de verificación no parece un buen método.

De hecho, en las 800 celdas de L3 a P162 hay 1911 casillas de verificación!
Muchísimas celdas contienen numerosas casillas superpuestas una sobre otra.

Me parece más sencillo escribir simplemente una X en la celda; entonces solo hay que contar el número de X con CONTAR.SI()

Puedes añadir una macro opcional para escribir o eliminar automáticamente la X cada vez que selecciones una de las 800 celdas:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("L3:P162")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Formula = "" Then Target.Formula = "X" Else Target.Formula = "" End Sub 

Si persistís con las casillas de verificación, primero hay que eliminar las 1111 casillas innecesarias.
Luego la solución consiste en definir para cada casilla una celda vinculada situada en la misma fila (clic derecho, formato de control):
lo hiciste para la casilla situada en L3 (casilla vinculada = R3), pero deberías haber vinculado la primera de las muchas casillas ubicadas en la celda L4 a la celda R4 en lugar de a R3, y así sucesivamente para las 160 casillas de esta columna, luego vincular las casillas de la columna M a las de la columna S y así sucesivamente para las 5 columnas:
¡buena suerte, hay que hacerlo una por una! (a menos que escribas una macro que lo haga por ti)

Una vez terminado, solo habrá que contar el número de VERDADERO en la columna correspondiente con CONTAR.SI()

--
Atentamente
Patrice

«¡Deseo hacer el total de las casillas marcadas para cada columna!» ???

Para contar el número de casillas marcadas, utiliza CONTAR.SI()
Para sumar los números de una columna según las celdas marcadas en otra columna, utiliza SUMAR.SI()
--
Atentamente
Patrice

Hola a todos,
Sin conexión...

Public Sub TotCheck() Const NbColonne = 3 ' adaptar al número de columnas Dim TB(NbColonne), i As Integer Dim Total(NbColonne) As Integer Dim Obj As OLEObject Dim Col As Integer, L As Integer With Sheets("Feuil2") For i = 1 To NbColonne TB(i) = .Cells(1, i).Left Next i For Each Obj In .OLEObjects 'verifica si es un Checkbox If TypeOf Obj.Object Is MSForms.CheckBox Then Col = Obj.Left For i = NbColonne To 2 Step -1 If Col > TB(i) Then Exit For Next i Total(i) = Total(i) + Abs(Obj.Object.Value) End If Next Obj For i = 1 To NbColonne 'adaptar la fila .Cells(1, i) = Total(i) Next i End With End Sub

A+
--
Todo el conocimiento del mundo no puede caber en una sola cabeza (la mía)
Si te golpeas con una olla y suena vacía, no necesariamente es la olla la que está vacía. ;-)(Confucio)
NOTA: No respondo a mensajes privados para preguntas técnicas.