(24/02/2020, 09:42)berduş yazdı: 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.

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

Private Sub SayiA_Click()

Me.Metin2 = SayiAl(Me.Metin0)

End Sub

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