Hücre deki bilgi içinden sadece yazıları almak

[Mdemir63]

Selamlar,

Arkadaşlar ekteki dosyada anlatmaya çalıştım.

Saygılar

 

[Ali]

=YERİNEKOY(A2;ARA(9,99999999999999E+307;--SAĞDAN(A2;SATIR($A$1:$A$1024)));"")

şeklinde deneyiniz.

.

 

[Orion1]

Altenatif.KTF
Dosyanız ektedir.

Function metin_al(deg As String) As String
Dim deg2 As String, i As Integer
For i = 1 To Len(deg)
    If Not IsNumeric(Mid(deg, i, 1)) Then
        deg2 = deg2 & Mid(deg, i, 1)
    End If
Next
metin_al = deg2

End Function

 

[Mdemir63]

=YERİNEKOY(A2;ARA(9,99999999999999E+307;--SAĞDAN(A2;SATIR($A$1:$A$1024)));"")

şeklinde deneyiniz.

.

Selmlar,

Hocam vallahi hızır gibisiniz . Çok teşekkür ederim.
Saygılar

 

[Orion1]

Benim yazdığım ktfyi görmediğinizde sanıyorum.

 

[Mdemir63]

Altenatif.KTF
Dosyanız ektedir.

Function metin_al(deg As String) As String
Dim deg2 As String, i As Integer
For i = 1 To Len(deg)
    If Not IsNumeric(Mid(deg, i, 1)) Then
        deg2 = deg2 & Mid(deg, i, 1)
    End If
Next
metin_al = deg2
 
End Function

Selamlar,
Evren hocam sizede çok teşekkür ederim çok iyi oldu alternatif makrolu çözüm çok sağolun.

Saygılar

 

[Orion1]

Selamlar,
Evren hocam sizede çok teşekkür ederim çok iyi oldu alternatif makrolu çözüm çok sağolun.

Saygılar

Sadece makro değil .Bu ayni zamanda fonksiyondur.
Yolladığım dostyayı incelerseniz fonksiyonun nasıl kullanıldığını göreceksiniz hücre içinde.

 

[Mdemir63]

Benim yazdığım ktfyi görmediğinizde sanıyorum.

hocam kusura bakmayın hatırlayamadım.
Saygılar

 

[Mdemir63]

Sadece makro değil .Bu ayni zamanda fonksiyondur.
Yolladığım dostyayı incelerseniz fonksiyonun nasıl kullanıldığını göreceksiniz hücre içinde.

Evet hocam haklısınız gördüm .

Saygılar sunarım

 

[Ali]

Selamlar,

Hocam vallahi hızır gibisiniz . Çok teşekkür ederim.
Saygılar

Rica ederim. İyi çalışmalar.

.

 

[Orion1]

Evet hocam haklısınız gördüm .

Saygılar sunarım

Rica ederim.
Saygılar benden.