Bütün sayfalar büyükharf olsun

[ASLAN7410]

Merhaba, hayırlı akşamlar.

Dosyamın bir tanesinide bütün sayfalarda hangi hücreye giriş yaparsam yapayım, o hücrede yazılan yazının yazıların büyükharf olmasını istiyorum.
Aşağıda kodlar var, hepsini bütün sayfalara nasıl uygularım, yada başka bi çözüm.

Yardımcı olur musunuz?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [A:Z]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        Target = BuyukHarf(Target.Value)
    Application.EnableEvents = True
Son:
End Sub
Function BuyukHarf(Veri As String)
    BuyukHarf = UCase(Replace(Replace(Veri, "i", "İ"), "ı", "I"))
End Function

 

[Muzaffer Ali]

Merhaaba.
Aşağıdaki kodları BuÇalışmaKitabı adlı kod sayfasına kopyalayın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [A:Z]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        Target = BuyukHarf(Target.Value)
    Application.EnableEvents = True
Son:
End Sub

Function BuyukHarf(Veri As String)
    BuyukHarf = UCase(Replace(Replace(Veri, "i", "İ"), "ı", "I"))
End Function

 

[ASLAN7410]

Sayın dalgalikur, size çok teşekkür ediyorum.
Kodlar boş bir excel örnek dosyada çalışıyor. Kendi dosyama eklediğimde çalışmadı.

İndir Video

Dosyayı indir Video

dosya.co

 

[Muzaffer Ali]

Dosyanızı kapatıp yeniden çalıştırıp deneyin.
Olmazsa dosyanızı ekleyin kontrol edelim.

 

[ASLAN7410]

Sayın dalgalikur, kendi dosyamdaki verileri silip örnek hazırladım (kod kısmındaki verilere dokunmadım), kapatıp tekrar açtım, hangi hücreye kelimeyi nasıl yazarsam yazayım, hücreden çıkınca hepsi büyük harf oldu. Ama kod orijinal dosyamda bir türlü çalışmadı.