• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çö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ş
42
Konum
Isparta
Ad Soyad
Ali Koç
Office Vers.
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: 28

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
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ş
42
Konum
Isparta
Ad Soyad
Ali Koç
Office Vers.
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