aktif sayfadaki aktif hücrenin ait olduğu satırı seçme ve 2.sayfada altalta kopyalama

[yst10]

Selam,
KONU satırdakine ilave olarak tüm bunu 1 tuş ile yapmak istiyorum, bu işlem için yardımcı olabilecek varmı acaba?
Şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

sub kopyala()
rows(activecell.row).copy sheets("sayfa2").rows(65536).end(3).offset(1)
end sub

 

[yst10]

Sn.Levent bey

Selam,
Yazdığınız kodu ekteki gibi uyguladım ama olmadı, yanlış yapmış olabilirim, bakabilirseniz sevinirim.
Kolay gelsin.

 

[Levent Menteşoğlu]

Sayfa1'in kod sayfasındaki tüm kodları silip aşağıdakini kopyalayın. Kodu böylece butona yazmış olursunuz.

Private Sub CommandButton1_Click()
Rows(ActiveCell.Row).Copy Sheets("sayfa2").Rows(65536).End(3).Offset(1)
End Sub

 

[1Al2Ver]

Selam,
Yazdığınız kodu ekteki gibi uyguladım ama olmadı, yanlış yapmış olabilirim, bakabilirseniz sevinirim.
Kolay gelsin.

Dosya çalışıyor, düzeltmeli dosya ekte,

 

[yst10]

Levent bey,
Çok ama çok teşekkür ederim, hem ilginize, hem hızlı yanıtlarınıza.
Kolay gelsin.