Kelimeler büyük harfle başlasın.

[magnesia]

Arkadaşlar selam.
C7 hücresinden başlamak üzere, tüm C sütünu boyunca gireceğim verilerin ilk harflerinin (enter tuşuna basınca) büyük olmasını nasıl sağlayabilirim?
Şimdiden teşekkürler

 

[Muzaffer Ali]

Merhaba.

İlgili sayfanın kod kısmına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C7:C" & Rows.Count)) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = WorksheetFunction.Proper(Target.Value)
    Application.EnableEvents = True
End Sub

 

[magnesia]

Sayın dalgalikur.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Ancak çok ilginç bi sonuç verdi. Sadece C sütünunda istediğimiz sonucu vermiyor, diğer bütün sütunlarda her kelimenin ilk harfini büyük yapıyor.

 

[Muzaffer Ali]

Yukarıdaki kodu düzelttim şimdi yeniden deneyin.

 

[magnesia]

İşlem tamam.
Tekrar teşekkür ederim.