Aynı veri girişini engelleme

[orkuncan5]

Formda ürün kodunu yazdığımda eğer aynı ürün kodundan varsa uyarı vererek engellemesini istiyorum.Yardımlarınızı bekliyorum

 

[Metin Karaağaç]

Necdet Bey'in çalışmasıdır.
http://www.excel.web.tr/f120/ift-kayyt-giri-nleme-t6691.html

 

[orkuncan5]

Necdet Beyin çalışmasını daha önce den inceledim fakat ben kod ile yapmak istiyorum.

 

[Metin Karaağaç]

"Excel için örnek uygulamalar" başlığını incelediniz mi?
Orada Ali Bey'in de kodlarla yaptığı güzel bir çalışma var.

 

[orkuncan5]

Metin Bey Teşekkür ederim fakat sorunum var.Kodu uyarladım fakat ürün kodundan aynısı varsa engelliyor ama sıra numarası vererek diğer textboxlardaki verileri kaydediyor.Benim istediğim aynı ürün kodundan varsa uyarsın ama sıra numarası vermesin ve diğer textboxları kayıt etmesin.Dosyayı güncelledi

 

[Orion1]

Private Sub CommandButton1_Click()
    Dim Satır As Long
    With Sheets("Sayfa2")
        [B][COLOR="Red"]If WorksheetFunction.CountIf(.Range("B2.B65536"), CDbl(TextBox1.Text)) > 0 Then
            MsgBox "Bu Kod nolu ürün daha önceen girilmiş." & vbLf & "evrengizlen@hotmail.com" & _
            vbLf & "24.04.2011", vbOKOnly + vbInformation
            TextBox1.SetFocus
            Exit Sub
        End If[/COLOR][/B]
        If .Range("A2") = "" Then
            .Range("A2") = 1
            .Range("A2").Offset(0, 1) = TextBox1.Text
            .Range("A2").Offset(0, 2) = TextBox2.Text
            .Range("A2").Offset(0, 3) = TextBox3.Text
            .Range("A2").Offset(0, 4) = TextBox4.Text
        Else
            Satır = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
            .Cells(Satır, 1) = Satır - 1
            .Cells(Satır, 2) = TextBox1.Text
            .Cells(Satır, 3) = TextBox2.Text
            .Cells(Satır, 4) = TextBox3.Text
            .Cells(Satır, 5) = TextBox4.Text
        End If
    End With
 
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

 

[orkuncan5]

Evren Bey tam istediğim gibi oldu Allah razı olsun.

 

[Orion1]

Evren Bey tam istediğim gibi oldu Allah razı olsun.

Rica ederim.
Bu nedir ki,gerekmez.
Bu soruya cevap verilecek bende 50 tane metod var.
No problem.
hayırlı işler.