metin ve rakam olan excell hücresi

[h.aykol_]

1.excell hücresinde

izmir 1970
sakarya 1990
konak 1968

var bu hücreden sadece metinleri ayırmak istiyorum.yani metinleri bir başka hücreye almak istiyorum.
ilgilenen ve bilgisi olanlara teşekkür ederim.

 

[İhsan Tank]

1.excell hücresinde

izmir 1970
sakarya 1990
konak 1968

var bu hücreden sadece metinleri ayırmak istiyorum.yani metinleri bir başka hücreye almak istiyorum.
ilgilenen ve bilgisi olanlara teşekkür ederim.

merhaba
sorunuzun yanıtı
dosyanızın içerisine bir tane module ekliyerek module'nin içine

Function HARFAYIR(Hücre As Range)
    For X = 1 To Len(Hücre)
    If Not IsNumeric(Mid(Hücre, X, 1)) Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
    Next
    SONUÇ = IIf(SONUÇ = 0, "Harf Bulunamadı!", SONUÇ)
    HARFAYIR = SONUÇ
End Function

bu kodu yapıştırınız.
ardından hücreye
verileriniz a sutunda olduğunu var sayarsak
b1 hücresine

=HARFAYIR(A1)

bu formülü yazarak aşağıya doğru çekiniz.
örnek dosya ekte

 

[h.aykol_]

İlginize ,bilginize Teşekkür ederim Sayın Tank.

 

[İhsan Tank]

İlginize ,bilginize Teşekkür ederim Sayın Tank.

rica ederim
Ktf :Kodunu kullandığım Syn : Korhan Ayhan Uzman'a Teşekkür Ederim
kolay gelsin :mutlu: