Ahmet belge numarası 12356 dir.

Mustafa 27. oldu.


gibi verilen satır ifadelerindeki sadece sayı kısmını hangi visual basic kodu ile alabiliriz. 

aşağıdaki fonksiyon işinize yarayabilir ama şöyle bir sorun var metin içindeki sayılar Cuma 0123 ali 000 gibi dağınıksa 0123000 şeklinde alır.
fonksiyonu aşağıdaki şekilde çağırabilirsiniz

(24/02/2020 09:42)berduş Adlı Kullanıcıdan Alıntı: aşağıdaki fonksiyon işinize yarayabilir ama şöyle bir sorun var metin içindeki sayılar Cuma 0123 ali 000  gibi dağınıksa 0123000 şeklinde alır.

Visual Basic Code

Function SayiAl(Mtn As String)
Dim Sayi As String
For x = 1 To Len(Mtn)
SayInt = Mid(Mtn, x, 1)
If IsNumeric(SayInt) Then SayiAl = SayiAl & SayInt
Next x
End Function

---

fonksiyonu aşağıdaki şekilde çağırabilirsiniz

Visual Basic Code

Private Sub SayiA_Click()
Me.Metin2 = SayiAl(Me.Metin0)
End Sub

---

Teşekkür ederim. Süper oldu.

iyi çalışmalar)
Rep için teşekkürler

Ben de farklı bir yöntem göstereyim. Mid komutuyla da istenilen alanları çağırabilirsiniz.