Aşağıdaki makro ile Excel deki seçilen satırlarda tüm kelimelerin ilk harfi büyük olarak değiştirilecektir.
Sub Proper_Case()
‘Updateby20150428
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = “İlk Harfi Büyüt”
Set Workx = Application.Selection
Set Workx = Application.InputBox(“Aralık”, xTitleId, Workx.Address, Type:=8)
For Each x In Workx
x.Value = Application.Proper(x.Value)
Next
End Sub
Ek olarak sadece ilk kelimenin harfini büyük diğerlerini küçültmek isterseniz aşağıdaki formüle de kullanabilirsiniz.
=CONCATENATE(UPPER(LEFT(A1;1));RIGHT(A1;LEN(A1)-1))
