yalnız şimdi fark ettim bazı kelimelerin Türkçe anlamı yok mesela "providing that" gibi 123 kelimenin yok yanlış olabilir
advert to
any more than
apart form
...

(23/05/2021, 17:26)Oğuz Türkyılmaz yazdı: @feraz hocam hatayı nerde verdi. Bendeki dosyada herhangi bir yerde hata vermiyor.

Bende optionbuttond vermişti çünkü dosyada yoktu sanıyorum.Ve dosya açılışındada vermişti.
Videoyu tüm izledim anlatan daha syfa seçtirmeyi bilmiyor

Evet berduş hocam ben de onu bazı soruların şıklarında boş hücreler çıktı bende bu neden oluyor diye düşünüp tablodan o soruyu bulunca karşılığının olmadığını farkettim. Karşılıklarını bir ara yazacağım. Teşekkür ederim.

---

Ömrümü yedi ömrümü

@feraz hocam 2 sorun var dosyada . Testi hazırla butonuna tıkladığımda object requıred hatası veriyor yine, ve son soruyu da cevapladıktan sonra sonraki soruya tıklarsam son satırı result sayfasına her tıklama da eklemeye devam ediyor. Tıklanan buton olsa butonun disable olma özelliğinden faydalanıp bu sorunu çözerdim ama şekil olunca şekillerin enabled ve disable özellikleri olmadığından çözüm bulamadım. result sayfasında soruyu ve doğru cevabı düşeyara formülü ile almıştım ama verilen cevabı düşey arayla çekmeye çalıştığımda hata veriyor.

Sub KaydetSonrakiSoruyaGec()

Dim son As Long, doluSay As Long

Static sayac As Long

Dim bulR10 As Range, rng10 As Range

Dim secenek As Object



doluSay = WorksheetFunction.CountA(Sayfa2.Range("A:A"))

sayac = sayac + 1



With Sayfa7

    With Sayfa4

        Set rng10 = .Range("R10")

        Sayfa7.Range("B2") = rng10.Value

        Set secenek = .Shapes("Seçenek Düðmesi 16").OLEFormat.Object

        secenek.Value = True ' boþ kutucuðu sonraki soruda iþaretli gelecek



        Set bulR10 = Sayfa7.Range("A:A").Find(rng10.Value, , , 1)

        

        If Not bulR10 Is Nothing Then

            MsgBox "Son sorudasiniz.", vbExclamation, "Bilgi"

            sayac = 0

            Exit Sub

        End If

        

        If sayac > doluSay Then

            MsgBox "Son sorudasiniz.", vbExclamation, "Bilgi"

            sayac = 0

            Exit Sub

        End If

        If sayac < doluSay Then rng10.Value = rng10.Value + 1

    End With

    

    son = .Cells(Rows.Count, 1).End(3)(2, 1).Row

    sonsatirResult son, .Name

End With

    sonDoluMesaj

End Sub

yalnız 12. mesajdaki dosyadan 16. mesajdaki dosyaya ne ara geçtiniz, arayı nasıl doldurdunuz ben onu anlamadım! 16. mesajda yapılan şeylerin hiç biri sorunuzda yer almıyor.