DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Kombinasyon()
x = 8
For a = 1 To 5
For b = 6 To 10
For c = 20 To 24
For d = 25 To 29
For e = 30 To 34
For f = 35 To 39
For g = 40 To 44
For h = 45 To 49
For i = 50 To 54
For j = 55 To 59
Cells(x, "A") = a
Cells(x, "B") = b
Cells(x, "C") = c
Cells(x, "D") = d
Cells(x, "E") = e
Cells(x, "F") = f
Cells(x, "G") = g
Cells(x, "H") = h
Cells(x, "I") = i
Cells(x, "J") = j
x = x + 1
Next j
Next i
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
End Sub
Sub Kombinasyon()
For m = 1 To 10 - Sheets.Count
Sheets.Add after:=Sheets(Sheets.Count)
Next
For n = 1 To 10
Sheets(n).Name = n
Next
sayfa = 1
Set syf = Sheets(sayfa)
x = 8
For a = 1 To 5
For b = 6 To 10
For c = 20 To 24
For d = 25 To 29
For e = 30 To 34
For f = 35 To 39
For g = 40 To 44
For h = 45 To 49
For i = 50 To 54
For j = 55 To 59
If x = 1000000 Then
sayfa = sayfa + 1
Set syf = Sheets(sayfa)
x = 8
End If
syf.Cells(x, "A") = a
syf.Cells(x, "B") = b
syf.Cells(x, "C") = c
syf.Cells(x, "D") = d
syf.Cells(x, "E") = e
syf.Cells(x, "F") = f
syf.Cells(x, "G") = g
syf.Cells(x, "H") = h
syf.Cells(x, "I") = i
syf.Cells(x, "J") = j
x = x + 1
Next j
Next i
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
End Sub