Kopyalama

[mesutaygun70]

Sayfa1 de A Sutununda verilerim var (Yaklaşık 300 tane). Butona bastığımda Sayfa1 deki verilerin Sayfa2 ye Her satırdaki veri-her sutuna gelecek şekilde bir kod yazabilirmiyim. (Elle yazmak çok zor oluyor veri fazla olunca)
Örn:Sayfa2 A1=Sayfa1!A1,B1=Sayfa1!A2,C1=Sayfa1!A3

 

[Korhan Ayhan]

Deneyiniz.

Sub KOPYALA()
    Dim S1 As Worksheet, S2 As Worksheet
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    Son = S1.Cells(S1.Rows.Count, 1).End(3).Row
    S1.Range("A1:A" & Son).Copy
    S2.Range("A1").PasteSpecial xlPasteAll, , , True
    Application.CutCopyMode = xlCopy
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub