Adres Sonundaki Telefon Silme

[steppe]

Merhaba arkadaşlar,
Elimde yüzlerce adres satırı var ve sonlarında telefon numaraları var. Aşağıdaki kod ile sıfır ile başlayan telefonlar siliniyor. Yalnız bazen No.410 olabiliyor. Kodu çalıştırınca telefonla birlikte No.410'nun sıfırı da gidiyor. Telefonun baştan en az 3 rakamına göre yani 068 veya 688 olacak şekilde nasıl silebilirim.
Yardımlarınız için şimdiden teşekkür ederim.
Sub tel_sil()
For i = 1 To Range("A65536").End(3).Row
Cells(i, "A") = Split(Cells(i, "A"), "0")
Next
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kod 068 veya 688 rakamlarından sonraki metnin tamamını siler.

Sub Tel_Sil()
    Dim Bak As Long
    For Bak = 1 To Range("A" & Rows.Count).End(3).Row
        Cells(Bak, "A") = Split(Cells(Bak, "A"), "0688")
        Cells(Bak, "A") = Split(Cells(Bak, "A"), "688")
    Next
    MsgBox "İşlem tamamlandı.
End Sub

Aşağıdaki kod, adres satırındaki en son boşluk karakterinden sonrasını siler.
Bu kod farklı bir telefon numarası olduğunda daha kullanışlı olabilir.

Sub Tel_Sil2()
    Dim Bak As Long, Bak2 As Long
    Dim Bol As Variant
    Dim Adres As String
    For Bak = 1 To Range("A" & Rows.Count).End(3).Row
        Bol = Split(Cells(Bak, "A"), " ")
        For Bak2 = 0 To UBound(Bol) - 1
            If Adres = "" Then
                Adres = Bol(Bak2)
            Else
                Adres = Adres & " " & Bol(Bak2)
            End If
        Next
        Cells(Bak, "A") = Adres
        Adres = ""
    Next
    MsgBox "İşlem tamamlandı.
End Sub

 

[Greenblacksea53]

Sub telsil()
Dim kayitSayisi, Tel As Variant

kayitSayisi = Sheets("Sayfa1").Cells(Rows.Count, "a").End(xlUp).Row
For i = 1 To kayitSayisi

Tel = Right(Cells(i, "A"), 11)

Cells(i, "A") = Split(Cells(i, "A"), Tel)
Next i
End Sub

Tel 11 haneli olduğu için 11 hane silecek

 

[Greenblacksea53]

Sub telsil()
Dim kayitSayisi, Tel As Variant

kayitSayisi = Sheets("Sayfa1").Cells(Rows.Count, "a").End(xlUp).Row
For i = 1 To kayitSayisi

Tel = Right(Cells(i, "A"), 11)

Cells(i, "A") = Split(Cells(i, "A"), Tel)
Next i
End Sub

Bunu da deneyebilirsin, Telefon 11 haneli olduğu sağdan 11 hane siliyor

 

[steppe]

Yardım eden tüm arkadaşlara çok teşekkür ederim.