how do i ignore cells with font color?

[chick-racer]

I am stuck once again.

Your help is always greatly appreciated!

I would like my program to go thru my range of 11 cells and ignore the
cells that are already colored. I have it looping back until condition
is met.
How do i get it to ignore cells that have been colored blue? I just
want it to look at the cells with default black font.

Here is a small bit of code from the program....

grubb = Cells(J + K, "V").value
tlow = Cells(J + K, "T").value
thigh = Cells(J + K, "U").value

While tlow > grubb
'code to ignore cells with color font color other than
default black
Set rng = Range("D" & J + K, "N" & J + K)
lowval = Application.WorksheetFunction.Min(rng)
result = Application.Match(lowval, rng, 0)
If Not IsError(result) Then rng(1, result).Font.Color =
RGB(0, 10, 200)
minValue =
Application.WorksheetFunction.Min(Range(rng)) 'should return minimum
value without the cells with colored font
tlow = (Cells(J + K, "R").value - minValue) / (Cells(J
+ K, "S").value) 'calc new tlow for the "when" condition

Wend

 

[Trevor Shuttleworth]

Wend

obviously, font color isn't the only thing you're stuck with !

Suggest you check out Chip Pearson's site. He has code for doing stuff with
colors.

http://www.cpearson.com/excel/colors.htm

Regards

Trevor