Macro ile sıralama

[Tornael]

Selamlar,

Arkadaşlar aşağıdaki gibi bir sıralamayı makro ile istediğim rakama kadar nasıl yazdırabilirim?

1 1
1 2
1 3
1 4
1 5
2 1
2 2
2 3
2 4
2 5
3 1
3 2
3 3
3 4
3 5
. .
. .
. .


Tşk.

 

[Orion1]

A sütununa yazar.
Buyurun.

Sub sirala59()
Dim i As Long, j As Long, sat As Long, sayi As String
sayi = InputBox("Döndürelecek sayıyı yazınız :", "SAYI")
Range("A:A").ClearContents
If sayi = "" Then Exit Sub
If Not IsNumeric(sayi) Then
    MsgBox "Lütfen Sayı giriniz!!", vbCritical, "U Y A R I"
    Exit Sub
End If
For i = 1 To CLng(sayi)
    For j = 1 To 5
        sat = sat + 1
        Cells(sat, "A").Value = i & " " & j
    Next j
Next i
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName

End Sub

 

[Tornael]

Tebrikler

Sayın Orion1 oldukça iyi çalıştı ama birde bunu stunlara ayırabilirmiyiz.
Aynı hücrede olmasa
Örn.
A1=1 ; B1=1
A2=1 ; B2=2
A3=1 ; B3=3

Tşk.

 

[Tornael]

Teşekkürler.

excel.web.tr sitesine bir kere daha teşekkür ediyorum.
biraz araştırmayla ve birazda denemeyle sonuca ulaştım.

Sub a()
Dim asd, i, j, hucre As Long
sat = 0
For i = 1 To 15
For j = 1 To 20
sat = sat + 1
Cells(sat, 1).Value = i
Next j
Next i

satır = 0
For hucre = 1 To 300
For asd = 1 To 20
Cells(hucre, 2).Value = asd
hucre = hucre + 1
Next asd
hucre = hucre - 1

Next hucre

End Sub

Yardımlarınız için tekrar teşekkür ederim sayın Orion.

 

[Orion1]

Sayın Orion1 oldukça iyi çalıştı ama birde bunu stunlara ayırabilirmiyiz.
Aynı hücrede olmasa
Örn.
A1=1 ; B1=1
A2=1 ; B2=2
A3=1 ; B3=3

Tşk.

Buyurun.

Sub sirala59()
Dim i As Long, j As Long, sat As Long, sayi As String
sayi = InputBox("Döndürelecek sayıyı yazınız :", "SAYI")
Range("A:B").ClearContents
If sayi = "" Then Exit Sub
If Not IsNumeric(sayi) Then
    MsgBox "Lütfen Sayı giriniz!!", vbCritical, "U Y A R I"
    Exit Sub
End If
For i = 1 To CLng(sayi)
    For j = 1 To 5
        sat = sat + 1
        Cells(sat, "A").Value = i
        Cells(sat, "B").Value = j
    Next j
Next i
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName

End Sub

 

[Tornael]

Tebrikler.

Yardımlarınız için çok teşekkürler sayın Orion.