Actividad pública reciente
Ha valorado "Excelente" la respuesta
Sumar contenido de celdas por color
Function SumByColor(InputRange As Range, ColorRange As Range) As Double Dim cl As Range, TempSum As Double, ColorIndex As Integer ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex TempSum = 0 On Error Resume Next For Each cl In InputRange.Cells...