Codigo de colores para formula "countbycolor"

Hola, Edwin.

Podrías probar ejecutar el siguiente procedimiento:

Sub PaletaColores()
Dim j As Byte
For j = 1 To 56
Cells(j, 2).Interior.ColorIndex = j
Cells(j, 1).Value = j
Next j
End Sub

Imagino que la función que te dieron utiliza la propiedad ColorIndex, la
cual te soporta hasta 56 colores diferentes. El procedimiento te genera en
la hoja activa un listado de estos colores con su respectivo número.

Considera también la siguiente función:

Function SumarColor(Rango_A_Sumar As Range, Celda_De_Muestra As Range)
Dim MiColor As Long, MiSuma As Double
MiColor = Celda_De_Muestra.Interior.ColorIndex
MiSuma = 0
For Each x In Rango_A_Sumar.Cells
If x.Interior.ColorIndex = MiColor Then MiSuma = MiSuma + x.Value
Next
SumarColor = MiSuma
End Function

Con esta función podrás definir el rango al cual le vas a calcular la suma,
y el segundo parámetro te podrá permitir seleccionar una celda que contenga
el color que quieres sumar. Así, podrías dejar de depender de un número de
código.

Saludos.

"Edwin Bernal Holguin" escribió:

Hola!

hace poco se publico un post con esta direccion
http://www.cpearson.com/excel/colors.htm
en la que se explicaba una formula parab contar segun el relleno de la
celda " muy bueno", pero el pronblema es que se basa en el num del color de
un conteo de 52 colores, ...
=CountByColor(A1:A8;4;0), donde 4 es el color, lo que no pude es conocer el
sietma de numeracionde cada color,

ahora... quien podra socorrerme!!!?...


Gracias

Edwin Bernal Holguín
Ingeniería, Diseño y Capacitación
www.geosdigital.com

msn
Fiat Lux!!