Değerli Dostlar Selamlar,
Yukarıdaki kodlarla mükerrer kayıt kontrolü yapmaktayım.
İstiyorum ki: Kayıt yaparken TextBox1 deki veriyi B:B veri alanında bulunca bir sağındaki hücredeki bilginin TextBox2 ye eşitliğini kontrol etsin. Eğer TextBox1 ve TextBox2 yani adı soyadı aynı ise mükerrer işlemi uygulasın.
Saygılar.
Kod:
Sub kaydet()
'K A Y D E T
On Error Resume Next
If TextBox1.Text = "" Then
MsgBox ("LÜTFEN ADINI YAZIN"), vbCritical, ("AD BÖLÜMÜ BOŞ")
Exit Sub
ElseIf TextBox2.Text = "" Then
MsgBox ("LÜTFEN SOYADINI YAZIN"), vbCritical, ("SOYADI BÖLÜMÜ BOŞ")
Exit Sub
ElseIf TextBox4.Text = "" Then
MsgBox ("LÜTFEN KART NUMARASINI YAZIN"), vbCritical, ("KART NO BÖLÜMÜ BOŞ")
Exit Sub
ElseIf TextBox5.Text = "" Then
MsgBox ("LÜTFEN KART TİPİNİ YAZIN"), vbCritical, ("KART TİPİ NO BÖLÜMÜ BOŞ")
Exit Sub
End If
[COLOR="Red"] Set Bul = Sayfa1.[B:B].Find(TextBox1) And Sayfa1.[C:C].Find(TextBox2)
If Not Bul Is Nothing Then
MsgBox "MÜKERRER KAYIT !", vbCritical, "DİKKAT !"
Exit Sub
End If[/COLOR]
UserForm1("TextBox1,TextBox2,TextBox3,ComboBox1").Copy
Sayfa1.Select
Son_Satır = Range("B65536").End(3).Offset(1).Row
Range("A" & Son_Satır) = Son_Satır - 1
Range("B65536").End(3).Offset(1).Select
For a = 0 To 9
ActiveCell.Offset(0, a).Value = UserForm1.Controls("Textbox" & a + 1).Value
Next a
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
Application.CutCopyMode = False
MsgBox "KAYIT TAMAMLANDI"
End Sub
İstiyorum ki: Kayıt yaparken TextBox1 deki veriyi B:B veri alanında bulunca bir sağındaki hücredeki bilginin TextBox2 ye eşitliğini kontrol etsin. Eğer TextBox1 ve TextBox2 yani adı soyadı aynı ise mükerrer işlemi uygulasın.
Saygılar.