Colores en excel

hola, martin !

... Necesito colorear las 70 celdas de una columna de colores distintos
pero no dependientes de un formato condicional.
Seria facil si se pudieran generar 70 colores diferentes de la paleta de excel.
Colorear una a una a mano me parece muy pesado. alguna idea?

'hablando' de colores en excel... revisa la informacion de la siguiente pagina:
-> Color Palette and the 56 Excel ColorIndex Colors
http://www.mvps.org/dmcritchie/excel/colors.htm

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

Mil gracias Hector!, Se me queda un poco corta la tabla que se genera con
el codigo:

Sub colors56()
'57 colors, 0 to 56
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual
Dim i As Long
Dim str0 As String, str As String
For i = 0 To 56
Cells(i + 1, 1).Interior.ColorIndex = i
Cells(i + 1, 1).Value = "[Color " & i & "]"
Cells(i + 1, 2).Font.ColorIndex = i
Cells(i + 1, 2).Value = "[Color " & i & "]"
str0 = Right("000000" & Hex(Cells(i + 1, 1).Interior.Color), 6)
'Excel shows nibbles in reverse order so make it as RGB
str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2)
'generating 2 columns in the HTML table
Cells(i + 1, 3) = "#" & str & "#" & str & ""
Cells(i + 1, 4).Formula = "=Hex2dec(""" & Right(str0, 2) & """)"
Cells(i + 1, 5).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)"
Cells(i + 1, 6).Formula = "=Hex2dec(""" & Left(str0, 2) & """)"
Cells(i + 1, 7) = "[Color " & i & ")"
Next i
done:
Application.Calculation = xlCalculationAutomatic 'pre XL97 xlAutomatic
Application.ScreenUpdating = True
End Sub


Pero a mano puedo ampliarla y modificarla un poco.

Un saludo cordial y mis mejores deseos para ti. Gracias.


Martin.

hola, martin !

... Necesito colorear las 70 celdas de una columna de colores
distintos pero no dependientes de un formato condicional.
Seria facil si se pudieran generar 70 colores diferentes de la paleta
de excel. Colorear una a una a mano me parece muy pesado. alguna
idea?

'hablando' de colores en excel... revisa la informacion de la
siguiente pagina: -> Color Palette and the 56 Excel ColorIndex Colors
http://www.mvps.org/dmcritchie/excel/colors.htm

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

Revisa estos dos macros te pueden servir

Sub pintar()
Randomize
For i = 1 To 70
r = Int(Rnd() * 255)
g = Int(Rnd() * 255)
b = Int(Rnd() * 255)
Cells(i, 1).Interior.Color = RGB(r, g, b)
Next
End Sub

Sub pintar1()
Randomize
For i = 1 To 70
Cells(i, 2).Interior.ColorIndex = Int(Rnd() * 56)
Next
End Sub



On 20 feb, 21:36, martin wrote:

Hola a todos!, no se si sera posible... Necesito colorear las 70 celdas de
una columna de colores distintos pero no dependientes de un formato
condicional. Seria facil si se pudieran generar 70 colores diferentes de la
paleta de excel.

Colorear una a una a mano me parece muy pesado. ¿alguna idea?

Muchisimas gracias por adelantado.

Un saludo a todos.

Martin.

Muchisimas gracias J.P. !!, con la primera me va perfecto.


Un cordial saludo,


Martin

Revisa estos dos macros te pueden servir

Sub pintar()
Randomize
For i = 1 To 70
r = Int(Rnd() * 255)
g = Int(Rnd() * 255)
b = Int(Rnd() * 255)
Cells(i, 1).Interior.Color = RGB(r, g, b)
Next
End Sub

Sub pintar1()
Randomize
For i = 1 To 70
Cells(i, 2).Interior.ColorIndex = Int(Rnd() * 56)
Next
End Sub



On 20 feb, 21:36, martin wrote:

Hola a todos!, no se si sera posible... Necesito colorear las 70
celdas de una columna de colores distintos pero no dependientes de un
formato condicional. Seria facil si se pudieran generar 70 colores
diferentes de

la

paleta de excel.

Colorear una a una a mano me parece muy pesado. ¿alguna idea?

Muchisimas gracias por adelantado.

Un saludo a todos.

Martin.