Kod:
Private Sub CommandButton2_Click()
'KAYDET
If TextBox2.Text <> "" Then
If TextBox1.Text <> "" Then
For i = 2 To Sheets("PERSONNEL").Range("A65536").End(xlUp).Row
If UCase(Sheets("PERSONNEL").Range("d" & i).Value) = UCase(TextBox1.Text) And _
UCase(Sheets("PERSONNEL").Range("f" & i).Value) = UCase(TextBox2.Text) Then
MsgBox "Bu isimde bir kişi zaten kayıtlarda var", vbCritical, "DUAYEN"
Exit Sub
End If
Next i
With Sheets("PERSONNEL")
Son_Dolu_Satir = .Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
.Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(.Range("A:A")) + 1
.Range("A" & Bos_Satir).Value = TextBox1.Text
.Range("B" & Bos_Satir).Value = TextBox2.Text
.Range("C" & Bos_Satir).Value = TextBox3.Text
.Range("D" & Bos_Satir).Value = TextBox4.Text
.Range("E" & Bos_Satir).Value = TextBox5.Text
End With
Else
MsgBox "DUAYEN-DYN"
End If
Else
MsgBox "DUAYEN-DYN"
End If
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""