Aynı hücredeki büyük harfle yazılan kelimeleri yazım düzeni şeklinde yazması

[kalekale75]

Aynı hücredeki büyük harfe yazılan kelimeleri yazım düzeni şeklinde yazmasını istiyorum.örnek dosya aşağıda eklenmiştir.

 

[Necdet]

Merhaba,

Aşağıdaki kodlar her sözcüğü yazım düzenine çevirir. Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A:D]) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
        Target.Value = BKH(Target.Value, 3)
    Application.EnableEvents = True
    
End Sub

Function BKH(Sozcuk As String, Optional Tip As Integer = 2) As String

    'Tip    1. Küçük Harf
    '       2. Büyük Harf
    '       3. Yazım Düzeni
    
    If Tip = 1 Then
        BKH = Evaluate("=LOWER(" & """" & Sozcuk & """" & ")")
    ElseIf Tip = 2 Then
        BKH = Evaluate("=UPPER(" & """" & Sozcuk & """" & ")")
    Else
        BKH = Application.WorksheetFunction.Proper(Sozcuk)
    End If
    
End Function