Diğer Çalışma Kitaplarına Değer Kopyalama

1. Eğer kitap2 açıksa aşağıda belirtilen değerleri yapıştırır

Workbooks("kitap2.xlsx").Sheets(1).Range("A2").Value = "abc123"

ThisWorkbook.Worksheets("Ürünler").Range("A4").CurrentRegion.Copy _
Workbooks("Kitap2.xlsx").Sheets(1).Range("A4")

ShUrunler.Range("A4").CurrentRegion.Copy _
Workbooks("Kitap2.xlsx").Sheets(1).Range("A4")

2. Eğer kitap2 kapalıysa önce açmak gerekir

2a. İmmediate penceresinden dosyanın yolu bulunur:

?Workbooks(“kitap2.xlsx”).path
C:Excel

2b. Dosya açılır:

Application.Workbooks.Open "C:Excelkitap2.xlsx"

Workbooks("kitap2.xlsx").Sheets(1).Range("A2").Value = "abc123"

ThisWorkbook.Worksheets("Ürünler").Range("A4").CurrentRegion.Copy _
Workbooks("Kitap2.xlsx").Sheets(1).Range("A4")

ShUrunler.Range("A4").CurrentRegion.Copy _
Workbooks("Kitap2.xlsx").Sheets(1).Range("A4")

‘True kaydetme seçeneğidir.
ActiveWorkbook.Close True