Sumar por colores

Muchos usuarios que disponen de versiones anteriores de Excel 2007 se preguntan cómo poder hacer sumas por un determinado color. En Excel 12 esto sí es posible, pero para el resto de usuarios existe una pequeña función definida por el usuario:

Function SUMARCOLOR(RangoColor As Range, CeldaColor As Range) As Long
     Dim rngCelda As Range
     'revisamos cada celda del rango
     For Each rngCelda In RangoColor
          'si los colores coinciden, sumar el valor de la celda al resultado previo
          If rngCelda.Interior.ColorIndex = CeldaColor.Interior.ColorIndex Then
               SUMARCOLOR = SUMARCOLOR + rngCelda.Value
          End If
     Next
End Function

La función es bastante simple. Cada celda del rango se compara con el color de la celda definida en el segundo argumento y, si coinciden, va sumando el valor que contiene.

Para utilizar la función podemos hacerlo de dos maneras:

• Utilizando el asistente para funciones: Utilizaremos como primer argumento, el rango de celdas que deseamos sumar y, como segundo argumento, la celda que contiene el color que queramos que sume.
• Escribiendo la función a mano: =SUMARCOLOR(Primer argumento;Segundo argumento), donde usaremos los datos del punto anterior como argumentos.