Hücre İçinden Telefon alma

[hasankardas]

Ekte gönderdiğim tabloda. hücreler içerisinden telefon numaralarını almak mümkün mü?

elimdeki tablonun bazı hücrelerde telefon numarası yok, bazılarında var.

Teşekkür ederim.

 

[Murat OSMA]

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim Evn As Object, i%
    Set Evn = CreateObject("[COLOR="Red"]VBScript.RegExp[/COLOR]")
    Evn.[COLOR="red"]Global [/COLOR]= True
    Evn.[COLOR="red"]Pattern [/COLOR]= "[COLOR="Blue"][B]([0-9]{11})[/B]"[/COLOR]
    On Error Resume Next
    For i = 2 To Range("A65536").End(3).Row
        Cells(i, "B") = Evn.[COLOR="red"]Execute[/COLOR](Cells(i, "A")).[COLOR="red"]Item[/COLOR](0)
    Next i
    i = Empty: Set Evn = Nothing
End Sub[/SIZE][/FONT]

 

[hasankardas]

Murat Bey teşekkür ederim. Bunu modüle ekledim ama resimdeki gibi 3 haneli çıkıyor. kod içerisindeki 3 ü 9 yaptım olmadı

 

[Murat OSMA]

Hangi resimdeki gibi?

 

[hasankardas]

kusura bakmayın Murat Bey eklemeyi unutmuşum

 

[ferrari_]

murat bey yaptığınız çalışmalar için gerçekten çok teşekkür ederiz.

 

[Murat OSMA]

kusura bakmayın Murat Bey eklemeyi unutmuşum

Gönderdiğiniz dosyada resimdeki rakamları içeren telefon numarası yok.

murat bey yaptığınız çalışmalar için gerçekten çok teşekkür ederiz.

Rica ederim. Faydalı olması dileğiyle..

 

[YUSUF44]

Murat Bey teşekkür ederim. Bunu modüle ekledim ama resimdeki gibi 3 haneli çıkıyor. kod içerisindeki 3 ü 9 yaptım olmadı

Gönderdiğiniz örnek dosyaya Murat Bey'in kodlarını uyguladığımda telefonları B sütununa aldı. Ya asıl dosyanız örnek dosyanızdan farklı ya da yanlış bir şey yapıyorsunuz.