Excelde anket sorularina verilebilecek cevaplarin makrosuni oluşturma

[Sscil]

Merhaba
8 soruluk bir ankette ;
1.soru için 4 şık ,2.soru için 5 şık,3. 4. 5. 6 sorular için 4 şık,7. Soru ıçin 5 şık ve 8.soru için 2 şık bulunmaktadır.
Her soruya bir cevap verilmelidir.
Bu soruların cevaplarının olasılığını excelde bir makro ile listeleyebilir miyiz?
64000 olasılık çıkıyor sanırım
Yardımlarınızı rica ederim
Tesekkurler

 

[YUSUF44]

Sub anket()

For a =1 to 4
For b = 1 to 5
For c = 1 to 4
For d = 1 to 4
For e = 1 to 4
For f = 1 to 4
For g = 1 to 5
For h = 1 to 2
Yeni = cells(Rows.Count, "A").end(3).row
If Cells(Yeni, "A") <> "" Then Yeni = Yeni + 1
Cells(Yeni, "A") = a
Cells(Yeni, "B") = b
Cells(Yeni, "C") = c
Cells(Yeni, "D") = d
Cells(Yeni, "E") = e
Cells(Yeni, "F") = f
Cells(Yeni, "G") = g
Cells(Yeni, "H") = h
Next
Next
Next
Next
Next
Next
Next
Next
Toplam = Cells(Rows.Count, "A").end(3).row
MsgBox "Bulunan toplam olası farklı cevap/anket sayısı: " & Toplam
[I1].Select
[I1] = "Bulunan toplam olası farklı cevap/anket sayısı: " & Toplam
End sub


Yukardaki kodları bir modüle kopyalayıp deneyiniz. Cepten yazdığımdan ben deneyemedim. 8 tane for, 8 tane cells, 8 tane de next satırı olmalı.

 

[Sscil]

Merhaba,
Denedim ve çalıştı çok teşekkürler.