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

Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
ç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
 
Katılım
29 Eylül 2004
Mesajlar
1,810
Excel Vers. ve Dili
Excel 2002 TR
If Range("b" & i).Value = Val(TextBox1.Value, Text) Then

yerine direk
If Range("b" & i) = TextBox1.Value Then
deneseniz?
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
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...
 
Katılım
3 Ocak 2006
Mesajlar
43
Excel Vers. ve Dili
2007
İngilizce
Sn. bulentc76
ve
Sn. danersin

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

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

Saygılar...
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
sayın gkseren sorunum çözüldü çok teşekkür ederim
aradığım bu kodlardı sağolun
 
Üst