Ad ve Soyadları Büyük Harf Yapma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Kısa Açıklama

Ad ve Soyadları Büyük Harf Yapma isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Diğer
DATABASE DATA ve ARŞİV Sayfaları B sütunundaki sicil numaralarına çift tıklandığında ÖZLÜK klasöründe o isme ait boş bir klasör oluşmaktadır. Buradaki Ad-soyad ile ilgili büyük/küçük harf olayı;

Örneğin Ali Veli Aydın Kaplan >> adı: Ali Veli, soyadı: AYDIN KAPLAN
Örneğin Ali Aydın Kaplan >> adı: Ali Aydın, soyadı: KAPLAN
Örneğin Ali Kaplan >> adı: Ali , soyadı: Kaplan yani isimlerin küçük soyadların büyük olması gerçekleştirilmediğinden;

Örneğin Ali Veli Aydın Kaplan >> adı: ALİ VELİ soyadı: AYDIN KAPLAN
Örneğin Ali Aydın Kaplan >> adı: ALİ AYDIN, soyadı: KAPLAN
Örneğin Ali Kaplan >> adı: ALİ , soyadı: KAPLAN şeklinde tamamın büyük harften oluşmasını sağlamak için yardımlarınızı talep ediyorum.
 

Ekli dosyalar

@YasarPiskin

İstediğiniz gibi olmasa bile,
eklediğiniz örnek belgede çift tıklama yaptığınızda
söylediğiniz gibi klasör oluşturma vs kodlarının çalışır durumda olduğundan emin misiniz?

Doğru örnek belge eklediğinizi kontrol etmelisiniz bence.
 
Uyarınız için çok teşekkür ederim.

Örnek Belgede;
Hem DATA hem de ARŞİV Sayfaları B sütunundaki sicil numaralarına çift tıklandığında ÖZLÜK klasöründe o isme ait boş bir klasör oluşmaktadır.

Ali Veli Aydın Kaplan Ali Veli Aydın KAPLAN bunu açıklamada sehven Ali Veli AYDIN KAPLAN olarak yazmışım.
Ali Aydın Kaplan Ali Aydın KAPLAN
Ali Kaplan Ali Kaplan şeklinde kalıyor. Ali KAPLAN olmasını gerçekleştiremedim. Bu yüzden hepsi büyük olsun.
 
1) Ad Soyadın tümünün her zaman büyükharf olmasını mı istiyorsunuz?
2) 1 kelime isim, 1 kelime soyisim olduğunda mı sorun vardır?

BARAN isimli MODUL içerisinde yer alan
Function AD_SOYAD_BRN isimli KTF kodundaki
If say > a Then
kısmını
If say >= a Then
olarak değiştirip dener misiniz?
 
ÖNceki cevabımda belirttiğim işleme ilave olarak o kodun ilk satırındaki
a = Int((UBound(Split(metin, " ")) + 1) / 2): s = kel.......
kısmını
a = Int((UBound(Split(metin, " "))) / 2) + 1: s = kel....
olarak değiştirin.
 
Çözüm
Aslında istediğim şey;
Ali Veli Aydın Kaplan Ali Veli Aydın KAPLAN
Ali Aydın Kaplan Ali Aydın KAPLAN
Ali Kaplan Ali Kaplan Ali KAPLAN şeklinde olması.

Cevap 8 ve 9 daki değişiklikleri yatığımda büyük harf değil de;
Ali Veli Aydın Kaplan Ali Veli AYDIN KAPLAN
Ali Aydın Kaplan Ali Aydın KAPLAN
Ali Kaplan Ali KAPLAN oluyor.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst