Excel Büyük Küçük Yazma

[newmaster]

Merhaba Arkadaşlar,
Ekte ve resimde gördüğünüz gibi b sütunundaki yazı küçük harflerle c Sütunundaki yazı her boşluktan sonra büyük harflerle yazılmış bunu nasıl yapabilirim.

 

[Orion1]

Size bir kullanıcı tanımlı fonksiyon yaptım.
Dosyanız ektedir.

Function buyuk59(ByVal deg3 As Range)
Dim deg, k As Integer, deg2 As String
deg = Split(deg3, " ", Len(deg3))
For k = 0 To UBound(deg)
    deg2 = deg2 & " " & WorksheetFunction.Proper(deg(k))
Next
buyuk59 = Right(deg2, Len(deg2) - 1)
End Function

 

[newmaster]

Size bir kullanıcı tanımlı fonksiyon yaptım.
Dosyanız ektedir.

Function buyuk59(ByVal deg3 As Range)
Dim deg, k As Integer, deg2 As String
deg = Split(deg3, " ", Len(deg3))
For k = 0 To UBound(deg)
    deg2 = deg2 & " " & WorksheetFunction.Proper(deg(k))
Next
buyuk59 = Right(deg2, Len(deg2) - 1)
End Function

Teşekkür ederim hocam nasıl yaptığınıda kısaca anlatabilsen süper olur

 

[Tevfik_Kursun]

Alternatif olsun,

=YAZIM.DÜZENİ(B2)

iyi çalışmalar