- Katılım
- 19 Ocak 2005
- Mesajlar
- 940
- Excel Vers. ve Dili
-
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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
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