- Katılım
- 23 Şubat 2007
- Mesajlar
- 112
- Excel Vers. ve Dili
- 2013 türkçe
- Altın Üyelik Bitiş Tarihi
- 09-06-2027
Merhaba. Tekrar girişi engellemek için yaptığım sayısal kontrolde küçük rakamlarda hata vermez iken 40000 den sonra hata veriyor.
Dim as integer kullanmaz isem kontrol yapmıyor.
Nerede hata yapıyorum ?
Private Sub CommandButton1_Click()
Dim kont1 As Integer, kont2 As Integer
If ComboBox1.Value = "" Then
MsgBox ("Lütfen hangi birim olduğunu giriniz"), , "Birim Hatası"
Cancel = True
ComboBox1.SetFocus
Exit Sub
End If
Sheets("barkod").Select
kont1 = TextBox1.Value
For kont = 5 To [h65535].End(3).Row
kont2 = Range("h" & kont)
If kont1 = kont2 Then
MsgBox "Bu barkod numarası daha önce kayıt edilmiş ", , "Tekrar Giriş Hatası"
TextBox1.Value = ""
TextBox1.SetFocus
Exit Sub
End If
Next
Dim as integer kullanmaz isem kontrol yapmıyor.
Nerede hata yapıyorum ?
Private Sub CommandButton1_Click()
Dim kont1 As Integer, kont2 As Integer
If ComboBox1.Value = "" Then
MsgBox ("Lütfen hangi birim olduğunu giriniz"), , "Birim Hatası"
Cancel = True
ComboBox1.SetFocus
Exit Sub
End If
Sheets("barkod").Select
kont1 = TextBox1.Value
For kont = 5 To [h65535].End(3).Row
kont2 = Range("h" & kont)
If kont1 = kont2 Then
MsgBox "Bu barkod numarası daha önce kayıt edilmiş ", , "Tekrar Giriş Hatası"
TextBox1.Value = ""
TextBox1.SetFocus
Exit Sub
End If
Next