Bug in VBA?

Hi
I think you have to try in this way

Sub prova()
For Var = 0.1 To 1.3 Step 0.1
a = a + 1
Range("A" & a) = Var
Next


a = 0
For Var = 0.1 To 1.4 Step 0.1
a = a + 1
Range("B" & a) = Var
Next
End Sub

Bye,bye
Mario

Sorry, you're right.
Maybe it's a bug VBA

Bye,bye
Mario

It's a floating point issue. It's impossible to exactly represent some numbers in binary so you get small differences if you keep adding them. You can see it happening if you format A1 to show lots of decimal places and then use code like this:

Range("A1") = 1.4 - var

instead of the

Range("A1") = var

line.

Rory is right. I think the only way is to set the macro so

Sub LastWhile()   c = 0   Nr = 0   Do     Nr = Nr + 0.1     c = c + 1     a = a + 1     Cells(a, 6) = Nr   Loop While Nr <= 1.4 End Sub

Bye, bye Mario

Not the only way. You can just loop from 1 to 14 and divide the loop value by 10 when using it.

Hi
of course you're right. Hello, Mario