Sıra Numarasına göre liste oluşturma

[Feylosof]

Merhaba,
40 kişilik bir listede A sütununda sıra numaraları ile listelenmiştir.
Tek rakamlı olanları sıra numarası ile birlikte 2. sayfaya çift rakamlı olanları da 3. sayfaya listelemek istiyorum.
Bunun için bana vba kodunda yardımcı olursanız sevinirim. Saygılar.

 

[Feylosof]

Dosya üç sütundan oluşmaktadır

 

[Korhan Ayhan]

Formülle çözüm;

 

[Feylosof]

Sayın @Korhan Ayhan yardımınız için çok teşekkür ederim. Emeğinize sağlık. Vba ile nasıl çözüldüğünü de merak etmiyor değilim. Varolun.

 

[veyselemre]

Sub test()
    Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
    Dim i&
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    Set s3 = Sheets("Sayfa3")
    
    s2.Cells.ClearContents
    s3.Cells.ClearContents
    
    s1.Rows(1).Copy s2.Rows(1)
    s1.Rows(1).Copy s3.Rows(1)

    For i = 2 To s1.Cells(Rows.Count, 1).End(3).Row Step 2
        s2.Cells(i / 2 + 1, 1).Resize(, 3).Value = s1.Cells(i, 1).Resize(, 3).Value
        s3.Cells(i / 2 + 1, 1).Resize(, 3).Value = s1.Cells(i + 1, 1).Resize(, 3).Value
    Next i
End Sub

 

[Korhan Ayhan]

Alternatif;

ADO ile çözüm uygulanmıştır.

 

[Feylosof]

Sayın @veyselemre ve sayın @Korhan Ayhan üstadlarım ikinize de çok teşekkür ederim. Arşivimin önemli köşesinde yer alacak yardımda bulundunuz.