how to add dot(.) after copying a single cell.

[Shiv]

hi
i have question... how to add dot(.) after copying a single cell.
i/p
sheet1
input1:no
input2:name
input3: Phone

o/p
sheet2
input1:no.
input2:name.
input3: Phone.

10Q.

 

[jindon]

Only for the data provided.
Select the cell to copy then run the code

Sub test()
    Dim txt As String, r As Range
    txt = ActiveCell.Value
    Set r = Application.InputBox("Select cell to paste", Type:=8)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(([^:\d]+)\d*: *[^:.]+[^ \.])\.? *(?=(\2|$))"
        r.Value = .Replace(txt, "$1." & vbLf)
    End With
End Sub