kayıt sorunu

[ipkins]

arkadaşlar userformdan sayfaya kayıt yaparken mükerrer kayıt aramak için şu kodları kullanıyorum :
For Each aynı In Range("d2:d65536")
If aynı.Value = TextBox2.Value * 1 Then
aynı.Select
msgbox("kayıtlıdır")
TextBox2.Value = ""
TextBox2.SetFocus
Exit Sub
End If
Next aynı
bu kodlar eğer mükerrer kayıt varsa uyarı veriyor ama kayıt yoksa bu satırı (If aynı.Value = TextBox2.Value * 1 Then) sarıya boyayıp şu hatayı veriyor "type mismatch" ve eror=2042 yazıyor aynı nın üzerine geldiğimde acaba sorun nereden kaynaklanıyor olabilir

 

[udentr2002]

For Each aynı In Range("d2:d65536")
If aynı.Value = TextBox2.Value * 1 Then
aynı.Select
msgbox("kayıtlıdır")
TextBox2.Value = ""
TextBox2.SetFocus
Exit Sub
elseif ayn&#305;.Value <> TextBox2.Value * 1 Then
exit sub
End If
Next ayn&#305;


&#351;eklinde denermisiniz (e&#287;er ayn&#305; kayd&#305; bulmad&#305;&#287;&#305;nda i&#351;lem yap&#305;p &#231;&#305;kmas&#305;n&#305; istiyorsan&#305;z yukar&#305;daki kodu bir deneyin ama ayn&#305; kayd&#305; bulamad&#305;&#287;&#305;nda yapmas&#305;n&#305; istedi&#287;iniz kodlar&#305;

elseif ayn&#305;.Value <> TextBox2.Value * 1 Then

sat&#305;r&#305;n&#305;n alt&#305;na gelecek &#351;ekilde yaz&#305;p deneyin belki d&#252;zelir

 

[ipkins]

udentr2002 d&#252;zelmedi arkada&#351; bu formda &#231;al&#305;&#351;mor di&#287;er formlar&#305;mda &#231;al&#305;&#351;&#305;yor bu kod anlamad&#305;m gitti

 

[ipkins]

kusura bakmayın sizide yordum sayfanın altında bir hücre doluymuş sorun bundan kaynaklanıyormuş. Tüm arkadaşlardan özür dilerim.