Makro

[turgayzeynep]

Hocam B3 hücresinde isim soyisim yazılı ismin baş harfi büyük soy ismin tamamı büyük olarak Makro ile nasıl yapabilirim

 

[Mdemir63]

Selamlar

aşağıdaki kodları modül içine kopyalayıp bir butona atayarak deneyiniz
kodlar siteden alıntıdır.

Sub yazimDuzeni()
SonSat = Worksheets("Sayfa1").Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To SonSat
    Ad = ""
    Soyad = ""
    a = Split(Cells(i, "B"), " ")
    For j = 0 To UBound(a) - 1
                                   
        Ad = Trim(Ad & " " & a(j))
    Next j

    Soyad = Trim(a(UBound(a)))
    Ad = Evaluate("=PROPER(""" & Ad & """)")
    Soyad = Evaluate("=UPPER(""" & Soyad & """)")
    Cells(i, "B") = Ad & " " & Soyad
Next i
End Sub