cell color condition

[Can-Ann]

Using Office 2007
I want to run a specific routine if a cell foreground is red.
Can anyone show me what the formula would be.
Thanks in Advance

 

[SteveM]

Using Office 2007
I want to run a specific routine if a cell foreground is red.
Can anyone show me what the formula would be.
Thanks in Advance

You have to examine the ColorIndex property so do something like:

Sub CheckColor()
Dim cell as Range

For Each cell in Range("Whatever")
If cell.Interior.ColorIndex = "the Index Number" Then
do something
End If
Next

End Sub

You can find the index numbers for the color palette using help on the
ColorIndex property.

Although it may be easier just evaluating the cell using the same
conditions that colored it red in the first place

SteveM

 

[JLGWhiz]

I am going to assume that you mean the interior color of the cell, since it
does not have a foreground property.

If the cell was colored using the conditional format method:

Sub findColorRed()
If ActiveCell.FormatConditions(1).Interior.ColorIndex = 3 Then
'Put your code here
End If
End Sub

If the cell was colored using regular format method:

Sub findColorRed()
If ActiveCell.Interior.ColorIndex = 3 Then
'Put your code here
End If
End Sub

 

[JLGWhiz]

If this is redundant ignore it. I don't see my original postl

There are two condidtions that can color the cell. If it is
colored by conditional format then:

Sub findColorRed()
If ActiveCell.FormatConditions(1).Interior.ColorIndex = 3 Then
' Your code here
End If
End Sub

If it is colored by regular format then:

Sub findColorRed()
If ActiveCell.Interior.ColorIndex = 3 Then
' Your code here
End If
End Sub

 

[Sam Wilson]

If you already have the sub written (Sub MySub() ..... End sub) then the
following sub should do what you want or at least point you in the right
direction.

sub Demo()

If Range("A1").interior.colorindex = 3 then call MySub

End Sub

 

[filo666]

try this:

If ActiveCell.Interior.ColorIndex = 3 Then
MsgBox "the selected cell has red background", vbOKOnly
End If

if it was helpfull please press yes.

greatings from Israel

 

[santaviga]

Try using conditional formatting.

M

 

[Barb Reinhardt]

I used this to figure out the colors on a sheet I set up

Sub test()
Dim r As Range
For Each r In ActiveSheet.UsedRange
Debug.Print r.Address, r.Interior.ColorIndex, r.Font.Color
Next r
End Sub

But you'll have to check for yourself.

I believe what you want is
If ActiveCell.font.color = 255 then

end if