Adı Soyadı Büyük Küçük Harfe Dönüştürme

[Ömer BARAN]

Sorular gerçek belgeyle aynı yapıda olmayan örnek belge üzerinden sorulunca;
verilen kodların gerçek belgeye uyarlanması sıkça karşılaşılan bir durum malesef.
-- 11 İlk veri satırı,
-- 10 ilk veri satırı -1
-- B sütunu sıra numaralarının bulunduğu sütun,
-- C işlem yapılacak sütun.

Private Sub Worksheet_Activate()
Dim i As Integer, isim As String, soyad As String
    For i = 11 To WorksheetFunction.Max([B:B]) + 10
        isim = StrReverse(WorksheetFunction.Proper(Cells(i, "C")))
        soyad = Evaluate("=UPPER(""" & Split(isim, " ")(0) & """)")
        Cells(i, "C") = StrReverse(Replace(isim, Split(isim, " ")(0), soyad))
    Next i
End Sub

 

[iplikci_80]

Teşekkürler.

 

[Necdet]

Sayın Necdet Bey ilginize teşekkür ederim. Çok güzel bir çalışma bir tek benim istediğim format yok ( Sabri Burak YAŞAR).

İstediğiniz format derken?

 

[Ömer BARAN]

Kolay gelsin.

 

[Korhan Ayhan]

Linkteki eklenti işinize yarayabilir.

https://www.excel.web.tr/threads/bueyuek-kuecuek-harf-uygulamasi.74825/

 

[iplikci_80]

Necdet Bey istediğim format derken ilk harfler büyük ve son kelime büyük yani Sabri Burak YAŞAR gibi.

 

[iplikci_80]

Korhan Bey ilginize teşekkür ederim. Çok güzel bir çalışma.