kodların sıralanması problemi

[zamenya]

sayın hocalarım merhabalar
ekli örnekte yaptığım çalışmada kaydet butonuna veri doğrulama veri bulunamadı gibi,combobox1 10 haneli combobox 11 haneli olamsı gerekir diye uyarı verip işlemi durduran kodlar var ama en önemlisi mükerer girişleri engelleyecek kod çalışmıyor,veri doğrulama kodu eklemeden önce çalışıyordu ama şimdi çalışmıyor bu neden olabilir acaba
ve nasıl bir çözüm üretmem gerekiyor

 

[zamenya]

sayın hocalarım kodların yerinimi değiştirmem gerekiyor yoksa yeni bir kod gerkiyor bu konuda yardımcı olabilirmisiniz

 

[zamenya]

kodların yerlerinide değiştirdim sayın hocalarım ama mükerrer kayıtları engellemiyor diğer kodlar çalışıyor

nasıl bir çözüm üretmem gerekiyor bu konuda yardımcı olabilirmisiniz

 

[leumruk]

kodların yerlerinide değiştirdim sayın hocalarım ama mükerrer kayıtları engellemiyor diğer kodlar çalışıyor

nasıl bir çözüm üretmem gerekiyor bu konuda yardımcı olabilirmisiniz

For i = 1 To [d65536].[COLOR="Red"]End(4).[/COLOR]Row
If ComboBox1.Value = Cells(i, "d") Then
MsgBox "Bu bilgi daha önce kaydedilmiş"
Exit Sub
End If
Next i

Deneme şansım olmadı; ama End(4) ifadesini ilk defa sizin kodlarınızda gördüm. Bu kısmı End(3) yaparsanız, sanırım düzelecektir.

 

[Orion1]

Dosyanız ekte.Ama sizin kodlarınız hiç bir zaman kayıt yapamaz.

 

[manasız]

:yardim:evren hocam bana yardımcı olurmusun lütfen:yardim::agla: