Hi
I'm trying to get a simple sum to work, but the answer avades me
goodprod = 360 & optime = 625
goodprod / optime = 125
but the answer i get is 0.575999975204467
Cheers
Bernie
optime = Range("bm3").Value * 1440 'cell formatted to [m]
For r = 3 To lr
If Not IsEmpty(Cells(r, 6)) And Not IsEmpty(Cells(r, 7)) And IsEmpty(Cells(r, 66)) Or Cells(r, 66).Value <= 0 Then
Cells(r, 67).Value = empty
ElseIf Not IsEmpty(Cells(r, 6)) And Not IsEmpty(Cells(r, 7)) And Not IsEmpty(Cells(r, 66)) Then
Range("bo3").Value = (goodprod / optime)
End If
Exit For
Next
I'm trying to get a simple sum to work, but the answer avades me
goodprod = 360 & optime = 625
goodprod / optime = 125
but the answer i get is 0.575999975204467
Cheers
Bernie
optime = Range("bm3").Value * 1440 'cell formatted to [m]
For r = 3 To lr
If Not IsEmpty(Cells(r, 6)) And Not IsEmpty(Cells(r, 7)) And IsEmpty(Cells(r, 66)) Or Cells(r, 66).Value <= 0 Then
Cells(r, 67).Value = empty
ElseIf Not IsEmpty(Cells(r, 6)) And Not IsEmpty(Cells(r, 7)) And Not IsEmpty(Cells(r, 66)) Then
Range("bo3").Value = (goodprod / optime)
End If
Exit For
Next