Casilla de Verificación (evento Change)

Resumen

Se usa el evento change para simular una casilla de verificación, en la columna A, y luego combinamos con una suma condicional, que que solamente SUMA los meses que se encuentran tildados.

Un ejemplo real

Al hacer clic sobre la columna A, tilda la celda.

Luego se puede aplicar una fórmula matricial y condicional para sumar los meses tildados.

{=SUMA(SI($A$2:$A$13<>"";$C$2:$C$13;0))}

El código

El código debe escribirse en la misma hoja Excel, ver imagen.

'Jose Skraviuk
'ayudaexcel@yahoo.com.ar

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim aOffset As Integer
On Error GoTo err_handler
Application.EnableEvents = False

If Not Application.Intersect _
(Target, Columns("A")) Is Nothing Then

If Target.Column = 4 Then
  aOffset = 3
Else
  aOffset = 2
End If

If IsEmpty(Target.Value) Then
  With Target
   .Font.Name = "Wingdings"
   .Value = Chr(252)
  End With
  Target.Offset(0, iOffset).Select
Else
  Target.Value = ""
  Target.Offset(0, iOffset).Select
End If

End If

err_handler:
Application.EnableEvents = True

End Sub

Comentarios

Para evitar confusiones (sobre todo si estamos preparando una plantilla para otras colegas), podríamos optar por la fórmula SUMAPRODUCTO, que además permite aplicar varias condiciones de una manera fácil.  / Anders J.