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