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


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

You'll have to write your own functions that determine the min and so forth.
You can write them to loop through the cells and test the font colorindex
and only acknowledge cells where it is xlautomatic.

--
Regards,
Tom Ogilvy


"chick-racer" wrote in message
...

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


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/