sumar celdas pintadas con texto

3 envíos / 0 nuevos
Último envío
mercedario
Imagen de mercedario
Offline
última acción: Hace 4 años 7 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 05/11/2013 - 02:49
Puntos: 815
sumar celdas pintadas con texto

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

AdjuntoTamaño
File celdas_color.xlsm17.43 KB
Cron
Imagen de Cron
Offline
última acción: Hace 7 meses 3 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Yo me definí esta macro

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

 

mercedario
Imagen de mercedario
Offline
última acción: Hace 4 años 7 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 05/11/2013 - 02:49
Puntos: 815
Hola Cron,lo intento y te

Hola Cron,

lo intento y te aviso.

Gcs.