check font colour

[Gareth]

I have a sheet with approx 15,000 rows of data.

I need a macro to check columns C:M to see if any of the cells have blue or
red font in them and if column O is empty.

If this is the case I would like a simple message box saying "Please check
row ???"

Thanks in advance.

Gareth

 

[microsoft.public.excel.programming]

You don't need to use vb to do that?

Check out the CELL function in excel help. The function will give you a
value for different types of attributes (color, font etc) related to a
cell.

In combination with some IF statements you should be able to get what
you want.

Mat N

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

 

[Tom Ogilvy]

Assume empty means it doesn't have a formula or a constant in it.

Dim rng as Range, rw as Range, cell as Range
On error resume next
set rng = Columns(15).SpecialCells(xlblanks)
ON Error goto 0
if not rng is nothing then
for each rw in rng
for each cell in Range(cells(rw.row,"C"),cells(rw.row,"M"))
if cell.Font.colorindex = 3 or cell.Font.ColorIndex = 5 then
msgbox "Check row " & cell.Row
exit sub
end if
next
Next
End if

This assumes the font color is not being produced by conditional formatting.