"Rüzgar güney-güneydoğu yönünden esiyor"

[idealimsin]

EĞERHATA(EĞER(YADA($AO2="";$V2="");"";İNDİS(pist3!$K$1:$K$50000;KAÇINCI($AO2&$V2;pist3!$B$1:$B$50000&SOLDAN(pist3!$A$1:$A$50000;2);0)));"")

"Rüzgar güney-güneydoğu yönünden esiyor"

yukardaki formülle ulaştığım hücredeki bu metne her kelimenin ilk üç hanesini nasıl alabilirim
" rüz,gün,doğ,yön,esi" gibi

 

[Asri]

"Rüzgar güney-güneydoğu yönünden esiyor"

Buna göre, sonucun bu değilde,
" rüz,gün,doğ,yön,esi"

Bu şekilde olması gerekmez mi?
"Rüz,gün,gün,yön,esi"

 

[Necdet]

Merhaba,

Aşağıdaki KTF (Kullanıcı Tanımlı Fonksiyon) yi bir modüle kopyalayıp deneyiniz.

Kullanımı :

=SozcukIlkHarf(A1;3)

Parametrelerden ikincisi yani alınacak karakter sayısı Seçeneklidir, belirtmezseniz soldan 3 karakter alır, belirtirseniz istediğiniz kadar.

Function SozcukIlkHarf(Rng As Range, Optional Adet As Integer = 3)

    Dim Txt, _
        i       As Integer, _
        Metin   As String
    
    Txt = Split(Application.WorksheetFunction.Trim(Rng), " ")
    
    For i = 0 To UBound(Txt)
        If Metin = "" Then
            Metin = Left(Txt(i), Adet)
        Else
            Metin = Metin & ", " & Left(Txt(i), Adet)
        End If
    Next i
    
    SozcukIlkHarf = Metin
    
End Function

 

[exceluygulamalari]

Merhabalar,

https://exceluygulamalari.wordpress.com/2016/11/26/harf-sayi-veveya-karakter-dizileri-arasindan-veri-ayiklama-islemleri/

Bu örnekteki uygulamayı birkaç kere art arda uygulayarak istediğinizi VBA-makro kullanmaksızın, sadece formüllerle gerçekleştirmek de bir alternatif oluşturabilir.

Umarım faydalı bulursunuz.
Saygılarımla.

 

[idealimsin]

çok teşekkur ederim emeğinize sağlık