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

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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?

Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaaba.
Aşağıdaki kodları BuÇalışmaKitabı adlı kod sayfasına kopyalayın.

C++:
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

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Sayın dalgalikur, size çok teşekkür ediyorum.
Kodlar boş bir excel örnek dosyada çalışıyor. Kendi dosyama eklediğimde çalışmadı.

 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Dosyanızı kapatıp yeniden çalıştırıp deneyin.
Olmazsa dosyanızı ekleyin kontrol edelim.
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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ı.
 
Üst