Info: different Value !

[PcMax]

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


'--- 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?

[Rick Rothstein]

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

[PcMax]

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.



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!