Veri Doğrulama(Tekrarlanan veri)

[mavidiyarkentli]

düşeyde girilen aynı veriyi kabul etmemesi için ne yapabilirim..
veri doğrulamada =EĞERSAY(A:A;A2)<2 bu formülü kullanıyorum.. ancak hücreye klavyeden veri girişini engelliyor. ancak kopyala yapıştır yaptığımda aynı veriyi kabul ediyor.
Bunu nasıl engelleyebilirim.. yardımcı olan arkadaştan şimdiden çok teşekkür ederim..

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
For x = Range("A65536").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & x), Cells(x, "A")) > 1 Then Rows(x).Delete
Next
End Sub

Kodları satırı siler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
For x = Range("A65536").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & x), Cells(x, "A")) > 1 Then Cells(x, 1) = ""
Next
End Sub

Kodları ise hücreyi temizler.
Size hangisi uygun ise onu kullanın.
İyi çalışmalar.

 

[mavidiyarkentli]

Teşekkür ederim