excellde kayıt arama

[fatih70]

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...

[Korhan Ayhan]

Selamlar,

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.

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