Sayfa kopyala veya taşıma

Katılım
6 Temmuz 2004
Mesajlar
157
Excel Vers. ve Dili
Microsoft® Office 2019 TR
Herkese merhaba

Arkadaşlar Sayfayı taşıma olayını bir türlü yapamadım
iki ayrı kitap var Kitap1 ve Kitap2 Þeklinde
Kitap1 in içinde bir adet sayfa var ( bu sayafanın adı bulunduğumuz ayın "temmuz 2005" şeklinde değişiyor ) bu sayfayı kitap2 de en son sayfanın son kısına taşımak veya Kopyalamak isitiyorum
Aşağıdaki makro olmadı bilgilerinize
Yardımlarınızı bekliyorum...


Ã?rnek Makro aşağıda inceliyip yardımlarınızı bekliyorum
Kod:
Workbooks.Open ("C:kitap2.xls ")
Workbooks("kitap1.XLS").Activate
ActiveSheet.Move _
    after:=Workbooks("kitap2.xls")
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki şekilde deneyin.

[vb:1:230d786d34]Sub kopyala()
Sheets("temmuz 2005").Copy After:=Workbooks("Kitap2").Sheets(Workbooks("Kitap2").Sheets.Count)
End Sub
[/vb:1:230d786d34]
 
Katılım
6 Temmuz 2004
Mesajlar
157
Excel Vers. ve Dili
Microsoft® Office 2019 TR
Sn Levent bey

iliginizden ötürü teşekkür ederim

Bu temmuz 2005 sadece örnek yani değişken bunu her seferinde değiştirmek yerine Active sheets şeklinde değiştirsek olmaz mı
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Elbette olur, bunu deneyerekte görebilirsiniz.
 
Katılım
6 Temmuz 2004
Mesajlar
157
Excel Vers. ve Dili
Microsoft® Office 2019 TR
Teşekürler ederim Levent bey
 
Üst