Mükerrer Kayıt macro hatası

[ocamsul]

arkadaşlar aşağıdaki kod Kayıt İşleminin bir parçası. Ancak içerisinde bulunan uyarı mesajı A5 den itibaren çalışmakta. amcak benim istediğim a2 den itibaren mükerrer kayıt işleminin olup olmadığını sorgulaması. Nerede hata var yardım edermisiniz.

Sheets("VERİ").Select
Range("a2").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(2, 0).Select
If ActiveCell.Offset(0, 2).Text = TextBox1.Text Then
MsgBox "Bu İsimde Bir Personel Kaydı Zaten Var...!!!"
Exit Sub
End If
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If

 

[ocamsul]

sorun nerde arkadaşlar.

 

[Ayhan Ercan]

3. ve 5. satırda Activecell.Offset ile başlayan iki satırı silip bir denermisiniz...

 

[ocamsul]

Arkadaşlar Öncelikle herkeze iyi çalışmalar, iyi günler. kodların tamamı aşağıda. Ancak SchakaL dediği şekilde de denedim, ama kodu ilk uyguladığımızda sonuç verdi. Ancak 2. seferde kum saati çıktı ve hiç bir işlem yapmaz oldu.

Private Sub CommandButton1_Click()
Sheets("VERİ").Select
Range("a2").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(2, 0).Select
If ActiveCell.Offset(0, 2).Text = TextBox1.Text Then
MsgBox "Bu İsimde Bir Personel Kaydı Zaten Var...!!!"
Exit Sub
End If
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'..........................................................
'Textbox kutularındaki verileri hücrelere yazdırır.
ActiveCell.Offset(0, 2).Value = TextBox1.Value
ActiveCell.Offset(0, 3).Value = TextBox2.Value
ActiveCell.Offset(0, 4).Value = TextBox3.Value
ActiveCell.Offset(0, 1).Value = TextBox4.Value
ActiveCell.Offset(0, 5).Value = ComboBox1.Value
ActiveCell.Offset(0, 6).Value = ComboBox2.Value
ActiveCell.Offset(0, 7).Value = TextBox5.Value
End Sub