need codeto view the 56 colors of ColorIndex

[SuitedAces]

Help with this please

I trying to write for a buton the will change a cell color
each press will increment the ColorIndex property.

Also a question ...does the ColorIndex # relate directly to the colo

pallet used when changing a cell color manually?
They dont seem to correspond.

Thank you for the hel

 

[Leith Ross]

Hello SuitedAces,

The pallet is arranged by color not by color index values.

Here is a macro that will change the active cell's background color
according to the color index sequentially. It places the color index in
the cell to the right. You can comment this line out if you like.


Code:
--------------------

Sub ChangeColor()

Dim N As Integer
Static CI As Integer

CI = CI + 1
With ActiveCell
N = CI Mod 57
.Interior.ColorIndex = N
.Offset(0, 1).Value = N
End With

End Sub

 

[SuitedAces]

Thank you very much.

I am a beginner and struggling with using variables for looping
and trying to figure out where I need to declare the variables.

This will help clue me in