buscar formato de color en celda

Pueden haber muchas variantes para elaborar una función como la que necesitas
(sumar celdas según su color de relleno), pero yo prefiero usar la siguiente:

Function SumarColor(Rango_A_Sumar As Range, Celda_De_Muestra As Range)
Dim MiColor As Long, MiSuma As Double
MiColor = Celda_De_Muestra.Interior.ColorIndex
MiSuma = 0
For Each x In Rango_A_Sumar.Cells
If x.Interior.ColorIndex = MiColor Then MiSuma = MiSuma + x.Value
Next
SumarColor = MiSuma
End Function


Ahora bien, lo que no he logrado resolver es que la fórmula se actualice
automáticamente al cambiar el color o el formato de otras celdas.
Aparentemente una modificación al formato no es detectada por el evento
"change", por lo que tendrás que actualizar la hoja (F9) cada vez que quieras
que la función se recalcule.




"luis" escribió:

hola,

en el siguiente enlace hay una pregunta sobre cómo sumar celdas con un
formato específico, en este caso negrita.

http://www.microsoft.com/office/com...sloc=es-es

un par de cosas:
1) parece q la función no se actualiza sóla, tenemos q reeditarla y aceptar
para q tenga en cuenta las modificaciones de negrita (es decir, si pongo una
celda en negrita, o le quito la negrita). Sin embargo, los valores sí los
actualiza (si existe un 3 en negrita y lo pongo como 4, la suma se actualiza)
2) cómo sería sumar celdas con un determinado formato de color? es decir,
sumar las celdas q estén escritas en verde, o en rojo...

PS: sé cómo funciona el tema de RGB (creo)

Gracias