Yan Yana Sıralama hk.da

[ufukufuk01]

Merhabalar

Sitede aradım ama bulamadım örnek baz alabileceğim bir kod bulamadım. Örnek tablom da sayfa1 alt alta olan verilerim var bu verileri ve Sayfa2'ye 2 şerli olarak nasıl kopyalayabilirim. Şimdiden teşekkür ederim.

OrnekTablo.xlsx dosyasını indir - download

OrnekTablo.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Bak As Integer
    With Worksheets("Sayfa1")
        For Bak = 2 To .Cells(Rows.Count, "A").End(xlUp).Row Step 2
            Worksheets("Sayfa2").Cells(Bak / 2, "A") = .Cells(Bak, "A")
            Worksheets("Sayfa2").Cells(Bak / 2, "B") = .Cells(Bak + 1, "A")
        Next
    End With
    MsgBox "İşlem tamamlandı."
End Sub

 

[ufukufuk01]

Çok teşekkür ederim hocam