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.

Preguntas similare

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.


Respuesta 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.


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida