Excel Macro Question about Conditional Formatting

  • Thread starter Thread starter David Britton via OfficeKB.com
  • Start date Start date
D

David Britton via OfficeKB.com

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).
 
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,
Click to expand...
Range.Interior.ColorIndex is NOT
 
Thanks for the pointers. Bottom line is that you can't do it. Chip
Pearson's marco's parse the formulae and test which condition is set but,
as noted, this won't work unless the formula have absolute references. I
have many hundred different cells who's colour is set according to a
conditional format statement which include relative references to
neighbouring cells, and it is impractical to convert these to absolute
references. Seems very odd to me that you can't access this information.
 
Back
Top