DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Aşağıdaki kodu sayfanın kod bölümüne yaptıştırıp deneyiniz.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.
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
=TOPLA.ÇARPIM(($A2<>"")*($B2<>"")*($A$1:$A1=$A2)*($B$1:$B1=$B2))=0
Vermiş olduğunuz bilgiler için teşekkür ederim Ömer beyVeri 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.
Kod güncellendi.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.