Sayıyı değil de Harf olanları almak

[k0081]

Merhaba arkadaşlar;

Function Numara(hucre)
   Dim i As Integer
   For i = 1 To Len(hucre)
      sayi = Mid(hucre, i, 1)
      If IsNumeric(sayi) = True Then
         Numara = (Numara & sayi) * 1
         
      End If
   Next i
End Function

bu KTF şu şekilde bir işlem yapmakta : HEA320 yazısından harfleri atarak sayıyı almaktadır.. bunun tam tersini nasıl yapabiliriz..

örnek :

Boru 114x3 gibi bir ifadede 114x3 atıp sadece "Boru" yu D15 hücresine nasıl alabilirim ?

yardımcı arkadaşa şimdiden teşekkürler.

 

[Ömer]

Merhaba,

True yerine False yazın ve *1 ibaresini silin.

.

 

[k0081]

Merhaba,

True yerine False yazın ve *1 ibaresini silin.

.

Ömer hocam tamamdır.. çok teşekkür ediyorum.. fakat x i de alıyor.. onu nasıl kaldırabilrim?

 

[Ömer]

x sayı olmadığı için alıyor. Küçük ilavelerle sorun aşılabilir fakat sizin istediğiniz sadece boşluktan önceyi almak mı?

Eğer öyleyse KTF siz formül ile de yapabilirsiniz.

 

[k0081]

x sayı olmadığı için alıyor. Küçük ilavelerle sorun aşılabilir fakat sizin istediğiniz sadece boşluktan önceyi almak mı?

Eğer öyleyse KTF siz formül ile de yapabilirsiniz.

evet hocam boşluktan önceyi almak.. aynen dediğiniz gibi.. oluyorsa,,, Değiştirmiş olduğum bu ktf yi de kullanabilirim..

 

[Ömer]

evet hocam boşluktan önceyi almak.. aynen dediğiniz gibi.. oluyorsa,, yoksa bu ktf yi kullanabilirim.

Bu şekilde deneyin.

Function bosluk(hucre As Range)
    On Error Resume Next
    bosluk = Split(hucre, " ")(0)
End Function

Kullanımı:

=bosluk(A1) gibi.

 

[k0081]

Bu şekilde deneyin.

Function bosluk(hucre As Range)
    On Error Resume Next
    bosluk = Split(hucre, " ")(0)
End Function

Kullanımı:

=bosluk(A1) gibi.

Ömer hocam çok teşekkür ediyorum. Tamamdır.. saygılar.

 

[Korhan Ayhan]

Birden fazla kelimeden oluşan verilerde sonuç almak için alternatif olarak aşağıdaki fonksiyonuda kullanabilirsiniz.

Function EBAT(Veri As Range) As String
    Dim Data As Variant
    
    Data = Split(Veri.Text, " ")
    
    For X = 0 To UBound(Data)
        If IsNumeric(Left(Data(X), 1)) Then
            EBAT = Data(X)
            Exit Function
        End If
    Next
End Function

 

[k0081]

Korhan Ayhan;

çok teşekkürler hocam.