Bu makale, Bir Hücre Aralığını Başka Bir Sayfaya veya Çalışma Kitabına Kopyalamak için VBA'nın nasıl kullanılacağını gösterecektir.
Daha fazla bilgi için VBA Kopyalama ve Yapıştırma Eğitimimizi okuyun.
Mevcut Sayfaya Kopyala
Bir sayfadaki hücre aralığını zaten var olan başka bir sayfaya kopyalamak için aşağıdaki kodu kullanabiliriz:
| 123456 | Alt Kopyala ve YapıştırActiveSheet.Range("A1:D10").SeçSeçim.KopyalaSayfalar("Sayfa2").SeçinActiveSheet.PasteAlt Bitiş |
Bu, A1:D10 etkin sayfa aralığında depolanan bilgileri kopyalayacak ve mevcut bir Sayfa2'ye yapıştıracaktır. Sayfa 2'de seçilecek aralığı belirtmediğimiz için, otomatik olarak Aralık ("A1") öğesine yapıştıracaktır. Ayrıca, Sayfa 1'deki aralıkta olan tüm biçimlendirmeleri Sayfa 2'ye yapıştıracaktır.
Sayfa 2'de farklı bir konuma yapıştırmak istersek, yapıştırmak için başlangıç hücresini veya aralığı seçebiliriz. Aşağıdaki kod, E2 hücresinden başlayarak bilgileri yapıştıracaktır.
| 1234567 | Alt CopyAndPasteToRangeActiveSheet.Range("A1:D10").SeçSeçim.KopyalaSayfalar("Sayfa2").SeçinAralık("E1").SeçActiveSheet.PasteAlt Bitiş |
Değerleri Sayfa 2'ye yapıştırmak ve biçimlendirmeyi dahil etmemek için aşağıdaki kodu kullanabiliriz. Bir kez daha, A1 hücresine yapıştırmak istiyorsak, sayfa aralığını belirtmek zorunda değiliz.
| 123456 | Alt CopyAndPasteValuesActiveSheet.Range("A1:D10").SeçSeçim.KopyalaSayfalar("Sayfa2").SeçinSelection.PasteSpecial Paste:=xlPasteValuesAlt Bitiş |
Yeni Sayfaya Kopyala
Kopyalayıp yeni bir sayfaya yapıştırmak için aşağıdaki kodu kullanabiliriz:
| 123456 | Alt CopyAndPasteNewSheetActiveSheet.Range("A1:D10").SeçSeçim.KopyalaSheets.Add After:=ActiveSheetActiveSheet.PasteAlt Bitiş |
Yalnızca değerleri kopyalamak için xlPasteValues'u bir kez daha kullanabiliriz.
Mevcut Çalışma Kitabına Kopyala
Tamamen farklı bir çalışma kitabına kopyalayıp yapıştırmak için, her iki çalışma kitabını da zaten açık tutabiliriz veya kodu başka bir çalışma kitabı açmak için kullanabilir ve ardından bu çalışma kitabına yapıştırabiliriz.
Aşağıdaki kod, zaten açık olan mevcut bir çalışma kitabına kopyalanır.
| 1234567 | Alt Kopyala ve YapıştırMevcut KitapAralık("A1:D10").SeçSeçim.KopyalaWindows("CombinedBranches.xlsx").EtkinleştirSheets.Add After:=ActiveSheetActiveSheet.PasteAlt Bitiş |
VBA Programlama | Code Generator sizin için çalışıyor!
Aşağıdaki bu kod, kod tarafından açılacak 2. bir çalışma kitabında yeni bir sayfaya kopyalayıp yapıştıracaktır.
| 1234567 | Sub CopyAndPasteOpenWorkbookAralık("A1:D9").SeçSeçim.KopyalaWorkbooks.Open Dosya Adı:= "C:\ExcelFiles\CombinedBranches.xlsx"Sheets.Add After:=ActiveSheetActiveSheet.PasteBitiş Sayfası |
İPUCU: Workbooks.Open bağımsız değişkenindeki dosyanın adını kendi dosya adınızla değiştirin!
Yeni Çalışma Kitabına Kopyala
Ayrıca yeni bir Çalışma Kitabına Kopyalayıp Yapıştırabiliriz.
| 123456 | Sub CopyAndPasteNewWorkbookAralık("A1:D9").SeçSeçim.KopyalaÇalışma kitapları.EkleActiveSheet.PasteAlt Bitiş |
