Bir hücredeki cümlenin baş harflerinden kod oluşturmak

[besen]

Örneğin hücrede yazılı olan "CASH AND CASH EQUIVALENTS"
Benim istediğim CACE

Teşekkür ederim.

 

[Merhum İdris SERDAR]

.

Yerleşik işlevlerle:

=LEFT(A1)&MID(A1;FIND(" ";A1)+1;1)&MID(A1;FIND(" ";A1;FIND(" ";A1)+1)+1;1)&MID(A1;FIND(" ";A1;FIND(" ";A1;FIND(" ";A1)+1)+1)+1;1)

KTF kodları:

Function Paraf(klm As String) As String

Dim x, i As Integer

x = Split(klm, " ")

For i = 0 To UBound(x)
    Paraf = Paraf & Left(x(i), 1)
Next

End Function

.

 

[besen]

Hocam çok teşekkür ederim.
Ben 4 kelimeyi örnek olarak yazmıştım, iki, Üç, Beş kelime olanlarda var. Orada #Value! oluyor.
Kullanıcı Tanımlı Fonksiyonu nasıl uygulayacağımı bilmiyorum.

 

[Merhum İdris SERDAR]

.

KTF dediklerinizin hepsini yapıyor.

Örnek:

=Paraf(A1)

gibi...


Yerleşik:

ikili:

=LEFT(A1;1)&MID(A1;FIND(" ";A1;1)+1;1)

Üçlü:

=LEFT(A1;1)&MID(A1;FIND(" ";A1;1)+1;1)&MID(A1;FIND(" ";A1;FIND(" ";A1;1)+1)+1;1)

Dörtlü:

=LEFT(A1)&MID(A1;FIND(" ";A1)+1;1)&MID(A1;FIND(" ";A1;FIND(" ";A1)+1)+1;1)&MID(A1;FIND(" ";A1;FIND(" ";A1;FIND(" ";A1)+1)+1)+1;1)

.

Burada dikkat ederseniz,

&MID(A1;FIND(" ";A1)+1;1)

bloğunu duruma göre uyarlıyorsunuz.

.

 

[besen]

Tamam hocam anladım, çok teşekkür ederim.