mükerrer kayıt

[ipkins]

arkaşlar userformumun üzerinde 5 adet texbox var textbox 2 ye vergi numarası giriyorum ve kaydet diyorum. bunu yaparken verilerin olduğu sayfada vergi numaralarını kontrol edip varsa uyarı vermesini istiyorum. deneiyorum fakat olmuyor. metinde oluyor rakamda olmuyor. kullandığım kodlar şunlar: For Each ayni In Range("b2:b65536")
If ayni.Value = TextBox2.Value Then
DUR4 = MsgBox("GİRMİŞ OLDUĞUNUZ VERGİ NUMARASI KAYITLARDA BULUNMAKTADIR", vbYes, "YANLIŞ")
TextBox2.Value = ""
bu kodlarla metinleri buluyor fakat rakamlarda armama yapmıyor. yardımlarınızı bekliyorum. hatayı nerde yapıyorum acaba

 

[Mahmut Kök]

If ayni.Value = TextBox2.Value Then

aşağıdaki şekilde değişitirip dedneyin

If ayni*1 = TextBox2*1 Then

 

[Recep İpek]

Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton2_Click()
For Each ayni In Range("b2:b1000")
If ayni.Value = CStr(TextBox2.Value) Then
DUR4 = MsgBox("GİRMİŞ OLDUĞUNUZ VERGİ NUMARASI KAYITLARDA BULUNMAKTADIR", vbYes, "YANLIŞ")
TextBox2.Value = ""
Exit Sub
End If
Next
End Sub

 

[ipkins]

arkadaşlar teşekkürler sorunum çözüldü