Aynı numara ise uyarı versin

[ferhatgurbuz]

Aağıdaki kod ile form üzerinden kayıt yapıyorum. Eğer Personel_bilgi Sayfasının B11:B325 hücreleri arasındaki rakam tekrar kayıt yapılmak istendiği zaman uyarı versin istiyorum. (extBox1 ile B sutununa personel no kaydediyorum. )


Private Sub Kaydet_Click()
son = Sheets("Personel_Bilgi").[B65536].End(3).Row + 1
Cells(son, 2) = Val(TextBox1)
Cells(son, 4) = TextBox2
Cells(son, 5) = TextBox3
Cells(son, 6) = Val(TextBox4)
Cells(son, 7) = Val(TextBox5)
Cells(son, 8) = Val(TextBox6)

 

[Mahmut Kök]

Aağıdaki kod ile form üzerinden kayıt yapıyorum. Eğer Personel_bilgi Sayfasının B11:B325 hücreleri arasındaki rakam tekrar kayıt yapılmak istendiği zaman uyarı versin istiyorum. (extBox1 ile B sutununa personel no kaydediyorum. )

Set bak = SHEETS("Personel_bilgi").Range("B11:B325").Find(TextBox1, lookat:=xlWhole)
If bak Is Nothing Then
MsgBox "veri yok"
Else
MsgBox "var"
End If

 

[ferhatgurbuz]

Mahmut hocak yukarıdaki kod ile birleştirebilirmisiniz. Biraz acemiyimde o yüzden
ben bu şekilde denedim. Var uyarısından sonra hata veriyor.
Private Sub Kaydet_Click()
son = Sheets("Personel_Bilgi").[B65536].End(3).Row + 1
Set bak = Sheets("Personel_bilgi").Range("B11:B325").Find(TextBox1, lookat:=xlWhole)
If bak Is Nothing Then
MsgBox "veri yok"
Else
MsgBox "var"
End If

Cells(son, 2) = Val(TextBox1)
Cells(son, 4) = TextBox2
Cells(son, 5) = TextBox3

 

[Mahmut Kök]

Mahmut hocak yukarıdaki kod ile birleştirebilirmisiniz. Biraz acemiyimde o yüzden
ben bu şekilde denedim. Var uyarısından sonra hata veriyor.

Private Sub Kaydet_Click()
son = Sheets("Personel_Bilgi").[B65536].End(3).Row + 1
Set bak = Sheets("Personel_bilgi").Range("B11:B325").Find(TextBox1, lookat:=xlWhole)
If bak Is Nothing Then
MsgBox "veri yok, devam edilecek"
goto devam 'Eğer veri mükerrer değilse, aşağıda devam: yazan yere gider.
Else
MsgBox "var, işlem sonlandırılacak"
exit sub 'eğer veri mükerrer ise işlem sonlandırılır.
End If

devam:
Cells(son, 2) = Val(TextBox1)
Cells(son, 4) = TextBox2
Cells(son, 5) = TextBox3

Yukarıdaki gibi deneyiniz.

 

[ferhatgurbuz]

Teşekkür ederim. Kolay gelsin