İsmi küçük soyadı büyük yazmak

[turgayzeynep]

Hocam iyi akşamlar kolay gelsin B3 hücresinde isim ve soyisim yazılı Ben bunu Makro ile ismin baş harfini büyük soy ismi tamamen büyük olarak yazdırmak istiyorum Nasıl yapabilirim

 

[Trilenium]

Makro kullanmak zorunda mısınız ?

Formül ile çözümü

=YAZIM.DUZENI("B3")
=PROPER("B3")


Makro ile



strText=Range("B3").value
range("B3").value= StrConv(strText, vbProperCase)

 

[Mdemir63]

Selamlar
aşağıdaki kodları deneyiniz
Kodlar alıntıdır

Sub AdKucukSoyadBuyuk()
SonSat = Worksheets("Sayfa1").Cells(Rows.Count, 2).End(xlUp).Row
For i = 3 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