suma de colores

hola, Johann !

... como puedo hacer unas sumas condicionales con colores de fondo
quiero marcar toda la columna y que me sume solo los colores que yo quiero...

ve cual de las siguientes alternativas se ajusta mejor a tus necesidades...
-> http://tinyurl.com/y58ab5
-> http://tinyurl.com/yh9wgl

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias,

Encontre un codigo, el cual tuve que modificar para que funcionara
correctamente, bueno ahi lo dejo para el quien pueda necesitarlo.

Function SumarColorFondo(rngCeldaColor As Range, rngRangoAsumar As Range) As
Double
Dim rngCelda As Range

For Each rngCelda In rngRangoAsumar
If rngCelda.Interior.ColorIndex = rngCeldaColor.Cells(1,
1).Interior.ColorIndex Then SumarColorFondo = SumarColorFondo + rngCelda
Next rngCelda

End Function

Y para el caso de querer contar, es la siguiente:


Function CuentaColor(rango As Range, muestra As Range)
Dim celda
For Each celda In rango
If celda.Interior.ColorIndex = muestra.Interior.ColorIndex Then _
CuentaColor = CuentaColor + 1
Next celda
End Function

Gracias, y Saludos


"Héctor Miguel" escribió en el mensaje
news:

hola, Johann !

... como puedo hacer unas sumas condicionales con colores de fondo
quiero marcar toda la columna y que me sume solo los colores que yo
quiero...

ve cual de las siguientes alternativas se ajusta mejor a tus
necesidades...
-> http://tinyurl.com/y58ab5
-> http://tinyurl.com/yh9wgl

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

me olvidaba, para que lo puedan ejecutar, es de la siguiente manera


=cuentacolor(F6:F14,C8)

=SumarColorFondo(C8,F6:F14)

Saludos,


"Johann Romero" escribió en el mensaje
news:%

Gracias,

Encontre un codigo, el cual tuve que modificar para que funcionara
correctamente, bueno ahi lo dejo para el quien pueda necesitarlo.

Function SumarColorFondo(rngCeldaColor As Range, rngRangoAsumar As Range)
As Double
Dim rngCelda As Range

For Each rngCelda In rngRangoAsumar
If rngCelda.Interior.ColorIndex = rngCeldaColor.Cells(1,
1).Interior.ColorIndex Then SumarColorFondo = SumarColorFondo + rngCelda
Next rngCelda

End Function

Y para el caso de querer contar, es la siguiente:


Function CuentaColor(rango As Range, muestra As Range)
Dim celda
For Each celda In rango
If celda.Interior.ColorIndex = muestra.Interior.ColorIndex Then _
CuentaColor = CuentaColor + 1
Next celda
End Function

Gracias, y Saludos


"Héctor Miguel" escribió en el mensaje
news:

hola, Johann !

... como puedo hacer unas sumas condicionales con colores de fondo
quiero marcar toda la columna y que me sume solo los colores que yo
quiero...

ve cual de las siguientes alternativas se ajusta mejor a tus
necesidades...
-> http://tinyurl.com/y58ab5
-> http://tinyurl.com/yh9wgl

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.