Muhtelif Karakter ve harfler

[WHO_I_AM]

Merhaba Arkadaşlar
Daha önceki mesajlara baktığımda işime kısmen yarayan bir makro buldum ancak ; sorum şu
A sütununda cep telefonları listesi var ancak bu numaralar kaydedilirken düzensiz kaydedilmiş. Telefon numaralarının içinde harf veya karakterler var

Sub Deneme()
Dim deg As String
For i = 1 To [A65536].End(3).Row
deg = LCase(Replace(Cells(i, "a"), "*", ""))
Cells(i, "a") = deg
Next i
End Sub

makrosu ile * - + gibi karakterleri değiştirebiliyorum. Problemim şu;
telefon numarasının sonunda isimler var ise nasıl kaldırabilirim.
05325555555YUNUS
gibi. Ve telefon numarasının başındaki 0 ları.
İlginize şimdiden teşekkürler

 

[metinozlu]

Makrosuz bir öneri,
bul değiştir ile 29 kerede değiştirebilirsin. Bul A değiştir boş geçersen seçili yerdeki A harfleri silinir.

 

[janveljan]

Excelin Bul Değiştir fonksiyonu Word kadar elimize çok fazla seçenek vermiyor. Benim tavsiyem verileri worde yapıştırıp orda bul ve değiştiri kullanın, wordde joker karakter kullanmak, sayı veya harf diye aratmak daha kolay çünkü.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub KARAKTER_DÜZENLE()
    Dim Karakterler() As Variant, X As Byte
    Karakterler = Array("~*", "+", "-", "A", "B", "C", "Ç", "D", "E", "F", "G", "H", "I", "İ", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "Ş", "T", "U", "Ü", "V", "W", "X", "Y", "Z")
    For X = 0 To UBound(Karakterler())
    Columns(1).Replace What:=Karakterler(X), Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[WHO_I_AM]

çok teşekkürler üstad. Mükemmel oldu.