Butonu çalıştırdığımda hücre formatı bozuluyor.

[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
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

sayfada ki bu kod,,,; Temizle butonuna bastığımda

Private Sub temizle_Click()
 Range("F5:L46").Select
    Selection.ClearContents
    Range("D4").Select
End Sub

yukarı daki yani ilk verdiğim kod devre dışı kalıyor, hücre formatım bozuluyor.. hepsini küçük harf yazıyor...?

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

 

[Ömer]

yukarı daki yani ilk verdiğim kod devre dışı kalıyor, hücre formatım bozuluyor.. hepsini küçük harf yazıyor...? .

Merhaba,

İlk kodları aşağıdaki gibi değiştirin.

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

.

 

[k0081]

Ömer;

hocam büyüksün be.. Çok teşekkürler.. tamamdır..