Kullanıcının verdiği cevaplar için seçenek düğmelerinin seçili olup olmadığını check box kontrolü için kullandığım if checkbox.checked = true gibi bir kodla düzenlemenin yolunu bulamadığım için hücrenin dolumu boş mu durumunu aşağıdaki kod ile kontrol etme yoluna gittim. Fakat ilginç bir şekilde a ve b şıklarını işaretlediğimde RESULT SAYFASINDA verilen cevaplar listelenirken sonuçları doğru şıklarda aktarıyor. Eğer c ve d şıklarını işaretlediysem (boş bırakılmadı sorular bu yüzden e şıkkı denenmedi muhtemelen o da yanlış aktarılacak.) o şıklar dışındaki şıkları işaretlemişim gibi sonuç veriyor.
BU arada Uygulama dosyasını olduğu gibi değiştirdim Results sayfasının biçimlendirilmesinden kaynaklanan yavaşlama vardı programda o ortadan kaltı şu anda gayet hızlı kaydediyor. Güncel halini yüklüyorum.
Kod:
If Sayfa4.Range("A12").Value <> "" Then
Sayfa3.Range("C6").Value = Sayfa4.Range("A12").Value
ElseIf Sayfa4.Range("A14").Value <> "" Then
Sayfa3.Range("C6").Value = Sayfa4.Range("A14").Value
ElseIf Sayfa4.Range("A16").Value <> "" Then
Sayfa3.Range("C6").Value = Sayfa4.Range("A16").Value
ElseIf Sayfa4.Range("A18").Value <> "" Then
Sayfa3.Range("C6").Value = Sayfa4.Range("A18").Value
ElseIf Sayfa4.Range("A20").Value <> "" Then
Sayfa3.Range("C6").Value = Sayfa4.Range("A20").Value
End If