Öncelik konusunda hata var mı emin değilim açıkçası,
Birkaç ilave ve yeni bir sıralama yaptım. Heryerde MsgBox,vbCriticam,"UYARI" yazmak yerine
mesaj metinlerini msj isimli değişkine aldım ve böylece MsgBox satırını en sonda 1 kez kullandım.
Üst kısımda 100 kontrolü tamamlandıktan sonra, her soru için de soru puanına göre kontrol varken cevap alanında 100 kontrolü anlamlı gelmediği için böyle bir kontrol yok.
Yapacağınız yer değişikliği iki Elseif bloklarının yerlerinin değiştirilmesiyse mesele yok.
AO sütun adı işleyişe mani değil. Satırda AO hücresi seçiliyken CTRL+SOL OK basıldığında gelinen hücrenin
son veri sütunu (son soru) olduğunu tespit etmek için kullanılıyor. Sadece AO5 hücresinin boş olması gerekiyor.
AO5'in boş olması hali sadece soru sayısı 35 olursa (yani tüm soru sütunları dolu) sorun olur.
Tedbiren soru alanının sağında 1 hücre boş olsun.
Eklediğim belgedeki NORMAL adını verdiğim tek satırlık kod, denemeler yaparken gerekliydi.
Kod çalışmaya başladıktan sonra zaman zaman kodu kendim durduruyordum.
Bu durumda da Application.Enable = False olarak kalmış oluyor.
Böyle olunca da bir sonraki veri girişi için kod tetiklenmez. Herşey tamam olduğunda NORMAL kod bloku silinebilir.
Siz de denemeler yaparken kodu monlandırırsanız, NORMAL kodunu çaıştırdıktan sonra denemeye devam edin.
CPP:
Görüntülemek için giriş yapmanız gerekmektedir.
(51 satır)