harflerde neden mükerrer kayıt hatası vermiyo...

[bulentc76]

çalışmamda ilgili textboxa veri girip kaydet dediğimde eğer sadece rakam içeriyorsa (124 vb...gibi) makro işliyor ve mükerrer kayıt hatası veriyor.
ancak a-01 veya aaa gibi harf içeren kodları kullandığımda mükerrer kayıt makrosu çalışmıyor.nedeki ola...
şimdiden ilgilenenlere teşekkür.kod aşağıda yazılı


Private Sub CommandButton1_Click()
Sheets("TANITIM KARTI").Select
If TextBox1.Text = "" Then
MsgBox "MÜKERRER DEPO İSMİ!!!KONTROL EDİNİZ..."
TextBox1.SetFocus
Exit Sub
End If
dene = Range("b1").CurrentRegion.Rows.Count
For i = 1 To dene
Sheets("TANITIM KARTI").Select
If Range("b" & i).Value = Val(TextBox1.Value, Text) Then
MsgBox "MÜKERRER KAYIT !!! LÜTFEN DEPO İSMİNİ KONTROL EDİNİZ..."
Exit Sub
End If
Next

dene = dene + 1
Sheets("TANITIM KARTI").Cells(dene, 2) = TextBox1.Text
MsgBox "KAYIT TAMAMLANDI..."
Exit Sub
End Sub

 

[danersin]

If Range("b" & i).Value = Val(TextBox1.Value, Text) Then

yerine direk
If Range("b" & i) = TextBox1.Value Then
deneseniz?

 

[bulentc76]

teşekkür ederim ama bu seferde 1 gibi rakamlar için mükerrer kayıt hatası vermiyo.rakamları aynı bile olsa kaydediyo.saygılarımla...

 

[gkseren]

Sn. bulentc76
ve
Sn. danersin

özür dileyerek şöyle de olabilir mi ;

If Range("b" & i) = TextBox1.Text Then

Saygılar...

 

[bulentc76]

sayın gkseren sorunum çözüldü çok teşekkür ederim
aradığım bu kodlardı sağolun