Belirlenen değere göre sayı sıralama

[toltun]

İki sayfadan olusan excel sayfasında
ilk sayfada sırasıyla
3
7
5
yazıldığında ikinci sayfada
1
2
3
1
2
3
4
5
6
7
1
2
3
4
5
yazacak sekilde formul veya makro kodu nasil olabilir.

 

[Necdet]

Merhaba,

Böyle bir isteğin gerekçesi ne olabilir merak ettim doğrusu

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Yaz()

    Dim s1  As Worksheet, _
        s2  As Worksheet, _
        i   As Long, _
        j   As Long, _
        Sat As Long
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    s2.Range("A:A").Clear
    
    For i = 1 To s1.Cells(Rows.Count, "A").End(3).Row
        For j = 1 To s1.Cells(i, "A")
            Sat = Sat + 1
            s2.Cells(Sat, "A") = j
        Next j
    Next i
    
End Sub