Format with numbers problem!

[Handril]

Hello, guys!

I'm trying to covert a column full of numbers like 1234,56 or 987.654 to this format 1234.56, max 2 decimals and "." instead of ",". But when I try to find the "," the method completely ignores it...

I tried to change the format from General to Numbers, Text etc., but no success

The code is not very good yet, first I'm trying to solve this problem. My code look likes this:

(Thanks in advance)

For Each cell In campoCol.Rows

c = cell.Value
d = InStr(1, c, ".", vbTextCompare) ' FIND DECIMAL POINT
If d > 0 And Len(c) > (d + 2) Then ' MORE THAN 2 DECIMAL NUMBERS
MsgBox ("2 decimals only")
End If

Set valorVirgula = Selection.Find(What:=",", SearchOrder:=xlByRows)

If Not valorVirgula Is Nothing Then
Do
valorVirgula.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Set valorVirgula = Selection.FindNext(valorVirgula)
Loop While Not valorVirgula Is Nothing
End If

 

[mole999]

, and . are influenced by system / language settings

 

[Handril]

So how can I solve this? =x

 

[mole999]

in the excel options window you can set defaults, or use the system settings. It depends on what you need to do. For me I want UK regional settings and then stick with those. If you change what is the default for something you like the look of, then its unlikely to work as you want it to.