Multipage üzeriinden optionbuttonları döngüye almak

[Hakan ERDOST]

Herkese merhaba 17 adet multipage üzerinde 350 küsur 4 lü gruplanmış optionbuttonlar var. Seçimleri disleksi isimli sayfaya aktarmak istiyorum ancak form üzerindeki multipage ve option butonları birlikte döngüye alamadım.
Dosya ektedir.

 

[cems]

Kayıtlar sayfanın tam neresine ve nasıl ( dikine mi ya da yatay mı , sayı ile mi x işareti ile mi ) düşecek . Sayfa üzerine bir örnekleme yapsanız iyi olurdu.

 

[Hakan ERDOST]

Sayın cems , ilginize teşekkürler. Kayıtlar 2. Satırdan itibaren sütunlara gelecek. Ad soyad 2a, 1.soru 2b, 2.soru 2c şeklinde devam edecek, 88 soru. Diğer kayıt Alt satıra eklenip, veritabanı mantığı olacak.


Tapatalk kullanarak iPhone aracılığıyla gönderildi

 

[Mustafa MUTLU]

Şu kodu denermisiniz..


Private Sub CommandButton1_Click()
Mutlu = Range("A65536").End(3).Row + 1
Cells(Mutlu, "a") = ComboBox1.Text
YY = 2
For XX = 1 To 352
For X = 1 To 4
If UserForm1.Controls("OptionButton" & XX - 1 + X) = True Then
'If X = 1 Then DG = "HİÇBİR ZAMAN"
'If X = 2 Then DG = "BAZEN"
'If X = 3 Then DG = "SIKLIKLA"
'If X = 4 Then DG = "HER ZAMAN"
Cells(Mutlu, YY) = DG
End If
Next X
XX = XX + 3
YY = YY + 1
Next XX
End Sub