Makro

[turgayzeynep]

B3 hücresinde isim soyisim yazılı B3 hücresine isim ve soyisimi yazdığım zaman ismin baş harfi büyük soyad tamamen büyük olması için Makro ile nasıl yapabilirim yardımcı olurmusunz

 

[Necdet]

Merhaba,
Sadece B3 hücresinde çalışacaksa aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.
Eğer Tüm B sütununda çalışacaksa kendinize göre uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim t1 As String
Dim t2 As String

If Intersect(Target, [B3]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = BKH(Target.Text, 1)
t1 = Left(Target.Value, 1)
t2 = Right(Target.Value, Len(Target.Value) - 1)
t1 = BKH(t1, 2)
Target.Value = t1 & t2
Application.EnableEvents = True

End Sub

Aşağıdaki kodları da bir Module ekleyiniz

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