mükerrer kayıt yazmama

[yavuzkaraslan]

02122942771
02122944661
02122967130
02122975203
şeklinde devam eden telefon numaraları var.Altına yeni bir kayıt kopyalandığında veya yazıldığında mükerrer olanları yazmasın istiyorum.

şimdiden teşekkür ederim.

 

[Civan Jack]

Numaraların A sütununda olduğunu düşünülmüştür.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    If Target.Column <> 1 Then Exit Sub
    For i = 2 To Range("A65536").End(3).Row
        If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A")) > 1 Then
            Target.Delete
        End If
    Next i
    i = Empty
End Sub

 

[yavuzkaraslan]

teşekkür ederim.henüz deneyemedim ama eminim olmuştur.

 

[yavuzkaraslan]

hat verdi. ek de yer alan dosya üzerinde uygulayabilrmisiniz.

 

[Orion1]

Veri doğrulama yapışmıştır:
Dosyanız ektedir.

 

[yavuzkaraslan]

hocam ek açılmıyor

 

[Orion1]

hocam ek açılmıyor

Tekrar denermisiniz.Sorun yok gözüküyor.

 

[*Freeman*]

Sayın Orion1, eki inceledim çalışıyor, paylaşımınız için teşekkürler, ancak şöyle bir sıkıntı farkettim, veriyi hücreyi girdiğimizde eğer tekrar eden bir numaraysa uyarı veriyor ve yazımı engelliyor, ancak veriyi mesala kolaylık olsun diye kopyala yapıştır yöntemiyle aktardığımızda ise uyarı vermeden kayda izin veriyor. bunuda engelleyebilecek bir ekleme yapmamız mümkünmüdür, teşekkürler iyi çalışmalar...

 

[Orion1]

Sayın Orion1, eki inceledim çalışıyor, paylaşımınız için teşekkürler, ancak şöyle bir sıkıntı farkettim, veriyi hücreyi girdiğimizde eğer tekrar eden bir numaraysa uyarı veriyor ve yazımı engelliyor, ancak veriyi mesala kolaylık olsun diye kopyala yapıştır yöntemiyle aktardığımızda ise uyarı vermeden kayda izin veriyor. bunuda engelleyebilecek bir ekleme yapmamız mümkünmüdür, teşekkürler iyi çalışmalar...

Benim yaptığım metod ile böyle bir işlem olacağını sanmıyorum.Ama başka yöntemler için bilemiyecem.
Kolay gelsin.