Makro

Katılım
22 Şubat 2023
Mesajlar
172
Excel Vers. ve Dili
Türkçe
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,180
Excel Vers. ve Dili
Ofis 365 Türkçe
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.
Kod:
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

Kod:
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
 
Üst