replace Dots for comma both collums

[JohnDpi]

Goodmorning,
first time on this forum so bare with me.

I got VBA line that will replace Dots(.) for Comma's (,)
With this code.

Dim a, i As Long
    With Range("i2:j" & Range("j" & Rows.Count).End(xlUp).Row)
        a = .Value
        With CreateObject("VBScript.RegExp")
            .Pattern = ".(?=\d{2}$)"
            For i = 1 To UBound(a, 1)
                a(i, 1) = .Replace(a(i, 1), ",")
            Next
        End With
        .Value = a
    End With

The problem is its only take collum I and i want it so that it will take I and J.
am I doing something wrong here that it only take I and not Both ? I and J?

Greets

[AB33]

Is he/she is the same person as:

http://www.excelforum.com/excel-prog...ml#post3650037
?

[JohnDpi]

i got the code from him be he doesn't respond on my Private message to help me

[apo]

Hi..

This will do it..

Private Sub CommandButton1_Click()
    With Range("I2:J" & Range("J" & Rows.Count).End(xlUp).Row)
            .Replace Chr(46), Chr(44), xlPart, , True
    End With
End Sub

[FDibbins]

John, welcome to the forum.

Please do not send PM's for help, ask in your thread.

ALso, please do not use 2 different ID's to post on this forum, select 1 of them and stick with that