Metin içerisinden sadece sayıları alma

[ozanyakar]

Merhaba forumda benzer örnekler var ama yapamadım bir türlü.

Ekteki tabloda satır içinden sadece sayıları almak istiyorum. Şöyleki ;

Satırda A,1334,ADANUS BİLİŞİM SİS SAN VE TİC LTD ŞTİ, yazıyor, burdan sadece 1334 ü süzmek istiyorum.

Satırların karakter uzunluğu aynı olmadığı için sağdan, soldan formülleri ile yapamadım. Yardımcı olur musunuz ?Ekli dosyayı görüntüle SADECE SAYILARI ALMA.xlsx

 

[Murat OSMA]

Merhabalar Ozan Bey,

Bu konuya bakabilirsiniz; http://www.excel.web.tr/f47/metinse...riden-sayylary-ayyrma-t139715.html#post758333

 

[monelogg]

Merhaba, şu makro ile çözüm işinizi görür mü?

Not: Murat Bey'in çözümünü görmedim, kusura bakmayın.

 

[Murat OSMA]

Estağfurullah Mahir Bey,

Ben de makro ile alternatif bir örnek kod paylaşayım;

[FONT="Trebuchet MS"]Sub Emre()
    Dim Rky As Object, i%
    Set Rky = CreateObject("VBScript.RegExp")
    Rky.Global = True
    Rky.Pattern = "\d+"
    For i = 4 To Range("D65536").End(3).Row
        Cells(i, 5) = Rky.Execute(Cells(i, 4)).Item(0) * 1
    Next i
    i = Empty: Set Rky = Nothing
End Sub[/FONT]

Selamlar, saygılar

 

[monelogg]

Teşekkürler Murat Bey, saygı bizden.

 

[ozanyakar]

Sn. Murat OSMA , Sn.monelogg teşekkür ederim. Biraz geç oldu kusura bakmayın. Sayenizde hayatımın ilk makrosunu çalıştırmış bulunuyorum, günün birinde sizler gibi hiçbir karşılık gözetmeden excel formülleri ve vba kodları ile insanlara yardımcı olabilmek ümidiyle. Saygı ve selamlar.

 

[Murat OSMA]

Rica ederiz Ozan Bey, hafta sonundaki eğitime katılacak mısınız ?

 

[ozanyakar]

Murat Hocam, Dilber Hanıma 19-20 Nisanın benim için daha uygun olacağını söyledim. Eğitiminiz bu haftaki Tiger Üretim modülü eğitimi ile çakışıyor, umarım proğramınıza uyar ve eğitime katılabilirim.