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