Aynı dosya içerisindeki kitapcıktan veri alımı

[abbasonline]

Aynı dosya içerisindeki Excel kitapcığından veri almak için;

AYNI DOSYA İÇERİSİNDE İKİ TANE FARKLI EXCEL kitabcığı var. isimleri (tüm veriler ve tüm değerler) tüm değerler kitabının sayfa1 in ismi (tüm değerler 2011) birinci kitabcığın yani (tüm veriler' in) birinici sayfasıda (tüm veriler 2011) bu sayfada A7 den CQ30000 arası veriler var. ben sadece ikinci kitabcık olan tüm değerleri açtığımda diğer kitabcığın birinici sayfası olan (tüm veriler 2011) deki verilerin tamamını bu açmış olduğum kitabcığa almak için nasıl bir makro düzenlemem gerekli ?
ayrıca ikinci kitabcığı açtığımda birinici kitabcık açılmasın sadece verilerini alsın.

--------------------------------------------------------------------------------

 

[abbasonline]

Private Sub Workbook_copy()
Dim K1 As Workbook, K2 As Workbook

Application.ScreenUpdating = False

Set K1 = Workbooks.Open(ThisWorkbook.Path & "\" & "TÜM DEĞERLER-2011.xlsm")
Set K2 = Workbooks("DENEME.xlsm")

K1.Sheets("TÜM DEĞERLER").Range("A7:CR15000").Copy K2.Sheets("Sayfa1").Range("A7")

K2.Sheets("Sayfa1").Cells.EntireColumn.AutoFit
K2.Save

Set K1 = Nothing
Set K2 = Nothing

Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub




BU MAKRO İLE VERİLERİ ALABİLİYORUM ANCAK VERİLERİ ALDIĞIM KİTABCIKTA AÇILIYOR ONUN AÇILMAMASI İÇİN NASIL DÜZELTME YAPMAM GEREKLİ.

 

[abbasonline]

nasıl bir düzenleme yapmam gerekli;