Çalışma sayfası kopyalama

[kadir78]

İyi günler. Masaüstünde kullandığım Kaynak.xlsx ve Hedef.xlsm olarak 2 dosya kullanıyorum. Kaynak.xlsx dosyasında 12 ay olarak sayfalar mevcut. Hedef.xlsm dosyasındaki A1 hücresindeki Ay değerine göre Kaynak.xlsx dosyasındaki sayfaları, Hedef.xlsm dosyasına makro kodları ile nasıl aktarabilirim. Bu konu ile alakalı makro kodu paylaşırmısınız. İş yerimdeki bilgisayarda internet ve ağ bağlantısı olmadığı için cep telefonundan yazıyorum örnek dosya gönderemiyorum kusura bakmayın lütfen.

 

[yanginci34]

Sayın Murat OSMA nın bir çalışması var açıklamalı bir şekilde burayı bir inceleyiniz.

 

[kadir78]

Internetten bulduğum makro kodlarını dosyaya uyarladım. Benim işime yaradı sorunsuz çalışıyor.

Sub SayfaAktar()
Application.ScreenUpdating = false
Application.DisplayAlerts = false

Dim Hedef As Workbook
Dim Kaynak As Workbook

Set Hedef = Thisworkbook
Set Kaynak = Workbooks.Open("Dosya Adresi.xlsx")

Kaynak.sheets(Range("A1").Value).Copy After:=Hedef.Sheets("Sayfa1")

Kaynak.Close

Set Kaynak = Nothing
Set Hedef = Nothing

Thisworkbook.Activate
Sheets("Sayfa1").Range("A1").Select


Application.ScreenUpdating = False
Application.DisplayAlerts = False

End Sub