satırları, diğer sayfanın tek bir satırında toplamak

[eraser]

Arkadaşlar Merhaba

Üzerinde çalıştığım bir tablo mevcut.Bu tabloda personel isimleri satır satır yer almaktalar.
Fakat ben her satırdaki bilgileri excelin diğer sayfasındaki her satırın tamamını doldurmak üzere tümünü kopyalamak istiyorum. Bu mümkünmüdür.

Bu konuda yardımlarınızı rica edebilirmiyim.
Saygılırımla

 

[veyselemre]

Sub dene()
    Set sp = Sheets("personeller")
    Set s2 = Sheets("Sayfa2")
    sat = 2: sut = 1
    For x = 2 To sp.[a65536].End(3).Row
        s2.Range(s2.Cells(sat, sut), s2.Cells(sat, sut + 3)).Value = sp.Range(sp.Cells(x, 1), sp.Cells(x, 4)).Value
        sut = sut + 4
        If sut = 257 Then sut = 1: sat = sat + 1
    Next x
    Set sp = Nothing
    Set s2 = Nothing
End Sub

 

[eraser]

Sayın veyselemre

Verdiğiniz Emekten ötürü Çok çok teşekkür ediyorum.Sağolun.
Allah işlerinizde kolaylık versin.
Saygılarımla.