09/Ago/05 13:57
Sumar según el color de la celda
Hace mucho no les pongo algo interesante, a ver que les aprece esto:
A1: tiene la formula =SumByColor(D1:D7;B2), toma el rango y hace referencia a B2 que es la celda que contiene el color a sumar.
Si cambiamos el color por rojo y entramos a la celda A1 y damos enter (reclaculamos), vemos que vamos a tener el resultado de la suma de las celdas del rango D1:D7 que tienen fondo rojo
En el rango D1:D7 ponemos una serie de numeros, le damos al fondo de las celdas varios colores.
El código para crear la fórmula es:
[code:1:90779de77c]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
If cl.Interior.ColorIndex = ColorIndex Then
TempSum = TempSum + cl.Value
End If
Next cl
On Error GoTo 0
Set cl = Nothing
SumByColor = TempSum
End Function[/code:1:90779de77c]Copian este código como si fuera una macro.
Suerte
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═