Çözüldü Mükerrer kayıt Engelleme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

okan32

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
37
En iyi yanıt
0
Puanları
8
Yaş
39
Konum
Isparta
Ad Soyad
Ali Koç
Office Versiyon
Office 365 TR
S. A Arkadaşlar
Aşağıdaki kod gayet güzel çalışıyor. Yalnız mükerrer olduğu zaman sadece yazdığım sutünda ki mükerrer kayıt siliniyor. Benim istediğim iki sütunda da silinmesi için kodda nasıl bir değişiklik yapılabilir acaba yardımlarınızı bekliyorum.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Selection.Count > 1 Then Exit Sub
   If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
   satir = Target.Row
   sutun = Target.Column

   sonsatira = Cells(Rows.Count, "A").End(3).Row
   sonsatirb = Cells(Rows.Count, "B").End(3).Row
   If sonsatira > sonsatirb Then sonsatir = sonsatira Else sonsatir = sonsatirb
   say = 0
   For i = 1 To sonsatir
     veria = Cells(i, "A").Value
     verib = Cells(i, "B").Value
     If veria = Cells(satir, "A").Value And verib = Cells(satir, "B").Value Then say = say + 1
   Next i
   If say > 1 Then Cells(satir, sutun).Value = ""

End Sub
 

Ekli dosyalar

  • Örnek.xlsm
    15.2 KB · Görüntüleme: 25

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,293
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
Aleyküm selâm.. (y)

En alt satırları bu şekilde değiştirip deneyiniz..
PHP:
   Application.EnableEvents = False
   If say > 1 Then Range("A" & satir & ":B" & satir).Value = ""
   Application.EnableEvents = True
ya da sadece bu satırı da bu şekilde güncelleyebilirsiniz..
PHP:
If say > 1 Then Range("A" & satir & ":B" & satir).ClearContents
 

okan32

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
37
En iyi yanıt
0
Puanları
8
Yaş
39
Konum
Isparta
Ad Soyad
Ali Koç
Office Versiyon
Office 365 TR
Çok Teşekkür ederim Sayın Admin tam istediğim gibi oldu.
İyiki varsınız..
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt