Excel Dosyasındaki Sayfayı Başka Excel Dosyasına Ekleme

[Sa.NaL]

Merhaba Benim uzman arkadaşlarımdan ricam 1.xls deki sayfa 4 komut butonuna bastığım zaman 2.xls dosyasına sayfa 4 olarak eklesin.Böyle bir kod elinizde varsa paylaşırsanız sevinirim.İyi çalışmalar.Şimdiden tşkler

 

[ziya]

Merhaba,
Sub Makro1()
Sheets("Sayfa1").Select
Sheets("Sayfa1").Copy Before:=Workbooks("Kitap2").Sheets(1)
Sheets("Sayfa1 (2)").Select
Sheets("Sayfa1 (2)").Name = "Sayfa4"
End Sub


Not: Kodları çalıştırmadan önce verilerinizi yedekleyin.

Selamlar,

 

[uzmanamele]

bu işinizi görür mü

Sub Ekle()
    Sheets("Sayfa4").Copy After:=Workbooks("2.xls").Sheets(3)
End Sub

 

[Sa.NaL]

Uzaman amele görmedi ya yukarıdakini uygulayacak kadarda profesyonel değilim benim ektekilere koyup ekleyip verebilirmisiniz bana ya size zahmet kusura bakmayın.ben ecmiyim daha ustalar

 

[asterix1234]

önce her iki dosyayıda açın dosya yollarını bilmediğim için kapalı olan dosyadan veri al/aktar şeklinde yapmadım.

 

[Sa.NaL]

BUDA OLMADI YA DOSYA YOLU d:\YENİ KLASÖR OLSUN BUNUN İÇİNE OLSUN 1.XLS VE 2.XLS 1İN 4 SAYFASI 2NİN 1.SAYFASINA DİYELİM KES YAPIŞTIR GİBİ BİŞİ OLSUNYANİ BİÇİMİ BOZULMADAN AYNEN YAPIŞSIN DİYELİM BUNU İSTEMEMİN SEBEBİ BENDE SUTUN VE SATIRLARI KISA TUTA TUTA HÜCRE BİRLEŞTİRİCİLERİ KULLANA KULLANA O SAYFAYI DİYELİM KESİP BAŞKA EXCEL DOSAYSININ İÇİNDEKİ SAYFAYA YAPIŞTIRMAYA KALKIYORUM SAYFA BOZULUYOR EN İYİSİ EKLE MANTIĞI İLE AYNEN EKLESİN BANA YARDIMCI OLURSANIZ ÇOK SEVİNİRİM

 

[Sa.NaL]

yokmu yardım eden uzman bi arkadaş yatmadan bi baksaydınız zahmet olmazsa

 

[Sa.NaL]

bu konuya yardımcı olabilecek uzaman arkadaş varmı beceremedim