Sayi Ve Metnİ Ayirma

[emre1979]

A1 HUCRESINDEKI METIN VE YAZIYI EMRE1979
A2 YE YAZILAR EMRE
A3 SAYILAR GELECEK SEKILDE AYIRMA 1979


Arkadaşlar böyle bir formül ve makro vardı görmüştüm
fakat sitede bulamıyorum yardımcı olursanız sevınırım

 

[Leoncio]

Sayın emre1979;

Arama motorundan arattırarak denediniz mi?

http://www.excel.web.tr/showthread.php?t=41680&highlight=Say%FD+ve+metni+ay%FDrma

http://www.excel.web.tr/showthread.php?t=39687&highlight=Say%FD+ve+metni+ay%FDrma

 

[Ali]

Eğer hepsi bu formatta ise makroya gerek yok.

A3 hücresine

=ARA(9,99999999999999E+307;--SAĞDAN(A1;SATIR($A$1:$A$1024)))

A2 hücresinede

=YERİNEKOY(A1;A3;"")

yazınız.

 

[Orion1]

Sizin için bir KTF hazırladım.
Aşağıdaki kodları bir modüle yapıştırın.
A1 hücresinde string değeriniz olduğunu kabul edelim.
formül şöyle olacak =kelime(A1) Kelimeyi bulmak için.
=rakam(A1) rakamı bulmak için.

Function Kelime(hucre As Range)
Dim deg As String
If hucre.Value = "" Then Exit Function
For i = 1 To Len(hucre)
    If Not IsNumeric(Mid(hucre.Value, i, 1)) Then
        deg = deg & Mid(hucre.Value, i, 1)
    End If
Next i
Kelime = deg
End Function

Function Rakam(hucre As Range)
Dim deg2
If hucre.Value = "" Then Exit Function
For i = 1 To Len(hucre)
    If IsNumeric(Mid(hucre.Value, i, 1)) Then
        deg2 = deg2 & Mid(hucre.Value, i, 1)
    End If
Next i
Rakam = deg2
End Function

 

[Ersen]

Sayın Evren Gizlen,

Bu harika ve dahiyane çözümün için seni kutlarım.
Rica ederim.
İyi çalışmalar.

 

[Orion1]

Sayın Evren Gizlen,

Bu harika ve dahiyane çözümün için seni kutlarım.
Rica ederim.
İyi çalışmalar.

Rica ederim.
İyi çalışmalar.