Bir veriyi diğer sayfaya kaydetme

[ywzyilmaz]

Merhaba

sayfa1 de A2-D2 arasındaki veriyi makroyu her çalıştırdığımda Sayfa3 e A2-D2 arasına kaydedecek. Ama her seferinde bir alt satıra yazacak. Yani Sayfa 3 e yazdığı veriler silinmeyecek.

Range("A2:D2").Select

Selection.Copy

Sheets("Sayfa3").Select

ActiveSheet.Paste

makro kaydetmeyle şöyle bir kod çıkardım ama işime yaramadı.

teşekkür ederim. iyi forumlar.

 

[Korhan Ayhan]

ActiveSheet.Paste satırını silip aşağıdaki satırı yapıştırıp deneyiniz.

Cells(Rows.Count, 1).End(3)(2, 1).PasteSpecial