Girilen verinin aynısı varsa kaydetmesin

[Fenomen]

iyi çalışmalar ben formun içinde aradım ama bulamadım

ben formdan veri girerken eğer dirdiğim veri varsa listeye eklemesini istemiyorum eğer yoksa eklesin istiyorum

form textbox1 i a1 e textbox2 yi b1 e ye kaydediyor(sheet 2 ye)

2 değerde aynıysa kaydetmesin birtanesi farklıysa kaydetsin istiyorum yardımcı olursanız sevinirin iyi günler

 

[ALPEN]

Private Sub CommandButton1_Click()
Dim x As Boolean
x = False
For i = 1 To Sheets("sheet2").Cells(65536, 1).End(xlUp).Row
    If TextBox1.Text = Sheets("sheet2").Cells(i, 1) And TextBox2.Text = Sheets("sheet2").Cells(i, 2) Then
        x = True
        MsgBox ("Mükerrer kayıt")
        Exit For
    End If
Next i
If x = False Then
    Sheets("sheet2").Cells(i, 1) = TextBox1
    Sheets("sheet2").Cells(i, 2) = TextBox2
End If
End Sub

 

[xxrt]

________________________Alternatif olarak______________________________________
Aynı Kişi olup,özellikleri farklı kişileride kaydedebilmek için Sorarak Kayıt etmeye ait kod ve örnek:
Not:
-Sayfa1'e Göredir.Kendinize uyarlarsınız..
-UserForm Çalışırken Sayfaya Müdahale edebilirsiniz.
-TextBox1'e veri girilmediğinde Kayıt yapmaz..

2 değerde aynıysa kaydetmesin birtanesi farklıysa kaydetsin istiyorum

Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then
Sheets("Sayfa1").Activate
Cells(1, 1).Select
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.TextBox1.Value) Then
If MsgBox(Me.TextBox1 & " isimli işçi kayıtlı" & " Yeniden kayıt yapılsın mı?", vbYesNo) = vbNo Then Exit Sub
End If
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
MsgBox "Okey Dasdi"
End If
End Sub

 

[Fenomen]

ÇOK SAOLASIN ÇOK İÞİME YARADI

 

[Fenomen]

xxrt , dostum senin örneğinde sadece ada göre yapıyor benim istediğim her textbox değerine göre yapması

fitted - 90 - 100
fitted - 100 - 100
fitted - 90 -200
gibi

ve sonra yapmaya uğraştığım
eğer girdiğim veri bu değerlerden biri ile aynı ise label1 e d sütununda olan değerin gelmesi