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

Preguntas similare

Mostrar todos los temas similares

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.

Responder a este mensaje

#2 Fernando Arroyo

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

Yo preparé hace tiempo un ejemplo como respuesta a una consulta similar:

http://www.excelsp.com/ejemplos/eje...50429a.xls

Un saludo.

Fernando Arroyo
MS MVP - Excel

"jacs" escribió en el mensaje 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.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida