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.

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. 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