hücre içinden karakter alma

[ABDULLAHKESCİ]

iyi günler
ABDURRAHİM AKALIN 710627 001860J(186_0J_ÇORLU
AHMET HAMDİ KARABULUT 384284 001860J(186_0J_ÇORLU

DİYE DEVAM EDEN BİR HÜCRENİN İÇİNDEN RAKAMLARA KADAR OLAN İSİMLERİ TEK BİR HÜZREYE CEKMEK İSTİYORUM
BİRÇOK FONKSİYON DENEDİM BAŞARAMADIM
YARDIMCI OLURSANIZ SEVİNİRİM

 

[excelokyanus500]

Function RakamOncesiMetin(metin As String) As String
    Dim i As Integer
    For i = 1 To Len(metin)
        If IsNumeric(Mid(metin, i, 1)) Then
            Exit For
        End If
    Next i
    RakamOncesiMetin = Left(metin, i - 1)
End Function

 

[DOLAR]

Merhaba,

Fonksiyon ile yapmak isterseniz 2016 ve sonrası Office için,
Veri>Araçlar>Hızlı Doldurma seçeneğini kullanabilirsiniz.

Örnek, yandaki hücreye ABDURRAHİM AKALIN yazın ve Hızlı doldurmaya tıklayın tüm hücrelerden isimleri alır.

 

[Necdet]

Merhaba,
Alternatif olsun, Fonksiyon ile

=SOLDAN(A1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9}; A1 & "0123456789"))-1)

 

[ABDULLAHKESCİ]

ÇOK TEŞEKKÜR EDİYORUM