Buton ile sayfalar arası veri taşıma yardımm

[baltazar54]

Merhaba arkadaşlar çok acil çözüme ihtiyacım var yardımcı olursanız sevinirim yapmak istediğim şey örneğin 1 nolu satırda a,b,c,d,e sutunlarındaki verilerin yanına taşı diye bir buton ekleyip bu verileri butona bastığımda 2.sayfaya sıradan taşımasını istiyorum yardımcı olursanız çok sevinirim. yanlız birinci sayfada gireceğim veriler 20 satır kadar olucak bunların hepsinin yanına buton koyup sadece taşı dediklerimi 2. sayfaya sıralı bir sekilde aktarmasını istiyorum.

Teşekkürler.

 

[Muhammet Okumuş]

Sub Aktar()
Dim x, son As Byte
x = ActiveCell.Row
son = Sheets("Sayfa2").Range("A100").End(3).Row + 1
Sheets("Sayfa2").Range("A" & son & ":E" & son) = Range("A" & x & ":E" & x).Value
End Sub

Kodu deneyiniz. Aktif hücrenin bulunduğu satırın A:E aralığını Sayfa2'nin son boş satırına aktarır.