rakamla metni ayırma

[steppe]

Merhaba,
Hücrelerin başında telefon numarası akabinde adres var.Telefon numarası ile adresleri nasıl ayırabiliriz.
Örnek: C sütununda tel+adres var.Telefon C sütununda kalacak.Adres D sütununa aktarılacak.Ekte detaylı açıklama mevcut.
Yardımlarınız için şimdiden teşekkür ederim.

 

[YUSUF44]

En kolay Metni Sütunlara Dönüştür ile yapabilirsiniz. Ancak bu durumda 5. satırdaki gibi standart dışı veriler düzgün geçmeyebilir.

 

[Murat OSMA]

Metni Sütunlara Dönüştürme sihirbazı ile yapabilirsiniz.​

 

[steppe]

Merhaba,
YUSUF44 ,Murat OSMA Hocalarım ilginiz için teşekkür ederim.Veriler belli bir standartta olmadığı için Metni Sütunlara Dönüştürme sihirbazı ile yapamıyorum.

Sub hucre_icindeki_sayilari_ayir()
Dim X As Integer
Columns("D").Clear
For Each Hücre In Range("c1:c65536")
For X = 1 To Len(Hücre)
Sayı = Mid(Hücre, X, 1)
If IsNumeric(Sayı) = True Then
Cells(Hücre.Row, 4) = Cells(Hücre.Row, 4) & Sayı
End If
Next
Next
End Sub

kodu ile sayılar D sütununa Kopyalanıyor. Bu sefer C sütununda hücrelerin başındaki telefon nolarını silemiyorum.Baştakileri kırp diyeceğim fakat bu seferde bazı telefon nolarının aralarında boşluk var bazılarında yok.Epeyce araştırdım fakat işin içinden çıkamadım.

 

[veyselemre]

Merhaba, kodlarınızı düzenledim.

Sub hucre_icindeki_sayilari_ayir()
    Dim X As Integer
    Columns("D:E").Clear
    For Each hücre In Range("c1:c65536")
        al = Replace(Trim(hücre), Chr(160), "")
        For X = 1 To Len(al)
            sayı = Mid(al, X, 1)
            If IsNumeric(sayı) = False And sayı <> " " Then
                Cells(hücre.Row, 4) = Trim(Left(al, X - 1))
                Cells(hücre.Row, 5) = Trim(Mid(al, X))
                Exit For
            End If
        Next
    Next
End Sub

 

[steppe]

veyselemre Hocam,
Yardımlarınız için çok teşekkür ederim.