Metin İçerisinden Sayı Alma

[NADİR YILDIZ]

Ziraat bankası extresinde benimde kullandığım
burada hatırlayamadığım üstadlardan biri yardımcı olmuştu

 

[KuruBaklava]

Buna ek olarak ben farklı sayfalardan "Toplam Mesafe : 338,54 km" hücredeki bu 338,54 rakam ve virgül ile beraber alabilmek için nasıl bir kod yazmam gerekir? 33854 olarak alıyor.

 

[Korhan Ayhan]

Ekteki gibi olabilir..

SUBSTITUTE = YERİNEKOY

Spoyler: Metin İçinden Rakam Almak

 

[KuruBaklava]

En güzeli ben görsel ile anlatmaya çalışayım.
https://www.hizliresim.com/fs48alr
A4, F4; K4, P4 A9, F9, K9 hücrelerindeki örneğin A4deki 67,61 yazan rakamı virgülü ile birlikte

https://www.hizliresim.com/7y35w8g
B4, B5, B6 hücresine nokta yada virgülüyle eklemek istiyorum.

bunun için nasıl bir formül yada kod eklemem gerekmekte?
Teşekkürler şimdiden.

 

[Korhan Ayhan]

Önerdiğim formülü denediniz mi?

 

[EMRE YALÇIN]

Önerdiğim formülü denediniz mi?

EVET TEŞEKKÜRLER.

 

[Korhan Ayhan]

Sorumu size yöneltmemiştim.

 

[eksiel]

Aşağıdaki kodu dosyanızda çalıştırın. Sadece 11 haneden oluşan sayıyı alarak "J" sütununa yazacaktır.

Sub tcnoyual()
Set nesne = CreateObject("VBScript.Regexp")
nesne.Global = True
nesne.Pattern = "\D(\d{11})\D"
For a = 2 To [I65536].End(3).Row
Set veri = nesne.Execute(Cells(a, "I"))
If veri.Count > 0 Then Cells(a, "j") = nesne.Execute(Cells(a, "I")).Item(0)
Next
Set nesne = Nothing
End Sub

Sayın hocam t.c. kimlik numaralarının başında karakter olduğu zaman almıyor boşluk varsa alıyor da t.c.:111, -111...- şeklimde olanları almıyor bir çözümü var mıdır

 

[ÖmerBey]

Merhaba,
İlgili satırı aşağıdaki şekilde değiştirip deneyiniz.

nesne.Pattern = "(\d{11})"

 

[eksiel]

Merhaba,
İlgili satırı aşağıdaki şekilde değiştirip deneyiniz.

nesne.Pattern = "(\d{11})"

Denedim hocam ama IBAN numarasından ilk 11 karakteri aldı bu seferde t.c.kimlik no kısmını almadı

 

[ÖmerBey]

Bir de bunu deneyiniz.

Sub tcnoyual()
Set nesne = CreateObject("VBScript.Regexp")
nesne.Global = True
nesne.Pattern = "\D(\d{11})\D"
For a = 2 To [I65536].End(3).Row
Set veri = nesne.Execute(Cells(a, "I"))
If veri.Count > 0 Then Cells(a, "j") = Mid(nesne.Execute(Cells(a, "I")).Item(0), 2, 11)
Next
Set nesne = Nothing
End Sub

 

[eksiel]

Bir de bunu deneyiniz.

Sub tcnoyual()
Set nesne = CreateObject("VBScript.Regexp")
nesne.Global = True
nesne.Pattern = "\D(\d{11})\D"
For a = 2 To [I65536].End(3).Row
Set veri = nesne.Execute(Cells(a, "I"))
If veri.Count > 0 Then Cells(a, "j") = Mid(nesne.Execute(Cells(a, "I")).Item(0), 2, 11)
Next
Set nesne = Nothing
End Sub

Çok teşekkür ederim emeğinize sağlık kalpkalpkalp