Soru Mükerrer Kayıdı Atlayarak Engelleme

[TURKOLOG]

Merhaba

B sütununda aynı kayıt varsa kaydedilen satırın tamamını silen kod aşağıdadır.

Kolay Gelsin...

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Column = 2 And Target.Row > 2 Then
 
    If Target.Value = Target.Offset(-1, 0).Value Then
 
    Else

        For i = Target.Row - 2 To 1 Step -1
     
            If Target.Value = Cells(i, 2) And Len(Trim(Target.Value)) > 0 Then
         
                Target.Select
                Target.Interior.Color = RGB(255, 192, 0)
                Cells(i, 2).Interior.Color = RGB(255, 192, 0)
             
                MsgBox "Şu an  B" & Target.Row & "  hücresine girdiğiniz  " & Target.Value & "  değeri,  B" & i & "  hücresine daha önce girilmiştir" _
                & Chr(10) & Chr(10) & "Bu yüzden  " & Target.Row & ".  satır tamamen silinecektir" & Chr(10) & Chr(10) & _
                "Sağlıcakla Kalınız", , "MÜKERRER KAYIT"
             
                Rows(Target.Row & ":" & Target.Row).Delete Shift:=xlUp

                Cells(i, 2).Interior.Color = xlNone
             
                Exit Sub
         
            End If
     
        Next
 
    End If
 
End If



End Sub

Çok teşekkür ederim . Elinize emeğinize sağlık.