Sumar celdas con mismo formato

Excel no incluye una función particular que te permita realizar una suma por
el color de una celda.
Usandi una combinación de funciones, si podrías realizar suma de celdas por
formatos de números, tipos de datos, o verificando si la celda tiene una
formula o no, etc...

Para sumar por colores, puedes construir la siguiente funnción en VBA, e
insertarla en una celda en la planilla.


Function SumaPorColores(ByVal rng As Range, ByVal iColorIndex) As Long
Dim celda As Range
Dim lngSuma As Long

lngSuma = 0
For Each celda In rng
If IsNumeric(celda.Value) And celda.Font.ColorIndex = iColorIndex
Then lngSuma = lngSuma + celda.Value
Next

SumaPorColores = lngSuma
End Function

Donde:
rng es el rango de celda a sumar
iColorIndex es el indice del color que deseas sumar. Para el caso del color
rojo el indice es 3.

El único pero de esta función es que no se recalcula automáticamente al
momento de cambiar los valores de las celdas del rango.Para recalcular el
valor, puedes por ejemplo seleccionar la celda, posicionarte en la barra de
ingreso de valores, y presiona ENTER Me imagino que podría haber una
forma mas elegante se recalcular automáticamente esta celda, voy a verlo

Espero te ayude...

Saludos,

Marco Escobar.



wrote in message
news:080101c39f9e$19c11800$

Hola!
Mi pregunta es como puedo sumar celdas que el color de los
datos introducidos sea rojo.