check font colour
 

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

check font colour
 

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!

check font colour
 

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.

--
Regards,
Tom Ogilvy


"Gareth" wrote in message
...
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