IF/Then statement not working

[Photomofo]

For some reason the if statement in the code below isn't picking up when it should. I can see that on step 69 it should pick up but it's not seeing 3 = 3 as true. I think it's something to do with the Data array.

Sub XYZ()


Dim i As Long
Dim Speed as double



Data = Sheets("Data").Range("A1:WK609")


For i = 130 To 130


    Speed = 0
    
    For j = 1 To 609

        If j >9 then

               Speed = Speed + .05

        end if

    

        If Data(1, j) = Speed Then
        
        Stop
        
        End If
    
    Next j
    
Next i


End Sub

 

[Photomofo]

posted in error

 

[Peter_SSs]

It will most likely be an Excel calculation/storage rounding error. Try this adjustment

Speed = Round(Speed + 0.05, 2)

 

[Photomofo]

Thanks Peter...

I had a string of equations in row 1 that went A1+.05 all the way to column WK... you'd think all the values would go 0, .05, .1, .15 and so on... In column RB the value is 23.0500000000002... Go figure.

I used a slightly different solution but your suggestion would have fixed this as well.

 

[Peter_SSs]

In column RB the value is 23.0500000000002... Go figure.

See https://support.microsoft.com/en-au/help/78113/floating-point-arithmetic-may-give-inaccurate-results-in-excel