changing "," to "."

[ddragas]

Need VBA code for changing "," to "." in cell as I tipe

for instance:

4010410,1 to become 4010410.1

[BrianB]

Don't understand this one.

Why can't you just type the . ?????

[jimboy]

Try this;

ActiveCell = Replace(ActiveCell, ",", ".", 1, -1)

or this for a range of cells;

Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

[jimboy]

Originally Posted by BrianB

Don't understand this one.

Why can't you just type the . ?????

I expect the data is imported from another application.

[ddragas]

Let's say that code should look something like this:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row > 21 Then

'4010410,1 should become 4010410.1
'or by words:
' if in activecell.value string "," exists; replace the string "," to string "."

end if

end sub

Hope you've understand my problem?!

I need that string change if active cell changes.

Thnx

[Guitarde]

Don't you just have to change the Decimal symbol into the Regionnal settings from the Control Pannel ?

[jimboy]

Try this;

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row > 21 Then

On Error Resume Next
Target.Value = Replace(Target.Value, ",", ".", 1, -1)
End If
End Sub