Mükerrer kayıt uyarısı

[simsek3131]

Değerli arkadaşlar
user formda mükerrer kayıt girişi uyarısı değerli bir hocamız tarafından aldığım bir yardımla düzenlendi fakat her giriş yapıldığında uyarı veriyor, oysa uyarıyı sadece mükerrer kayıt gördüğünde vermeli her seferinde verilen uyarıyı nasıl kaldırabilirim acaba yardımlarınızdan dolayı tşk ederim.

 

[Murat OSMA]

Kodlarınızı bir görebilir miyiz ?

 

[simsek3131]

ilişik formda

 

[simsek3131]

liste sayfasında bulunan kaydet bütonundaki kodlar

 

[cems]

liste sayfasında bulunan kaydet bütonundaki kodlar

Kodları şu şekilde düzeltip dener misiniz ?

Private Sub CommandButton1_Click()
Sheets("Data").Select
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox "İsim Girmeniz Gerekiyor"
Exit Sub
End If

Son_Dolu_Satir = Sheets("Data").Range("b65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Data").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Data").Range("A:A")) + 1
Sheets("Data").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("Data").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("Data").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("Data").Range("E" & Bos_Satir).Value = TextBox4.Text
Sheets("Data").Range("F" & Bos_Satir).Value = TextBox5.Text

MsgBox " Kayıt tamamlandı", vbCritical

Unload UserForm1
For d = [d65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("d2:d" & d), Cells(d, "d")) = 1 Then
Exit Sub
End If

If WorksheetFunction.CountIf(Range("d2:d" & d), Cells(d, "d")) > 1 Then Rows(d).Delete
MsgBox " Çift TC KİMLİK kaydı bulundu ve son girişiniz iptal edildi.", vbCritical, "MÜKERRER"
Next
thisworkbook.save
End Sub

çift kaydı hemen silmiyor, görmenizi bekliyor ve uyarıya ok dediğinizde siliyor.