Sayfalar arası veri kopyalama

[schlecht]

Ekteki dosyada sayfa1 deki b1:b3 arası veriyi sayfa2 de a2:c2 arasına kopyalamak istiyorum.
Sayfa1 deki butona her bastığımda en son boş satıra kopyalaması lazım önceki veri silinmesin. Yardımlarınızı rica ederim.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile yapabilirsiniz.

Sub Kopyala()
    Dim SonSatir As Long
    Sheets("Sayfa1").Range("B1:B3").Copy
    With Sheets("Sayfa2")
        SonSatir = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        .Range("A" & SonSatir).PasteSpecial Transpose:=True
    End With
    Sheets("Sayfa1").Range("B1:B3").ClearContents
    Application.CutCopyMode = False
End Sub

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub aktar()
yeni = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("Sayfa2").Cells(yeni, "A") = Sheets("Sayfa1").[B1]
Sheets("Sayfa2").Cells(yeni, "B") = Sheets("Sayfa1").[B2]
Sheets("Sayfa2").Cells(yeni, "C") = Sheets("Sayfa1").[B3]
End Sub

 

[schlecht]

Teşekkürler. Anca deneme fırsatım oldu. 2 kodda başarılı bir şekilde çalıştı.