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

[okan32]

S.a Arkadaşlar. Tek sütunda mükerrrer kayıt engelleyebiliyorum. Benim istediğim A ve B sütunundaki veriler aynı ise kayıt engellesin istiyorum.

 

[Orion1]

Örnek dosya yüklerseniz yardımcı olan arkadaşlar olacaktır.

 

[okan32]

Şuan telefondan yazabiliyorum. Bilgisayar başında değilim. O yüzden örnek dosya yükleyemedim. İstediğim şey iki şarta göre yani A ve B sütunundaki veriler aynı ise mükerrer kayıt engellesin istiyorum.

 

[Asri]

S.a Arkadaşlar. Tek sütunda mükerrrer kayıt engelleyebiliyorum. Benim istediğim A ve B sütunundaki veriler aynı ise kayıt engellesin istiyorum.

Aşağıdaki kodu sayfanın kod bölümüne yaptıştırıp deneyiniz.
Program son girilen mükerrer bilgiyi silecektir.
Daha önce A ya 1 B ye 1 girildi ise,
Yeni giriş te A ya 1 girilebilir ancak B ye 1 girilemez. Girilen 1 bilgisi siliniz. Yada B ve A farketmez.

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
    MsgBox (veria & " ve " & verib & " Mükerrer girildi.")
    
    Application.EnableEvents = False
     Cells(satir, "A").Value = ""
     Cells(satir, "B").Value = ""
    Application.EnableEvents = True

   End If
   
End Sub

 

[okan32]

Çok teşekkür ederim asri istediğim tamda buydu.

 

[Ömer BARAN]

Merhaba.

Örnek belge olmadığından varsayımlar üzerine cevap yazılmak durumunda.
Veri alanı A ve B sütunu ve 1'inci satır BAŞLIK, 2 ve devamındaki satırlar veri yazılacak alan olarak kullanıldığı varsayılırsa;
A2:B100 gibi veri giriş alanı seçiliyken VERİ DOĞRULAMA=>ÖZEL seçeneğine aşağıdaki formülü uygulayarak sonuç alabilirsiniz.

=TOPLA.ÇARPIM(($A2<>"")*($B2<>"")*($A$1:$A1=$A2)*($B$1:$B1=$B2))=0

 

[okan32]

İlginiz için teşekkür ederim Ömer bey

 

[Ömer BARAN]

Önerinin istediğiniz sonuca ulaştırıp/ulaştırmadığını belirtirseniz, forum takipçileri bakımından daha yararlı olur değil mi?
Yanlış anlamayınız, teşekkür ise sonraki mesele (edilmemesine de çokça şahit oluyoruz, alıştık artık) .
.

 

[Asri]

Kodda bir harf hatası yapmışım düzeltildi.

 

[okan32]

Ömer bey telefondan yazdığım için deneyemedim. İnşaallah Yarın denedikten sonra sonucunu yazarım

 

[Ömer BARAN]

Eyvallah, kolay gelsin.

 

[okan32]

Ömer bey Hayırlı Sabahlar
Formül maalesef çalışmadı

 

[okan32]

Hayırlı Sabahlar Arkadaşlar
Sayın asri kod çalıştı. 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.

 

[Ömer BARAN]

Tekrar merhaba.

BARAN ismini verdiğim sayfada gerekli uygulama yapıldı.
Deneyip, sonucunu bildirirsiniz.
.

 

[okan32]

Ömer bey ilginiz için teşekkür ederim. Formül gayet güzel çalışıyor. Ama girilen mükerrer kayıtta iki sütundaki veri silinebilir mi?

 

[Ömer BARAN]

Veri doğrulama işlemiyle, yazılmış bir veriyi silemezsiniz.

-- veri girilirken mükerrerlik engellemek için VERİ DOĞRULAMA veya MAKRO kullanabilirsiniz.
-- veri girişi yapılmış bir alanda mükerrerlik kontrolü yapacaksanız MAKRO kullanmalısınız.
Belgenizi ve işlem akışınızı bilemiyoruz. Duruma göre tercihinizi yaparsınız.

 

[okan32]

Veri doğrulama işlemiyle, yazılmış bir veriyi silemezsiniz.

-- veri girilirken mükerrerlik engellemek için VERİ DOĞRULAMA veya MAKRO kullanabilirsiniz.
-- veri girişi yapılmış bir alanda mükerrerlik kontrolü yapacaksanız MAKRO kullanmalısınız.
Belgenizi ve işlem akışınızı bilemiyoruz. Duruma göre tercihinizi yaparsınız.

Vermiş olduğunuz bilgiler için teşekkür ederim Ömer bey

 

[Ömer BARAN]

Kolay gelsin.

 

[Asri]

Hayırlı Sabahlar Arkadaşlar
Sayın asri kod çalıştı. 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 güncellendi.
Kontrol ediniz.

 

[okan32]

Sayın Asri teşekkür ederim yardımlarınıza ilginize biraz fazla oldun diyeceksin bana ama birde mükerrer girilen kaydı msgboxla bildirirse çok güzel olacak.