Bu makro neden görev yapmıyor?

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,841
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Altın Üyelik Bitiş Tarihi
12-02-2029
Günaydın Arkadaşlar,
Bu makroda ben nerede hata yapmışım?
Saygılarımla
 

Ekli dosyalar

  • 32.4 KB Görüntüleme: 16

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
488
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
Merhaba,

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

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,841
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Altın Üyelik Bitiş Tarihi
12-02-2029
Basit bir makro o. Hata burada
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,841
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Altın Üyelik Bitiş Tarihi
12-02-2029
Kod:
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

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,175
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
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
 
Üst