prueba con esta UDF:
Código:
Function Sumar_color(Rango As Range, Color As Range) As Double
Dim ColRef As Integer
Dim Celda As Range
ColRef = Color.Font.ColorIndex
For Each Celda In Rango
If Celda.Font.ColorIndex = ColRef Then
Sumar_color = Sumar_color + Celda.Value2
End If
Next Celda
End Function
la función generada es Sumar_Color(rango;color)
rango es el rango de celdas que vas a sumar y color es una celda con el color de referencia... revisa el adjunto, ahí va una forma en que la podrías usar.
Este tipo de UDF (sumar por colores) es muy común, si buscas un poco en el foro encontrarás más sobre éstas UDF y cómo usarlas. Algunos temas que te pueden guiar:
Contar celdas por condicion de color de fondo y letra insertada
promedio por colores
[SOLUCIONADO] Sumar con cualquier color en celda
Sumacolor
[Solucionado] Sumar solo las celdas de un color
etc.
Cualquier problema o duda acá estamos pendientes.
Marcadores