evaluar el color de fondo de una celda

3 envíos / 0 nuevos
Último envío
cesar
Imagen de cesar
Offline
última acción: Hace 3 años 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntos
alta: 23/02/2013 - 15:12
Puntos: 1258
evaluar el color de fondo de una celda

¿es posible evaluar el color de fondo de una celda?

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 5 horas 56 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8900
Re: evaluar el color de fondo de una celda

Sí, vía macro.

Una vez me hice esta función, ayudado por Necesitomas.com:

 

Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double

    Dim celda As Range

    For Each celda In Rangosuma

        If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor = Sumarcolor + celda

    Next celda

    Set celda = Nothing

End Function

 
 
Lo que hacía era sumar en un rango determinado las celdas cuyo color de fondo era igual que el de la celda al lado de donde ponía la suma. Muy gráfico, muy interesante.
 
Saludos
cesar
Imagen de cesar
Offline
última acción: Hace 3 años 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntos
alta: 23/02/2013 - 15:12
Puntos: 1258
Re: evaluar el color de fondo de una celda

Gracias Chron!!!