Vba aralığını başka bir sayfaya + çalışma kitabına kopyala
Bir hücreyi veya hücre aralığını başka bir çalışma sayfasına kopyalamak için VBA’nın “Kopyala” yöntemini kullanmanız gerekir. Bu yöntemde, kopyalamak istediğiniz aralık nesnesini kullanarak aralığı veya hücreyi tanımlamanız ve ardından onu yapıştırmak istediğiniz aralığı içeren başka bir çalışma sayfası tanımlamanız gerekir.
Bir hücreyi kopyalayın veya başka bir çalışma sayfasına düzenleyin
Range("A1").Copy Worksheets("Sheet2").Range("A1")- Öncelikle kopyalamak istediğiniz aralığı veya hücreyi ayarlayın.
- Daha sonra bir nokta (.) yazın ve özellikler ve yöntemler listesinden kopyalama yöntemini seçin.
- Burada kopyalanan hücrenin hedefini belirlemek için bir zeka elde edeceksiniz.
- Buradan çalışma sayfasını ve ardından hedef aralığını tanımlamanız gerekir.
Artık bu kodu çalıştırdığınızda A1 hücresini aktif sayfadan “Sayfa2”ye kopyalar. Emin olmanız gereken bir şey, bir hücreyi kopyalayıp bir hedefe yapıştırdığınızda, formatın da oraya yapıştırılmasıdır.
Ancak yalnızca bir hücrenin değerini kopyalayıp farklı çalışma sayfalarına yapıştırmak istiyorsanız aşağıdaki kodu göz önünde bulundurun.
Worksheets("Sheet2").Range("A1") = Range("A1").ValueBu yöntem, kopyalama yöntemini kullanmaz ancak eşittir işareti kullanarak ve kaynak hücreyle birlikte değer özelliğini kullanarak hedef çalışma sayfasına değer ekler.
Başka bir çalışma sayfasından hücreyi kopyala
Şimdi, o anda etkin olmayan bir çalışma sayfasından bir hücreyi kopyalamak istediğinizi varsayalım. Bu durumda çalışma sayfasını kaynak hücreyle tanımlamanız gerekir. Tıpkı aşağıdaki kod gibi.
Worksheets("sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A1")Bir hücre aralığını kopyalama
Range("A1:A10").Copy Worksheets("Sheet2").Range("A1:A10") Range("A1:A10").Copy Worksheets("Sheet2").Range("A1")Çalışma sayfasındaki bir hücreyi başka bir çalışma kitabına kopyalama
Çalışma kitapları açıldığında ancak henüz kaydedilmediğinde.
Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2").Worksheets("Sheet1").Range("A1")Çalışma kitapları açılıp kaydedildiğinde.
Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")Çalışma sayfasındaki bir hücreyi başka bir kapalı çalışma kitabına kopyalama
'to open the workbook that is saved in a folder on your system _ change the path according to the location you have in your _ system Workbooks.Open "C:UsersDellDesktopmyFile.xlsx" 'copies cell from the book1 workbook and copy and paste _ it to the workbook myFile Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("myFile").Worksheets("Sheet1").Range("A1") 'close the workbook and after saving Workbooks("myFile").Close SaveChanges:=True