Çözüldü Bir, İki ve Üç kelimeden oluşan isimlerin kısaltılması

[Gungor_Alkan]

Merhaba,

Bir, iki ve üç kelimeden oluşan mahalle isimlerim var.
Bunları A1 den aşağı doğru karışık bir şekilde yazıyorum.
B1 deki formülü aşağı doğru çekince
kelimeler arasındaki boşluklara bakarak kaç kelimeden oluştuğunu kontrol edip
aşağıdaki şekilde kısaltmasını istiyorum.

Atatürk = Atatürk
Mustafa Kemal = M. Kemal
Mustafa Kemal Atatürk = M. K. Atatürk

Zafer = Zafer
Murathan = Murathan
Çamlıpınar = Çamlıpınar

Yahya Kemal = Y. Kemal
Yahya Kemal Beyatlı = Y. K. Beyatlı

gibi.

Yardımcı olursanız çok sevinirim.
Teşekkürler

 

[hamitcan]

Bu şekilde dener misiniz ?

=SOLDAN(A1;1) &"." & PARÇAAL(A1;MBUL(" ";A1)+1;1)&"."&SAĞDAN(A1;MBUL(" ";A1)+1)

 

[Korhan Ayhan]

Deneyiniz.

5 isimli kişilere kadar sonuç verecektir.

=EĞER(A1="";"";EĞER(EHATALIYSA(BUL(" ";A1));A1;EĞER(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))=1;SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));1*30;30));1)&". "&KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));2*30;30));EĞER(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))=2;SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));1*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));2*30;30));1)&". "&KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));3*30;30));EĞER(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))=3;SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));1*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));2*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));3*30;30));1)&". "&KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));4*30;30));EĞER(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))=4;SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));1*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));2*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));3*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));4*30;30));1)&". "&KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));5*30;30))))))))

 

[Gungor_Alkan]

Bu şekilde dener misiniz ?

=SOLDAN(A1;1) &"." & PARÇAAL(A1;MBUL(" ";A1)+1;1)&"."&SAĞDAN(A1;MBUL(" ";A1)+1)

İlginiz için teşekkür ederim. Formülünüzü uyguladım. Aldığım sonuç şöyle oldu.

MUSTAFA KEMAL ATATÜRK	M.K.L ATATÜRK
MUSTAFA KEMAL	M.K.AFA KEMAL
ATATÜRK	#DEĞER!
YAHYA KEMAL BEYATLI	Y.K.BEYATLI

 

[ÖmerFaruk]

Korhan bey, sırf uğraşınız bile takdir görüyor.
Yorulmadan, usanmadan. Tebrik ederim.

 

[Gungor_Alkan]

Deneyiniz.

5 isimli kişilere kadar sonuç verecektir.

=EĞER(A1="";"";EĞER(EHATALIYSA(BUL(" ";A1));A1;EĞER(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))=1;SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));1*30;30));1)&". "&KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));2*30;30));EĞER(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))=2;SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));1*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));2*30;30));1)&". "&KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));3*30;30));EĞER(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))=3;SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));1*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));2*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));3*30;30));1)&". "&KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));4*30;30));EĞER(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))=4;SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));1*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));2*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));3*30;30));1)&". "&SOLDAN(KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));4*30;30));1)&". "&KIRP(PARÇAAL(YERİNEKOY(" "&PARÇAAL(A1;1;UZUNLUK(A1));" ";YİNELE(" ";30));5*30;30))))))))

Tam istediğim sonucu verdi.
Epeyce uzun bir formül olmuş. Zaman harcamışsınız.
Elinize sağlık. Hakkınızı helal edin.
Umarım başkalarının da işine yarayacaktır.
Çok teşekkür ederim.

MUSTAFA KEMAL ATATÜRK	=	M. K. ATATÜRK
MUSTAFA KEMAL	=	M. KEMAL
ATATÜRK	=	ATATÜRK
YAHYA KEMAL BEYATLI	=	Y. K. BEYATLI

 

[Haluk]

Alternatif olarak; 3'e kadar çalışır...

=BÜYÜKHARF(SOLDAN(A1;1) & "." & EĞERHATA(PARÇAAL(A1;MBUL(" ";A1)+1;1);"") & "." & EĞERHATA(PARÇAAL(A1;MBUL(" ";A1;MBUL(" ";A1)+1)+1;99);""))

.