Kodu sayfanın kod bölümüne yapıştırıp deneyiniz. İsim 2 tane olsa da baş harfi büyük olur. Kolay gelsin
Aslında 3. satırdaki 2 D'de büyük yazacaktım ama emoji çıkıyor.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D:d]) Is Nothing Or Target.Row < 2 Or Target.Value = "" Then Exit Sub 'D ve <2 ile satır sütun ayarla
Dim Ad As String, Soyad As String
Dim Dizi() As String
Dim i As Integer
Dizi = Split(Target.Value, " ")
For i = 0 To UBound(Dizi) - 1
Ad = Trim(Ad & " " & Dizi(i))
Next i
Soyad = Trim(Dizi(UBound(Dizi)))
Ad = Application.WorksheetFunction.Proper(Ad)
Soyad = Evaluate("=UPPER(""" & Soyad & """)")
Application.EnableEvents = False
Target.Offset(0, 0) = Ad & " " & Soyad
'Aşağıdaki Satır Soyadı Koyu Yapar
Target.Offset(0, 0).Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.Bold = False
'Aşağıdaki Satır Verilen Rakama Göre Renklendirir
Target.Offset(0, 0).Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.ColorIndex = 1
Application.EnableEvents = True
Son:
End Sub