Büyük Küçük Harf Düzeni

[iplikci_80]

Arkadaşlar yapmak istediğim olay EK'te gönderdeğim örneğin B sütununda isimler var, bu isimlerde iki isim olanaların örneğin "ALİ MURAT GÖKCAN" gibi isimlerin tamamı büyük yada küçük girilse "Ali Murat GÖKCAN" şeklinde yazılmasını sağlamak. Herkese çok teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Bu işlemi yaptığınız sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz. B sütununa isim yazdıkça gerekli düzeltme yapılacaktır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim VERİ() As String, X As Byte, İSİM As String
 
    On Error GoTo Son
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target = WorksheetFunction.Proper(Target)
    VERİ = Split(Target, " ")
    For X = 0 To UBound(VERİ) - 1
        İSİM = IIf(İSİM = "", VERİ(X), İSİM & " " & VERİ(X))
    Next
    Target = İSİM & " " & UCase(Replace(Replace(VERİ(UBound(VERİ)), "ı", "I"), "i", "İ"))
Son:
    Application.EnableEvents = True
End Sub

 

[iplikci_80]

Ayırdığınız zaman ve emek için teşekkür ederim.