textbox'taki mükerrer kayıt

[İhsan Tank]

textbox'taki mükerrer kayıtları engelle

selam arkadşalar bir sorum olacak userformla kayıt yaptığım sayfada aynı veri var ise kayıt yapmasını nasıl engellerim
örnek : B hücresinde 10 gibi bir giriş var ise başka 10 kaydı B sutunu kabul etmesin

örnek dosya http://www.excel.web.tr/showthread.php?t=81917
burada mevcut yani kısaca bu konuya yardım etmek istedim yalnız sadece bu sorusu kaldı bunu yapamadım yardımlarınızı bekliyorum

 

[Orion1]

1nci yöntem;

If WorksheetFunction.CountIf(Range("B:B"), TextBox1.Text) > 0 Then
    MsgBox "Böyle bir kayıt var."
    Exit Sub
End If

2nci yöntem;

Dim k As Range
Set k = Range("B:B").Find(TextBox1.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox "Böyle bir kayıt var"
    Exit Sub
End If

End Sub

 

[İhsan Tank]

hocam teşekkür ederim

 

[xp45s]

ekteki dosyayıda inceleyebilirsiniz..

 

[Orion1]

ekteki dosyayıda inceleyebilirsiniz..

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim i  As Long, sat As Long
sat = Cells(65536, "A").End(xlUp).Row
For i = 2 To sat
    If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A").Value) = 1 Then
        UserForm2.ListBox1.AddItem Cells(i, "A").Value
    End If
Next
UserForm2.Show
End Sub