Colour number...

[Darin Kramer]

Howdie,

If a cell has been coloured, and I want to replace all the colours to a
new colour, I think I can do a find and replace for that colours
number... but where do u see its number? (not under properties...?)

Thanks

D

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

 

[Frank Kabel]

Hi
AFAIK you can't do this. You have to loop through all cells

 

[DH]

you need a custom function

function Mycolor(cell as range)
Mycolor=c.interior.colorindex
end function

 

[Bob Phillips]

Darin,

You cannot do a Find on a colour (either its number, or is colour id). What
you can do is get the colorindex of a particular cell with this code

Activecell.Interior.ColorIndex

To reset coloured cells in a selected range use

For Each cell In Selection
If cell.Interior.Colorindex = findColour Then
cell.Interior.Colorindex = replaceColour
End If
Next cell

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

hi,
in a blank workbook, paste the following code.
to call the vb window press alt+F11
Sub macGetColors()
' Macro written 2/10/02 by FSt1

Sheets("Sheet1").Select
Range("B2").Select
Set ci = Range("A1")
ci.Value = 1
Set c = Range("B2")
Do Until ci > 56
Set c2 = c.Offset(1, 0)
Set cnum = c.Offset(0, 1)
c.Interior.ColorIndex = ci.Value
c.Offset(0, 1) = ci.Value
ci.Value = ci.Value + 1
Set c = c2
c.Select
Loop

End Sub
It will create a list of all colors and their indexes.
good luck.