Kopyala-Sıradaki İlk Boş Satıra Yapıştır Makrosu Hakkında Yardım!!

[smaeler]

Arkadaşlar; Excelde büyük ihtimalle basit ancak bir türlü beceremediğim bir Kopyala-Yapıştır Makrosuna ihtiyacım var. Şöyle ki;
Sayfadaki G6:K6 satır aralığındaki veriyi kopyalayıp, A3:E50 aralığındaki tabloda en alttaki sıradaki BOŞ SATIRA yapıştırma Makrosu istiyorum.
Yardımlarınız için şimdiden teşekkürler..

 

[YUSUF44]

Aşağıdaki gibi deneyin:

yeni = Cells(Rows.Count, "A").End(3).Row +1 [G6:K6].Copy Cells(yeni, "A")

 

[yusuf1284]

Alternatif eğer hücre biçimini aktarmak istemiyorsan

sh_calisma="SAYFA ADINI YAZARSIN"
yeni = sh_calisma.Cells(Rows.Count, "A").End(3).Row +1
sh_calisma.Range("A" & yeni & ":E" & yeni ).Value = sh_calisma.Range("G6:K6").Value