Son Kelime Büyük diğerleri küçük yazsın

Katılım
24 Şubat 2009
Mesajlar
1,077
Excel Vers. ve Dili
2016
Altın Üyelik Bitiş Tarihi
01-03-2023
Merhaba arkadaşlar; B1 hücresinde HACI BAYRAM ÖZKAN diye bir ve buna benzer isimler, K24 hücresine sağdan son kelime BÜYÜK diğerleri küçük yazdırmak için bir formül istiyorum. Yani sonuçta "Hacı Bayram ÖZKAN" yazacak herkese teşekkür ederim.
 
Katılım
24 Mart 2020
Mesajlar
39
Excel Vers. ve Dili
Microsoft 365-Türkçe
Altın Üyelik Bitiş Tarihi
23.02.2022
=YAZIM.DÜZENİ(SOLDAN(B1;UZUNLUK(B1)-UZUNLUK(KIRP(SAĞDAN(YERİNEKOY(B1;" ";YİNELE(" ";100));100)))))&BÜYÜKHARF(KIRP(SAĞDAN(YERİNEKOY(B1;" ";YİNELE(" ";100));100)))
 
Katılım
24 Şubat 2009
Mesajlar
1,077
Excel Vers. ve Dili
2016
Altın Üyelik Bitiş Tarihi
01-03-2023
Sayın abim bir yerde galiba eksiklik var olmuyor, baktım bulamadım size zahmet bir bakarsanız. Teşekkürler.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki formülü deneyiniz. Yalnız son kelime B1 hücresinde birden fazla varsa sonuç hatalı olur. Örneğin ali veli develi için Ali Veli DEVELİ sonucunu verirken ali veli veli için Ali VELİ sonucunu verir:

=KIRP(YAZIM.DÜZENİ(YERİNEKOY(B1;PARÇAAL(B1;MBUL("@";YERİNEKOY(B1;" ";"@";UZUNLUK(B1)-UZUNLUK(YERİNEKOY(B1;" ";"")));1)+1;UZUNLUK(B1));""))&BÜYÜKHARF(PARÇAAL(B1;MBUL("@";YERİNEKOY(B1;" ";"@";UZUNLUK(B1)-UZUNLUK(YERİNEKOY(B1;" ";"")));1)+1;UZUNLUK(B1))))

Formülün orijinalini forumdan almıştım.
 

ThaLees

Altın Üye
Katılım
2 Eylül 2014
Mesajlar
144
Excel Vers. ve Dili
2016 Türkce 64bit
Altın Üyelik Bitiş Tarihi
09-05-2025
Merhaba arkadaşlar; B1 hücresinde HACI BAYRAM ÖZKAN diye bir ve buna benzer isimler, K24 hücresine sağdan son kelime BÜYÜK diğerleri küçük yazdırmak için bir formül istiyorum. Yani sonuçta "Hacı Bayram ÖZKAN" yazacak herkese teşekkür ederim.
Merhabalar. Aşağıdaki şekilde denermisiniz lütfen.
F4 yazan yere kelimenin bulunduğu hücreyi yazabilirsiniz.

=BÜYÜKHARF(SAĞDAN(F4;((BUL(" ";F4;1)))))
 
Katılım
24 Şubat 2009
Mesajlar
1,077
Excel Vers. ve Dili
2016
Altın Üyelik Bitiş Tarihi
01-03-2023
YUSUF BEY; Teşekkürler oldu eline sağlık, Sayın Thalees sizinki sadece soyismi keserek aldı, sorumu galiba yanlış anlamışsınız? Yusuf beyin formülü tam uydu her ikinizede teşekkür ederim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Alternatif;

C++:
=EĞER(UZUNLUK(B1)-UZUNLUK(YERİNEKOY(B1;" ";""))=0;YAZIM.DÜZENİ(B1);YAZIM.DÜZENİ(KIRP(SOLDAN(B1;BUL("#";YERİNEKOY(B1;" ";"#";UZUNLUK(B1)-UZUNLUK(YERİNEKOY(B1;" ";"")))))))&PARÇAAL(B1;BUL("#";YERİNEKOY(B1;" ";"#";UZUNLUK(B1)-UZUNLUK(YERİNEKOY(B1;" ";""))));255))
 

klop01

Altın Üye
Katılım
19 Aralık 2016
Mesajlar
638
Excel Vers. ve Dili
2021 Türkçe 64 Bit
Altın Üyelik Bitiş Tarihi
07-02-2028
Bana da forumdaki @çıtır isimli üye aynı konuda yardımcı olmuştu.
B1'e kaç sözcük yazarsanız yazın ilk iletide beklediğiniz sonucu yazıyor. B1 boşsa hata değeri göstermiyor.
Alternatif olarak paylaşayım istedim.
=EĞERHATA(KIRP(YAZIM.DÜZENİ(SOLDAN(YERİNEKOY(KIRP(B1)&" ";" ";YİNELE(" ";255);UZUNLUK(KIRP(B1))-UZUNLUK(YERİNEKOY(KIRP(B1);" ";"")));255)))&" "&BÜYÜKHARF(PARÇAAL(KIRP(B1);1+BUL("*";YERİNEKOY(KIRP(B1);" ";"*";UZUNLUK(KIRP(B1))-UZUNLUK(YERİNEKOY(KIRP(B1);" ";""))));255));"")
 
Katılım
24 Şubat 2009
Mesajlar
1,077
Excel Vers. ve Dili
2016
Altın Üyelik Bitiş Tarihi
01-03-2023
Herkese teşekkür ederim, sorum çözüldü dua ile kalın, eksik olmayın iyi ki varsınız?
 
Üst