Formülde Revize/ İsim İlk Harfi ve Soyadın Tamamı Büyük

[iplikci_80]

Formül yardımıyla gelen M3 hücresindeki isim ve soy ismin, isim kısımlarının baş harfini ve soy isim kısımlarının tamamını büyük yapan mevcut kodun M3 hücresindeki formül bozulmadan ve her isim değiştikçe kod bölünde F5 yapmadan kendiliğinden çalışması için revize edilmesi hususunda yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

M3 hücresinde formül yok..

 

[iplikci_80]

Ekledim.

 

[Korhan Ayhan]

Siz Sayfa1 isimli sayfada sadece B2 hücresine mi isim yazıyorsunuz? Yoksa bu liste alta doğru devam ediyor mu?

 

[iplikci_80]

Liste devam ediyor.

 

[Korhan Ayhan]

İki alternatif önerebilirim.

Birincisi kodu kullanıcı tanımlı fonksiyona çevirip M3 hücresinde kullanmak
İkincisi ise Sayfa1 isimli sayfanıza yazılacak kod ile B sütununa elle veri girişi yaptığınızda isimleri otomatik düzeltilmesi.

Hangisi sizin için daha uygun olur?

 

[iplikci_80]

Mümkün ise, birinci alternatif ile yardımınızı rica etsem.

 

[Korhan Ayhan]

Daha önce forumda başka bir başlıkta böyle bir fonksiyon hazırlamıştım. Hatta başlıkta yerleşik fonksiyon çözümleri de bulunuyor. İnceleyiniz.

Hücre İçindeki ad soyaddan soyadı büyük yazma

merhaba sayın hocalarım A1 hücresine Hakan Durmaz yazıyo B1 hücresine nasıl formül yazmalıyımki Hakan DURMAZ haline dönüsün (soyadın hepsi büyük harf olsun)

www.excel.web.tr

 

[Korhan Ayhan]

Hatta o linkteki fonksiyon tek isimli kişilerde hata veriyor. Aşağıdaki fonksiyon ile daha verimli sonuç alabilirsiniz.

M3 hücresinde formülünüzü aşağıdaki gibi revize edip kullanabilirsiniz.

=AD_SOYAD(DÜŞEYARA(K2;Sayfa1!A:B;2;0))

Option Explicit

Function AD_SOYAD(Veri As Variant) As String
    Dim Metin As Variant, X As Byte, Ad As String, Soyad As String
         
    Application.Volatile True
 
    If InStr(1, Trim(Veri), " ") = 0 Then
        AD_SOYAD = Evaluate("=PROPER(""" & Trim(Veri) & """)")
    Else
        Metin = Split(Trim(Veri), " ")
     
        For X = 0 To UBound(Metin) - 1
            Ad = Trim(Ad & " " & Metin(X))
        Next
         
        Ad = Evaluate("=PROPER(""" & Ad & """)")
        Soyad = Evaluate("=UPPER(""" & Trim(Metin(UBound(Metin))) & """)")

        AD_SOYAD = Trim(Ad & " " & Soyad)
    End If
End Function

 

[iplikci_80]

Korhan Bey çok teşekkür ederim.