Büyük harfi küçük harfe döndürme

[sdegirmenci]

Merhaba;
Yalnızca örnek "b20" hücresine yazılan büyük harfler hücreden çıkıldığı anda küçük harf olabilirmi. Yardımlarınız için şimdiden teşekkür ediyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B20]) Is Nothing Then Exit Sub
    If Target <> "" Then Target = Evaluate("=LOWER(""" & Target & """)")
End Sub

 

[sdegirmenci]

Sayın Korhan Hocam
İlginize çok teşekkür ederim. İşleriniz kolay gelsin.

 

[Orion1]

Alternatif

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B20]) Is Nothing Then Exit Sub
    If Target <> "" Then Target = lcase(replace(replace(target.value,"I","ı"),"İ","i))
End Sub