Numara Kontrolü

[walabi]

Merhaba,

Aşağıdaki kod ile ilgili excel sayfasına veri aktarıyorum, koda şöylesi bir kontrol eklemek istiyorum. Textbox2 ye girilen veriler benzersiz değerler, tc no gibi. Aynı verileri tekrar girmemek adına nasıl bir kod parçası eklenebilir. Açıklayıcı olması için, textbox2 ve textbox3 veri ile dolu iken kaydet demeye çalışacağım. excel sayfasında B sütünunda textbox2 nin verisi daha önce kaydedilmiş ise msgbox ile " bu veri kayıtlı" şeklinde uyarı almak , kayıtlı değil ise tüm verilerin kaydedilmesini istiyorum.


Private Sub CommandButton1_Click()

Son_Dolu_Satir = Sheets("Barkod").Range("A1048576").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1

If TextBox2 <> "" And TextBox3.Text <> "" Then

Sheets("Barkod").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Barkod").Range("A:A")) + 1

Sheets("Barkod").Range("B" & Bos_Satir).Value = TextBox2.Text
Sheets("Barkod").Range("C" & Bos_Satir).Value = TextBox3.Text



Else
MsgBox "Zorunlu alanlardan birini girmediniz, kontrol ediniz."
End If

End Sub

 

[walabi]

Merhaba,

Aşağıdaki kod ile ilgili excel sayfasına veri aktarıyorum, koda şöylesi bir kontrol eklemek istiyorum. Textbox2 ye girilen veriler benzersiz değerler, tc no gibi. Aynı verileri tekrar girmemek adına nasıl bir kod parçası eklenebilir. Açıklayıcı olması için, textbox2 ve textbox3 veri ile dolu iken kaydet demeye çalışacağım. excel sayfasında B sütünunda textbox2 nin verisi daha önce kaydedilmiş ise msgbox ile " bu veri kayıtlı" şeklinde uyarı almak , kayıtlı değil ise tüm verilerin kaydedilmesini istiyorum.


Private Sub CommandButton1_Click()

Son_Dolu_Satir = Sheets("Barkod").Range("A1048576").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1

If TextBox2 <> "" And TextBox3.Text <> "" Then

Sheets("Barkod").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Barkod").Range("A:A")) + 1

Sheets("Barkod").Range("B" & Bos_Satir).Value = TextBox2.Text
Sheets("Barkod").Range("C" & Bos_Satir).Value = TextBox3.Text



Else
MsgBox "Zorunlu alanlardan birini girmediniz, kontrol ediniz."
End If

End Sub

Destek alabilirmiyim bu konu için, Teşekkürler.

 

[Korhan Ayhan]

İnceleyiniz.

Mükerrer Kayıt Engelleme

Merhaba, Userform ile daha yeni yeni işlem yapmaya başladım. Aşağıdaki formülle excele veri aktarıyorum. Ama istiyorum ki eğer A kolonunda daha önce aynı kod var ise kayıt yapmasın, uyarı versin. Bu koda nasıl bir ekleme yapmam gerekir? Yardımcı olabilir misiniz? Private Sub...

www.excel.web.tr