Info: different Value !

Hi,

We are using the following code, run regularly in Excel 2003
The list includes only positive numbers: 12.625

While Excel 2007 does not show the same values ​​...

Any idea? How do I fix these codes?

Any advice is appreciated

Code:

---

'--- Dati -50
Sub Formula()
    Dim x As Long
    Dim Decurta As Double
    Decurta = Sheets("Foglio1").Range("J1").Value
    For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Cells(x, 8).Value = Cells(x, 3) - Decurta
    Next
End Sub

'--------- 2 Dec.
Sub Decimali()
    Dim x  As String

'---Cerco i decimali nella colonna F e copio i valori nella colonna I
    With Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row)
        x = .Address
        .Offset(, 3) = Evaluate("if(isnumber(" & x & "),round((" & "int(" & x & "* 100" & ")),0)/100," & x & ")")
    End With

End Sub

---

It could be "round(" if the text language is not the same?

Can you show us some examples of values that are not the same in XL2003 and Xl2007 with that code?

Hi,

Only now I have understood what were the causes of differences in processing between 2003 and Excel 2007
When retrieving data from the web (an external procedure to excel) I get some values ​​in a column in string format.
The whole column always contains positive values ​​such: 34,12

I checked with a macro ZTEST you can fix it.

Code:

---

Sub Enter_Values()
    Dim x  As Variant
    Dim Xcell As Variant
    For Each Xcell In Range("F2:F25000") ' Selection
        Xcell.Value = CDec(Xcell.Value)
    Next Xcell
End Sub

Sub Decimali()
    Dim x  As String
    With Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row)
        x = .Address
        .Offset(, 3) = Evaluate("if(isnumber(" & x & "),round((" & "int(" & x & "* 100" & ")),0)/100," & x & ")")
    End With
End Sub

Sub ZTest()
    Call Enter_Values
    Call Decimali
End Sub

---

Waiting for suggestions for a better solution!