hi,
you are coping the conditional format to the other cell.
if the condition isn't there then the color wont show.
if you want the color in the other cell then best just set
the color.
range("a1").interior.colorindex = 42
if you don't know the color indexs then in a blank
workbook past the folowing in a module. save it for future
reference.
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
-----Original Message-----
I have a cell that is colored according to a conditional
formatting
statement. I want to copy the color to another cell using
a macro but I
can't find the property. In particular,
Range.Interior.ColorIndex is NOT
set. I can examine the colors using Range.FormatConditions
(index)
..Interior.ColorIndex but I can't tell what value to use
for "index" (a
conditional format has up to 3 conditions and thus index
is a number
between 1 and 3 but I don't know which one is currently
active).
--
Message posted via http://www.officekb.com
.