Actualizar Función personalizada cada vez que cambio el color de una celda de un rango
Tengo la siguiente función en las celdas B13 Y B14 ambas con un color que realizan una sumatoria de un rango según el color de éstas, lo que quiero es que si cambio el color de algunas de las celdas del rango D4:D9 me vuelva a actualizar la suma de forma automática.
Function SUMARPORCOLOR(celdaColor As Range, rango As Range) Dim resultado Dim celda As Range For Each celda In rango If celda.Interior.Color = celdaColor.Interior.Color Then resultado = resultado + celda.Value End If Next celda SUMARPORCOLOR = resultado End Function
1 Respuesta
Respuesta de fejoal
1