Aynı kayıttan varsa A,B sütunu karşılaştırmalı olara

[byexcel]

Textbox1 deki veriyi A sütununa
Textbox2 deki veriyi b sütununa kaydediyorum,

Hem A yı hem B yi tarasın bu ad ve soyadda kayıtlı varsa kaydettirmesin.
Ã?rneğin A sütununda Ali
B sütununda Kemal

Ali Kemal isminde bir kayıt bulundu diye mesaj versin.
Eğer soyad farklı ise mesaj vermesin

Yardımcı olacak arkadaşlara Teşekkürler

 

[veyselemre]

[vb:1:cc20c13977]
Private Sub CommandButton1_Click()
Var = False
sonsat = Cells(65536, 1).End(xlUp).Row
For x = 2 To sonsat
If Cells(x, 1) & Cells(x, 2) = TextBox1 & TextBox2 Then
Var = True
sira = x
Exit For
End If
Next x
If Var = False Then
Cells(sonsat + 1, 1) = TextBox1
Cells(sonsat + 1, 2) = TextBox2
MsgBox (sonsat + 1 & " sıraya kaydı yapıldı.")
Else
MsgBox ("Bu kayıt daha önce girilmiş..." & sira & ". satir")
End If
End Sub

[/vb:1:cc20c13977]