Excel'deki Verileri Başka Bir Çalışma Kitabına Kopyalama
Bu makalede, Microsoft Excel'deki verileri başka bir çalışma kitabına kopyalamanın her iki yöntemi de tanıtılmaktadır.
![](http://img.brin-designs.com/img/games/841/copy-data-another-workbook-excel.png)
- Aynı Çalışma Kitabındaki Verileri Taşıma veya Kopyalama
- Farklı Çalışma Kitaplarındaki Verileri Taşıma veya Kopyalama
- VBA Kullanarak Verileri Taşıma veya Kopyalama
Aynı Çalışma Kitabındaki Verileri Taşıma veya Kopyalama
İlk adım, taşımak veya kopyalamak istediğiniz sayfaları seçmektir. Birden fazla sayfa seçmek için, ilk sayfanızı seçin ve kopyalamak istediğiniz ek sayfaları tıklatırken Kontrol tuşunu basılı tutun.Üst araç çubuğunun Giriş sekmesinde Hücreler grubunu bulun ve Biçimlendir'i tıklatın. Sayfaları Düzenle altında, Sayfayı Taşı veya Kopyala'yı tıklatın.
Bir iletişim kutusu açılacaktır. Önce listesinde, daha önce taşınan veya kopyalanan sayfaları eklemek istediğiniz sayfayı tıklatabilir veya çalışma kitabınızdaki son sayfadan sonra sayfaları eklemek için sonuna taşıyabilirsiniz .
Sayfaları taşımak yerine kopyalamak için, Taşı veya Kopyala iletişim kutusunda bulunan Bir kopya oluştur onay kutusunu seçin.
Farklı Çalışma Kitaplarındaki Verileri Taşıma veya Kopyalama
Excel çalışma sayfalarını başka bir çalışma kitabına taşımak veya kopyalamak istiyorsanız, önce hedef çalışma kitabının Microsoft Excel'in aynı sürümünde açık olduğundan emin olmalısınız.Taşımak veya kopyalamak istediğiniz sayfaları seçin. Ardından, araç çubuğunuzdaki Giriş sekmesine gidin ve Hücreler grubunu> Biçimlendir'i tıklayın . Sayfaları Düzenle altında, Sayfayı Taşı veya Kopyala'yı tıklatın.
Bir iletişim kutusu açılacaktır. Kitap listesinde, seçilen sayfaları varolan bir çalışma kitabına taşımak veya kopyalamak veya sayfaları yeni bir çalışma kitabına taşımak veya kopyalamak için seçin.
Önce listesinde, daha önce taşınan veya kopyalanan sayfaları eklemek istediğiniz sayfayı tıklatabilir veya çalışma kitabınızdaki son sayfadan sonra sayfaları eklemek için sonuna taşıyabilirsiniz .
VBA Kullanarak Verileri Taşıma veya Kopyalama
Alt CopyOpenItems ()
'
'CopyOpenItems Makro
'Açık öğeleri sayfaya kopyala.
'
'Klavye Kısayolu: Ctrl + Shift + O
'
Dim wbTarget As Workbook 'verilerinin yapıştırılacağı çalışma kitabı
Dim wbThis As Workbook 'çalışma kitabında verilerin kopyalanacağı yer
Dim strName As String 'kaynak sayfanın / hedef çalışma kitabının adı
'mevcut aktif çalışma kitabına (kaynak kitap) ayarlayın
Set wbThis = ActiveWorkbook
'kitabın aktif sayfa adını al
strName = ActiveSheet.Name
'sayfa adıyla aynı ada sahip bir çalışma kitabını aç
Set wbTarget = Workbooks.Open ("C: \ filepath \" & strName & ".xlsx")
'hedef kitapta A1 hücresini seçin
wbTarget.Range ( "A1"). seçiniz
'hedef kitabı oluşturan mevcut değerleri temizle
wbTarget.Range ( "A1: M51") ClearContents.
'kaynak kitabı etkinleştir
wbThis.Activate
'kullanılabilir belleği en üst düzeye çıkarmak için panodaki herhangi bir şeyi temizleyin'
Application.CutCopyMode = Yanlış
'aralığı kaynak kitaptan kopyala
wbThis.Range. ( "A12: M62") Kopya
'verileri hedef deftere yapıştır
wbTarget.Range ( "A1"). PasteSpecial
'kullanılabilir belleği en üst düzeye çıkarmak için panodaki herhangi bir şeyi temizleyin'
Application.CutCopyMode = Yanlış
'hedef kitabı kaydet
wbTarget.Save
'çalışma kitabını kapat
wbTarget.Close
'kaynak kitabı tekrar aktifleştir
wbThis.Activate
'hafızayı temizle
Set wbTarget = Hiçbir şey
Set wbThis = Hiçbir şey
Son Alt