yazıyı rakamdan ayırma

[teonet]

Merhaba arkadaşlar benim şöyle bir sorunum var.

S2458741 bu A1 hüçresinde yazıyor olsun ben bunu B1 hüçresine yazıyı C1 hüçresine rakamları nasıl ayırabilirim? Tabiki bunu yapan bir fonksiyon excelde bulunuyor. Asıl sorun SD1254 olduğunda da ayırabilmesi bunu nasıl yapabilirim?

Bilgilerini paylaşan arkadaşlar şimdiden çok teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub ayir()
For a = 1 To Len([a1])
If IsNumeric(Mid([a1], a, 1)) = False Then
[b1] = [b1] & Mid([a1], a, 1)
Else
[c1] = [c1] & Mid([a1], a, 1)
End If
Next
End Sub

Alternatif çözümler için arama motoruna "regexp" yazarak arama yapmanızı öneririm.

 

[Orion1]

Sizin için 2 tane KTF hazırladım.
Ekli dosyayı ve B1,B2 ,C1,C2 deki formüllere bakınız.KTF aşağıda.
Bu KTF'leri başka bir dosyada kullanmak istiyorsanız Bu aşağıdaki kodları O dosyadaki boş bir modüle kopyalayınız.

Function Metinsel(hucre As Range)
Dim i As Byte, deg As String
For i = 1 To Len(hucre)
    If Not IsNumeric(Mid(hucre, i, 1)) Then
        deg = deg & Mid(hucre, i, 1)
    End If
Next
Metinsel = deg
End Function

Function Rakamsal(hucre As Range)
Dim i As Byte, deg As Long
For i = 1 To Len(hucre)
    If IsNumeric(Mid(hucre, i, 1)) Then
        deg = deg & Mid(hucre, i, 1)
    End If
Next
Rakamsal = deg
End Function

 

[tahsinanarat]

ekli dosyayı inceleyiniz

İstediğiniz bu olsa gerek, ekli dosyayı incelermisiniz

 

[teonet]

hepinize ayrı ayrı teşekkür ediyorum. Hemen deniyorum şimdiden ayırdığınız zaman için tekrardan tşk