minimum value in range

[SUNIL]

Min = Application.WorksheetFunction.Min(Range(Cells(Row%, 6), Cells(Row%,
9)))
if min=0 then.......

This command ignores blank cells , but i also want it to ignore cells
containing a value 0, or 0.0 or 0.00 , is this possible

 

[Tom Ogilvy]

sStr = Cells(row,6).Resize(1,4).Address(0,0,,True)
dblMin = Evaluate("Min(if(IsNumber(" & sStr & ")*(" & _
sStr & "<>0)," & sStr & "))")

 

[Philo Hippo]

if cells(CurRow,CurCol).value<>"0" and cells(CurRow,CurCol).value<>"0.0"
and cells(CurRow,CurCol).value<>"0.00" then dosomething

 

[Jarek]

Tom,
your solution is wonderful! Please, can you navigate me/us to othe
examples for 'Evaluate' ?

Thanks, Jarek

 

[Tom Ogilvy]

Evaluate will accept strings that would be valid if entered into a worksheet
cell. In this case, the string was an array formula.

 

[Jarek]

Thank you, Tom
Jare