arkadaşlar excellde visual basic ile oluşturduğum form üzerinden veri giriyorum.Formdaki TextBox1 deki veri Z2:Z30000 arasında varsa kayıydı yapmayıp uyarsın istiyorum.Bu konuda ne yapabilirim.Lütfe yardım...
Aramıza hoşgeldiniz. Bu konularla ilgili birçok örnek mevcut sitemizde ara butonunu kullanarak (Örneğin "mükerrer kayıt) diyerek çeşitli örneklere ulaşmanız mümkün. :arkadas:
Aşağıdaki kod bloğunu kullanabilirsiniz.
Kod:
Private Sub CommandButton1_Click()
Dim Say As Long 'Değişken tipini tanımlıyoruz.
Say = WorksheetFunction.CountIf([Z2:Z30000], TextBox1) 'Eğersay fonksiyonu ile Textboxtaki değeri saydırıp Say değişkenine atıyoruz.
If Say > 0 Then 'Say değişkenine atadığımız kriterin daha önce girilip girilmediini kontrol ediyoruz.
MsgBox "Bu kayıt daha önce girilmiştir. Lütfen farklı bir kayıt giriniz.", vbCritical, "Dikkat !" 'Girilmişse mesaj ile kullanıcıyı uyarıyoruz.
TextBox1 = "" 'Textboxın içindeki hatalı veriyi siliyoruz.
TextBox1.SetFocus 'Textboxı yeni kayıt girilmesi için aktif hale getiriyoruz.
Else
'........Sizin kayıt işleminde kullanmış olduğunuz kodları buraya yazın !
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.