verilerden kayıt eklerken daha önce girilmiş uyarısı

[a_self_lion]

selam arkadaşlar
Ben bir sorunla karşlaştım MLZ_KOD sayfamda B sutununda alt alta M OE 1007 , M OE 2900 .... VB aşağı doğru gidiyor B1 B2 B3 HÜCRELERİNDE

burda veri eklerken ben bunları aşağıdaki kod gibi bi kontrol koydum aynı kayıt varsa sub dan çıksın diye ama bu kodla sadeve ilk harfi yani M Yİ KONTROL EDİYER VE HER DEFASINDA kayıt daha önce girilmiş diyor

fakat birleşik veya sayı yazarsam kod düzgün çalışıyor .

Acaba nasıl bir kod yazmalıyım ki "M OE 1007" BUNUN HEPSİNİ BU ŞEKİLDE KONTROL ETTİREBİLEYİM.


Worksheets("MLZ_KOD").Select

For Each ayni2 In Range("B2:C" & [B65536].End(3).Row).Cells
If Val(ayni2) = Val(TextBox1) Then
MsgBox "Bu Sipariş Daha Önce Girilmiş. "
Exit Sub
End If
Next ayni2

 

[Ferhat Pazarçevirdi]

Textbox1'e; örn."M OE 1007" ile belirtilen sipariş için "1007" mi yazıyorsunuz? yoksa yine "M OE 1007" mi?

Çalışmayan kısım VAL() -sayıya çevirme- fonksiyonu ... Nümerrik bir değer döndürmüyor. Başka bir yolla textboxtaki değerleri, hücredekilerle karşılaştırmayı deneyin.

 

[Levent Menteşoğlu]

Worksheets("MLZ_KOD").Select

For Each ayni2 In Range("B2:C" & [B65536].End(3).Row).Cells
If Val(ayni2) = Val(TextBox1) Then
MsgBox "Bu Sipariş Daha Önce Girilmiş. "
Exit Sub
End If
Next ayni2

Bu işlem için döngü kurarak karşılaştırma yapmak gerekmez, yukarıdaki yerine aşağıdaki gibi kullanın.

if worksheetfunction.countif(Worksheets("MLZ_KOD").Range("B:B"),textbox1)>0 then
MsgBox "Bu Sipariş Daha Önce Girilmiş. "
Exit Sub
End If

 

[a_self_lion]

ÇOK TEŞEKKÜR EDERİM SAYIN Leventm