Kodu Otomatik Çalıştırma

[mc_exrem]

Merhabalar

telefon numaralarını istediğim formatta çevirmek için aşağıdaki kodu çalıştırdığımda A sütunundaki veriyi B sütununa veriyor ama bunu kodu çalıştır demeden A sütununa yapıştırdığımda direk B sütununa atması mümkün mü acaba?

Sub telefon_no()
son = Cells(Rows.Count, 1).End(3).Row
    For i = 1 To son
        Cells(i, 2) = Right(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(Cells(i, 1), " ", ""), "(", ""), ")", ""), "-", ""), 10) * 1
    Next i
End Sub

 

[EmrExcel16]

Merhaba ,

Sayfanın kod bölümüne yapıştırıp deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
son = Cells(Rows.Count, 1).End(3).Row
    For i = 1 To son
        Cells(i, 2) = Right(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(Cells(i, 1), " ", ""), "(", ""), ")", ""), "-", ""), 10) * 1
    Next i

End Sub

 

[mc_exrem]

Merhaba ,

Sayfanın kod bölümüne yapıştırıp deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
son = Cells(Rows.Count, 1).End(3).Row
    For i = 1 To son
        Cells(i, 2) = Right(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(Cells(i, 1), " ", ""), "(", ""), ")", ""), "-", ""), 10) * 1
    Next i

End Sub

Süper oldu emeğine sağlık çok teşekkkürler

 

[EmrExcel16]

Rica ederim , iyi çalışmalar...