sziasztok ! Van egy problémam Excelben irtam egy makrot ez 10 számra 4 kihuzottat garantal a négyes játéktipusban!Hogyan modosul ez a program ha en olyan kulcsot akarok ami 4  kihuzottra csak 3-as talalatot garantal????

Ert valaki ehhez?

Sub Gomb1_Kattintás()
o = 1
For s = 1 To 7
For t = 1 + s To 8
For v = 1 + t To 9
For Z = 1 + v To 10
 Cells(o, 1) = s
 Cells(o, 2) = t
 Cells(o, 3) = v
 Cells(o, 4) = Z
 o = 1 + o
Next Z
Next v
Next t
Next s

End Sub