Funcion personalizada no funciona

29/04/2005 - 10:03 por jacs | Informe spam

Buenas, necesito contar color de trama de un rango de celdas, este codigo
haria esa funcion el problema esta en que las celdas que estan en dicho
rango estan condicionadas y entonces me anula esta funcion.Abria alguna
manera de arregrarlo.

Function ContarColorFondo(rngCeldaColor as Range, rngRangoAContar As Range)
As Long
If rngCeldaColor.Cells.Count <> 1 Then Exit Function

Dim rngCelda As Range

For Each rngCelda In rngRangoAContar
If rngCelda.Interior.ColorIndex = rngCeldaColor.Interior.ColorIndex
Then ContarColorFondo = ContarColorFondo + 1
Next rngCelda
End Function

Espero me podais echar una mano GRACIAS.

Siga el debate

2 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 KL

29/04/2005 - 10:16 | Informe spam

Hola JACS,

Efectivamente, esta funcion no podra con formato condicional. Sin embargo,
piensa que si has podido establecer las condiciones para los colores en el
formato condicional, deberias tambien ser capaz de usar esas condiciones en
la hoja para devolver los tipos de valores en celdas (que corresponderia a
uno de los 3 posibles colores) sin necesidad de identificar el color.

Saludos,
KL

"jacs" wrote in message
news:%

Buenas, necesito contar color de trama de un rango de celdas, este codigo
haria esa funcion el problema esta en que las celdas que estan en dicho
rango estan condicionadas y entonces me anula esta funcion.Abria alguna
manera de arregrarlo.

Function ContarColorFondo(rngCeldaColor as Range, rngRangoAContar As
Range)
As Long
If rngCeldaColor.Cells.Count <> 1 Then Exit Function

Dim rngCelda As Range

For Each rngCelda In rngRangoAContar
If rngCelda.Interior.ColorIndex = rngCeldaColor.Interior.ColorIndex
Then ContarColorFondo = ContarColorFondo + 1
Next rngCelda
End Function

Espero me podais echar una mano GRACIAS.

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :