Mükerrer Kayıt Engelleme

[Mdemir63]

Selamlar
Ekteki örnek dosyada Userform üzendeki Textbox içine bilgi girerek Sayfa1 A sütununa kayıt yaptırmak istiyorum.
Ancak Aynı kayıt varsa uyarmasını ve kayıt yaptırmamasını istiyorum. Nasıl bir kod yazmalıyım.

Saygılar

 

[EmrExcel16]

Deneyiniz..

 

[Mdemir63]

Selamlar
Hocam Bende araştırdım aşağıdaki gibi buldum ve kendime uyarlayarak çözdüm.
Ama size de Cevabınız için çok teşekkür ederim.
Hocam peki bu kodları excelin WorksheetFunction özelliği ile yapabilirmiyiz?

Private Sub CommandButton1_Click()
    Dim Varmi
    Set Varmi = Worksheets("Sayfa1").Range("A1:A100000").Find(TextBox1, , xlValues, xlWhole)
    If Varmi Is Nothing Then
        Worksheets("Sayfa1").Cells(Worksheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row + 1, 1).Value = TextBox1.Value
    Else
        MsgBox "Bu kayit daha once yapılmış"
    End If
End Sub

Saygılar

 

[EmrExcel16]

Bu kodlar benim dosyanızda yazdığım kodlar zaten kim nereye eklemiş acaba
Alternatif WorksheetFunction fonksiyonu kullanarak

Private Sub CommandButton1_Click()
    If WorksheetFunction.CountIf(Range("A1:A100000"), TextBox1) < 1 Then
        Cells(Cells(Rows.Count, 1).End(3).Row + 1, 1).Value = TextBox1.Value
    Else
        MsgBox "Bu kayit daha once yapimis"
    End If
End Sub

 

[Mdemir63]

Selamlar
Ellerinize sağlık çok teşekkür ederim. Fonksiyonla istememin sebebi kodlarda nasıl kullanıldığı ile ilgili olduğunu da öğrenmek.
Ayrıca Hocam ben bir siteden buldum. Bilmiyorum kim eklemiş.

Saygılar

 

[EmrExcel16]

Rica ederim , alternatif olmuş oldu .
Canları sağ olsun

İyi çalışmalar.