Estimados,
como sumar las celdas pintadas de amarillo con los textos (food, Aces ,Miner),? si no es posible por formula, podría ser macros u otra forma.
adjunto archivo.
Gracias
Adjunto | Tamaño |
---|---|
celdas_color.xlsm | 17.43 KB |
//-->
Estimados,
como sumar las celdas pintadas de amarillo con los textos (food, Aces ,Miner),? si no es posible por formula, podría ser macros u otra forma.
adjunto archivo.
Gracias
Adjunto | Tamaño |
---|---|
celdas_color.xlsm | 17.43 KB |
Yo me definí esta macro:
Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double
Dim celda As Range
Application.Volatile
For Each celda In Rangosuma
If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor = Sumarcolor + 1
Next celda
Set celda = Nothing
End Function
Y la utilizaba en la tabla de la siguiente manera:
=sumarcolor(AK$6;$C7:$AH7)
donde AK$6 es la celda coloreada del color que quiero comparar, y $C7:$AH7 es el rango de celdas donde están las que quiero contar.
Tiene el problema de que necesitas declarar la función volátil: Application.Volatile
Esto hace que cada vez que introduces un dato, ejecuta la función y, por lo tanto, recalcula todas las celdas donde has utilizado =sumarcolor.
Si lo haces en muchas celdas, puede ser muy lenta la actualización cada vez que actualices un dato. Yo la utilizaba en unas 60 celdas y me iba bien. Creo recordar que, aun así, no se lanza la función cuando simplemente cambias el color de una celda.
Es lo mejor que pude encontrar en su día.
Un saludo
Hola Cron,
lo intento y te aviso.
Gcs.