textbox'a mükerer kayıt girişine izin verilmemesi

[ogoktas]

merhabalar,
istediğim mevcut textbox ile veri girişi gerçekleşmekte, fakat veri girilirken eğer veri mevcut ise text box'a tekrar giriş izni vermeyip uyarı mesajı vermesini istiyorum. nasıl yapabilirim?
teşekkürler. iyi çalışmalar.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
Dim sat, son
    For sat = 2 To Cells(65536, "a").End(xlUp).Row
        If Cells(sat, "a") Like TextBox1 Then
            MsgBox "Bu kayıttan daha önce girilmiş.", vbInformation
        Exit Sub: End If
    Next
son = Cells(65536, "a").End(xlUp).Row + 1
Cells(son, "a") = TextBox1
End Sub

 

[Orion1]

Kendi durumunuza göre ayarlayınız.

If WorksheetFunction.CountIf(Range("A:A"), TextBox1.Text) > 0 Then
    MsgBox "Bu kayıt var.Kayıt yapılmadı"
    Exit Sub
End If