Satırda 11 haneli rakam arama

[sldrkyurdal]

Merhaba ,
Bir konuda desteğe ihtiyacım var.Örneğin a1 sütununda text ve nümeriknaynı anda var bazıları birleşik bazılarında boşluk var yapmak istediğim a1hücresinde nümerik oluk 11 rakam içeren sayıları yan satıra yazması Teşekkürler

 

[mesut.ozcanli]

Merhaba,
örnek atar mısınız?

 

[sldrkyurdal]

merhaba,
excel kitabını ekledim

örneğin a1 sutununda rakamlar ve harfler var sadece rakamları yan satıra alınacak ama buradaki kriter şu şekilde olacak
abd 1 kkhjsdf2 tbjahd:12547785 - sutun bu şekilde ise b1 e ,
1 2 12547785 şeklinde yani arada boşluklar olmalı.
teşekkürler,

 

[ÖmerBey]

Merhaba,
Örnek dosyanız için aşağıdaki kodu deneyiniz.

Sub kod()
For a = 1 To Range("A65500").End(3).Row
    met = Cells(a, "A").Text
    For b = 1 To Len(met)
        If IsNumeric(Mid(met, b, 1)) Then
            mety = mety & Mid(met, b, 1)
        Else
            mety = mety & " "
        End If
    Next
    Cells(a, "B").Value = WorksheetFunction.Trim(mety)
    mety = ""
Next
End Sub

 

[sldrkyurdal]

Merhaba,
Örnek dosyanız için aşağıdaki kodu deneyiniz.

Sub kod()
For a = 1 To Range("A65500").End(3).Row
    met = Cells(a, "A").Text
    For b = 1 To Len(met)
        If IsNumeric(Mid(met, b, 1)) Then
            mety = mety & Mid(met, b, 1)
        Else
            mety = mety & " "
        End If
    Next
    Cells(a, "B").Value = WorksheetFunction.Trim(mety)
    mety = ""
Next
End Sub

Çok çok teşekkürler süpersiniz.

 

[Murat OSMA]

RegExp ile istediğiniz işlemi yapabilirsiniz.​

 

[sldrkyurdal]

murat bey teşekürler

 

[antonio]

Merhaba,
Alternatif olarak aşağıdaki yöntemi de kullanabilirsiniz.

Sub rakamlari_ayir()
Dim reg As Object, ss As Long
Set reg = CreateObject("VBScript.Regexp")
ss = Sheets("Sayfa1").Range("A5000").End(3).Row
reg.Pattern = "[^0-9]+"
reg.Global = True
For i = 1 To ss
    Cells(i, 2).Value = reg.Replace(Cells(i, 1), " ")
Next i
End Sub