Küçük Harf Büyük Harf Özelliği

[hakki83]

Merhaba

Örnek dosyada, RAPOR1 sayfasında,
B2:AF10000 alanında
küçük harfler büyük harfe dönüşür.

Aynı özelliği RAPOR2 sayfasında
A2:A10000 alanına da uygulayabilir miyiz,
Teşekkürler

 

[Ömer]

Merhaba,

Kodları aşağıdakilerle değiştiriniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Sh.Name = "RAPOR1" Then
        If Intersect(Target, Range("B2:AF10000")) Is Nothing Then Exit Sub
        Application.EnableEvents = False
        Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
        Application.EnableEvents = True
    End If
    If Sh.Name = "RAPOR2" Then
        If Intersect(Target, Range("A2:A10000")) Is Nothing Then Exit Sub
        Application.EnableEvents = False
        Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
        Application.EnableEvents = True
    End If
End Sub

 

[hakki83]

Ömer hocam çok teşekkürler, emeğinize sağlık, olmuştur.