Get Color of cell

[MetLife]

Hi,

I am using excel 2010, and want to get the color integer value.

I tried using

Dim colornumber As Integer
Dim c1 as Range
Set c1 = Range("A1")
colornumber1 = c1.Interior.ColorIndex

But the problem is that "grey" has a "2" value and so does the white space, so it doesn't capture all the colors.

Does anyone know a way to get the values for colors that aren't on the standard palette?

Thanks

 

[Roderick_E]

Can you use .interior.color instead of Colorindex?

 

[MetLife]

No ".interior.color" does not run in debug

 

[Roderick_E]

No ".interior.color" does not run in debug

Are you sure? I tried

Sub test()
Dim colornumber As Integer
Dim c1 As Range
Set c1 = Range("A1")
colornumber1 = c1.Interior.Color
MsgBox colornumber1
End Sub

Worked fine.

 

[MetLife]

Yes that does work.

For some reason when I switched from one to the other it gave me a stack overflow error...

Sub colornumber()
Dim MyCell As Range, c1 As Range, c2 As Range
Dim colornumber As Integer, colornumber1 As Integer, colornumber2 As Integer, colornumber3 As Integer
Set MyCell = Range("D4")
Set c1 = Range("E8")
Set c2 = Range("E9")
Set c3 = Range("E10")
colornumber1 = c1.Interior.ColorIndex
colornumber2 = c2.Interior.ColorIndex
colornumber3 = c3.Interior.ColorIndex
c1.Interior.ColorIndex = colornumber


colornumber1 = c1.Interior.Color
colornumber2 = c2.Interior.Color
colornumber3 = c3.Interior.Color
c1.Interior.ColorIndex = colornumber
End Sub

 

[MetLife]

Thanks!