Bu makro neden görev yapmıyor?

[Tevfik_Kursun]

Günaydın Arkadaşlar,
Bu makroda ben nerede hata yapmışım?
Saygılarımla

 

[DoğanD]

Merhaba,

Çağırdığınız Uye Sub'ındaki kodları da paylaşabilir misiniz?

 

[Tevfik_Kursun]

Basit bir makro o. Hata burada

 

[Tevfik_Kursun]

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [L5:N5]) Is Nothing Then Exit Sub
    If [L5] <> "" And [N5] <> "" Then [N5] = ""
    Call Uye
End Sub

Bu şekilde çözdüm teşekkür ederim. Başka bir yöntem belirten olursa da mutlu olurum.
Saygılarımla

 

[tahsinanarat]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo ErrHandler

If Not Intersect(Target, Me.Range("L5:N5")) Is Nothing Then
If Me.Range("L5").Value <> "" And Me.Range("N5").Value <> "" Then
Me.Range("N5").ClearContents
End If
Call Uye
End If

ErrHandler:
Application.EnableEvents = True
End Sub