Macro para sumar según el color

Con este código y siguiendo las instrucciones que te va pidiendo el procedimiento, conseguirás sumar según el color de la celda.

Código de la macro

Sub SumarPorColores()

Dim rSuma As Range
Dim rComparacion As Range
Dim rResultado As Range
Dim Celda As Range
Dim Valor As Long
Dim Titulo As String

On Error GoTo Errores:

Titulo = «ExcelyFinanzas»
Set rSuma = Application.InputBox(«Selecciona el rango de suma», Titulo, Type:=8)
Set rComparacion = Application.InputBox(«Selecciona la celda donde esta el color a comparar», Titulo, Type:=8)
Set rResultado = Application.InputBox(«Selecciona la celda donde quieres el resultado», Titulo, Type:=8)
Valor = 0

For Each Celda In rSuma
If Celda.Interior.Color = rComparacion.Interior.Color Then
Valor = Valor + 1
Else
End If
Next Celda

rResultado.Value = Valor
Exit Sub

Errores:

End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada