Hücreye veriyi otomatik Büyük Harfle girilmesi

[Karamanli.70]

Arkadaşlar herkese iyi günler diliyorum. Benim sorum hücreye herhangi bir veri girerken otomatik büyük harfle yazılmasını istiyorum. şimdisiz bana capslock u aç kardeşim diyebilirsiniz ama bunun dışında başka bir işlem varmı?

 

[Korhan Ayhan]

Alternatif çözümler elbette var.

VERİ DOĞRULAMA
MAKRO


VERİ DOĞRULAMA uygulaması;

Bu işlemin olacağı hücre aralığını seçin. Ben A1:A10 aralığını seçtim.
Sonra VERİ-VERİ DOĞRULAMA menüsünü açın. Görseli takip edin.




Makro uygulaması için uygulayacağınız sayfa ismi üzerinde sağ tıklayıp "KOD GÖRÜNTÜLE" komutunu çalışıtırn. Açılan pencerede beyaz renkli alana aşağıdaki kodu uygulayın. Bu işlemden sonra dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" biçiminde kaydetmeniz gerekmektedir.

Kod A-Z sütun aralığında çalışacaktır. Kendi tablonuza göre hücre aralığını revize edebilirsiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim My_Cell As Range
   
    On Error GoTo 10
   
    Application.EnableEvents = False
   
    For Each My_Cell In Intersect(Target, Range("A:Z"))
        If My_Cell.Value <> "" Then
            My_Cell = UCase(Replace(Replace(My_Cell.Value, "ı", "I"), "i", "İ"))
        End If
    Next

10  Application.EnableEvents = True
End Sub

 

[Karamanli.70]

Teşekkür ederim Korhan Bey değerli bilgileriniz için. İyi ki excel.web.tr var. İyi ki varsınız.