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

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

   Application.EnableEvents = False
   If say > 1 Then Range("A" & satir & ":B" & satir).Value = ""
   Application.EnableEvents = True

If say > 1 Then Range("A" & satir & ":B" & satir).ClearContents