x Küçük yaz..

[k0081]

Merhaba arkadaşlar;

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("D4:D5")) Is Nothing Then Exit Sub
If Target <> "" Then
Target = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
End If
Application.EnableEvents = True

End Sub

arkadaşlar yukarıdaki verdiğim kodlarda D4 ve D5 e girilen küçük harfi büyük harf yapıyor.. Yapmak istediğim : D5 için sorun yok. D4 hücresine girilen değerlerde X varsa küçük yazılması diğer harflerinin büyük yazılması..

yardımcı arkadaşa şimdiden teşekkürler..

 

[ffff7]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("D4:D5")) Is Nothing Then Exit Sub
If Target <> "" Then
Target = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
End If
If Intersect(Target, Range("D4")) Is Nothing Then Exit Sub
If Target <> "" Then
Target = Replace(Target, "X", "x")
End If

Application.EnableEvents = True

End Sub

 

[k0081]

hocam teşekkürler.. haklısınız başlık açıklaması biraz yetersiz olmuş. katılıyorum.. :bravo: