bulentkars
Yeni Üye
- Katılım
- 30 May 2022
- Mesajlar
- 605
- Çözümler
- 5
- Aldığı beğeni
- 104
- Excel V
- Office 365 TR
Konu Sahibi
Arkadaşlar Merhaba,
Aşağıdaki kodu aktif sayfasının kod bölümümünde sorunsuz kullanıyorum. Koda bir ilave yaptığımda benim mevcut kodum çalışmıyor. ilave kod b20 satırındaki girilen metni büyük harfe çevitiyor, mevcut kodumun üst tarafına kopyaladığımda benim mevcut kodum çalışmıyor, kodun en altına kopyaladığımda büyük harf kodu çalışmıyor, nerde hata yapıyorum anlayamadım. Yardımcı olabilirseniz sevinirim. Şİmdiden Teşekkürler
İlave yaptığım kod
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B20]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
Application.EnableEvents = True
End Sub
Mevcut kodum
HTML:
Aşağıdaki kodu aktif sayfasının kod bölümümünde sorunsuz kullanıyorum. Koda bir ilave yaptığımda benim mevcut kodum çalışmıyor. ilave kod b20 satırındaki girilen metni büyük harfe çevitiyor, mevcut kodumun üst tarafına kopyaladığımda benim mevcut kodum çalışmıyor, kodun en altına kopyaladığımda büyük harf kodu çalışmıyor, nerde hata yapıyorum anlayamadım. Yardımcı olabilirseniz sevinirim. Şİmdiden Teşekkürler
İlave yaptığım kod
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B20]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
Application.EnableEvents = True
End Sub
Mevcut kodum
HTML: