Farklı sütuna mükerrer girişi önleme

[byfika]

Merhabalar,
Farklı sütunlara veri girişi yapılırken her sütunu kendi içinde mükerrer girişi engellemek için örnekteki mükerrer giriş kodu nasıl düzenlenir?
Bilgi için şimdiden teşekkürler.

 

[Orion1]

Öceki olayı silin.Bunu kopyalayıp yapıştırın.
Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
col = Split(Replace(Target.Address, "$", " "), " ")(1)
son = Range("B65536").End(3).Row
If WorksheetFunction.CountIf(Range(col & 2 & ":" & col & son), Target.Value) > 1 Then
bul = WorksheetFunction.Match(Target.Value, Range(col & 1 & ":" & col & son), 0)
MsgBox "Daha önce bu veri " & col & bul & " hücresine kayıt girilmiş"
Target.Value = Empty
End If
End If
If Target.Column = 11 Then
col = Split(Replace(Target.Address, "$", " "), " ")(1)
son = Range("K65536").End(3).Row
If WorksheetFunction.CountIf(Range(col & 2 & ":" & col & son), Target.Value) > 1 Then
bul = WorksheetFunction.Match(Target.Value, Range(col & 1 & ":" & col & son), 0)
MsgBox "Daha önce bu veri " & col & bul & " hücresine kayıt girilmiş"
Target.Value = Empty
End If
End If
If Target.Column = 14 Then
col = Split(Replace(Target.Address, "$", " "), " ")(1)
son = Range("N65536").End(3).Row
If WorksheetFunction.CountIf(Range(col & 2 & ":" & col & son), Target.Value) > 1 Then
bul = WorksheetFunction.Match(Target.Value, Range(col & 1 & ":" & col & son), 0)
MsgBox "Daha önce bu veri " & col & bul & " hücresine kayıt girilmiş"
Target.Value = Empty
End If
End If
End Sub

 

[byfika]

Teşekkür

Sayın Orion1,
Kodlar için teşekkürler. Bilginize sağlık.

 

[Orion1]

Sayın Orion1,
Kodlar için teşekkürler. Bilginize sağlık.

Rica ederim.
İyi çalışmalar.