acilll yardım

[Muharrem41]

yardımlarınız için şimdiden çok teşekkür ederim saygılarımla


arkadaşlar benim acele bir macroya ihtiyacım var sitede örnek oarak bir macro buldum ama tam anlamıyla işime yaramadı benim istediğim buna benzer ama biraz daha farklı bu macro sayısal için yapılmış bir macro banada buna çok benzer macro lazım 1-3-5-7-9-11-13-15-17-59 a kadar sadece tek rakamların 6 lı ve 8 li ve 10 lu olarak sıralamasını istiyorum örnek macro aşağıdadır ama sadece tek rakamları sıralıyacağım



Sub Listele()
Dim X As Byte, z As Long
Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte, g As Byte

X = 49

For a = 1 To X
For b = a + 1 To X
For c = b + 1 To X
For d = c + 1 To X
For e = d + 1 To X
For f = e + 1 To X
z = z + 1
Cells(z, 1) = a
Cells(z, 2) = b
Cells(z, 3) = c
Cells(z, 4) = d
Cells(z, 5) = e
Cells(z, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a

End Sub