Birden fazla Excel sayfasıyla uğraşırken, bazen verileri bir elektronik tablodan diğerine kopyalamamız gerekir. VBA Excel'de herhangi bir işlemi çalıştırmak için en etkili, en hızlı ve en güvenli yöntemdir. Bu makalede, size nasıl yapılacağını göstereceğiz verileri bir çalışma sayfasından diğerine kopyalama ve yapıştırma ile Excel'de VBA makrosu .

Çalışma Kitabını İndirin

Ücretsiz alıştırma Excel çalışma kitabını buradan indirebilirsiniz.

Bir Çalışma Sayfasından Diğerine Kopyala ve Yapıştır.xlsm

Excel'de Bir Çalışma Sayfasından Diğerine Veri Kopyalamak ve Yapıştırmak için VBA ile 15 Yöntem

Bu bölümde, aşağıdakileri nasıl yapabileceğinize dair 15 yöntem öğreneceksiniz bir çalışma sayfasındaki verileri kopyalama ve başka bir çalışma sayfasına yapıştırma ile VBA Excel'de.

Yukarıda, bu makalede örneğimiz olarak ele alacağımız veri kümesi yer almaktadır.

1. Bir Çalışma Sayfasından Diğerine Veri Aralığı Kopyalamak ve Yapıştırmak için VBA Makrosunu Gömme

Atılacak adımlar VBA ile bir çalışma sayfasından diğerine veri aralığı kopyalama ve yapıştırma aşağıda açıklanmıştır.

Adımlar:

• Başlangıçta, tuşuna basın Alt + F11 sekmesine gidin veya klavyenizde Geliştirici -> Visual Basic açmak için Visual Basic Düzenleyicisi .

• Açılır kod penceresinde, menü çubuğundan Insert -> Modül .

• Şimdi, aşağıdaki kodu kopyalayın ve macun içine kod penceresi .

 Sub CopyPasteToAnotherSheet() Worksheets("Dataset").Range("B2:F9").Copy Worksheets("CopyPaste").Range("B2") End Sub 

Kodunuz artık çalışmaya hazır.

Bu kod parçası Aralığı B2'den F9'a kopyalayın bir şey yok. sayfa adı Veri Seti ve B2'dekileri yapıştırın Menzil içinde KopyalaYapıştır adlandırılmış sayfa .

• Ardından, tuşuna basın F5 klavyenizde veya menü çubuğundan Run -> Run Sub/UserForm üzerine de tıklayabilirsiniz. küçük Oynat simgesi makroyu çalıştırmak için alt menü çubuğunda.

Aşağıdaki resme bakın.

Son olarak, tüm veriler Veri Seti sayfası şimdi KopyalaYapıştır Excel çalışma kitabımızdaki sayfa.

Daha fazlasını okuyun: Excel VBA: Aralığı Başka Bir Çalışma Kitabına Kopyalama

2. Excel'de Etkin Bir Çalışma Sayfasından Diğerine Veri Kopyalamak ve Yapıştırmak için VBA Makrosu

Önceki bölümde, çalışma sayfasının etkinleştirilmesine gerek duymamıştık. Ancak bu bölümde, aşağıdakileri nasıl yapacağımızı öğreneceğiz Etkin bir çalışma sayfasındaki verileri kopyalama ve yapıştırma .

Adımlar:

• Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve macun o.

 Sub CopyPasteToAnotherActiveSheet() 'Kaynak sayfadan verileri kopyala Sheets("Dataset").Range("B2:F9").Copy 'Hedef sayfayı etkinleştir Sheets("Paste").Activate 'Hedef aralığı seç Range("B2").Select 'Hedefe yapıştır ActiveSheet.Paste Application.CutCopyMode = False End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak kodu yukarıda gösterildiği gibi girin ve sonucu aşağıdaki resimde görün.

Bu sefer, tüm veriler Veri Seti sayfası şimdi Yapıştır verileri kopyalamadan önce etkinleştirdiğimiz sayfa.

Daha fazlasını okuyun: Bir Hücreden Başka Bir Sayfaya Metin Kopyalamak için Excel Formülü

3. VBA Makrosu ile Excel'de Bir Çalışma Sayfasından Diğerine Tek Bir Hücreyi Kopyalayıp Yapıştırın

Yukarıdaki bölümlerde, bir çalışma sayfasından diğerine bir veri aralığını nasıl kopyalayıp yapıştıracağınızı öğrendiniz. Şimdi, aşağıdakileri nasıl yapacağınızı göreceksiniz sahip olduğunuzda kopyalayın ve yapıştırın tek bir veri parçası Excel elektronik tablonuzda.

Aşağıdaki resme bakın, aşağıdaki Menzil sayfası yalnızca bir değerden oluşur.

Nasıl yapabileceğimizi göreceğiz bu bir hücreyi kopyalayıp başka bir sayfaya yapıştırın ile Excel'de VBA .

Adımlar:

• Yukarıda gösterildiği gibi, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve macun

 Sub CopyPasteSingleRangeToAnotherSheet() Worksheets("Range").Range("B4").Copy Worksheets("CopyRange").Range("B2") End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak bu kod parçasına ve aşağıdaki görüntüye dikkat edin.

Bu tek veri " Bu Hücreyi Kopyala " içinde Hücre B4 içinde Veri Seti sayfası şimdi CopyRange içinde levha Hücre B2 .

Daha fazlasını okuyun: Yalnızca Değerleri Hedefe Kopyalamak için Excel VBA (Makro, UDF ve UserForm)

4. Excel Makrosunda PasteSpecial Yöntemi ile Kopyalanan Verileri Bir Çalışma Sayfasından Diğerine Yapıştırın

Yapabilirsin bir çalışma sayfasındaki verileri kopyalayın ve bunları yapıştırın ile çeşitli şekillerde Excel'in PasteSpecial yöntemi ile VBA Bunu yapmak için gerekli adımlar aşağıda verilmiştir.

Adımlar:

• İlk olarak, açın Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkincisi, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Sub CopyPasteSpecial() Worksheets("Dataset").Range("B2:F9").Copy Worksheets("PasteSpecial").Range("B2").PasteSpecial End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak bu kod parçası.

Yukarıdaki resme bakın. Veri Seti sayfası şimdi PasteSpecial Excel'de sayfa.

Daha fazlasını okuyun: Excel'de Değerleri ve Biçimleri Kopyalamak için VBA Paste Special (9 Örnek)

5. Excel'de Bir Çalışma Sayfasından Diğerine Son Hücrenin Altındaki Verileri Kopyalama ve Yapıştırma Makrosu

Zaten bazı verilerimiz var Veri Seti Şimdi, bu bölümün ilerleyen kısmına bakın. Şimdi başka bir sayfada bazı yeni verilerimiz var. Son Hücre .

Burada yapmak istediğimiz şey belirli verileri kopyalayın (Hücreler B5 - F9) bir şey yok. Veri Seti levha ve macun içinde olanlar son hücrenin altında bunun Son Hücre levha.

Adımlar:

• İlk olarak, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkinci olarak, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Sub CopyPasteBelowTheLastCell() 'Değişkenleri ayarlayın Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim iSourceLastRow As Long Dim iTargetLastRow As Long 'Kaynak ve hedef sayfalar için değişkenleri ayarlayın Set wsSource = Worksheets("Dataset") Set wsTarget = Worksheets("Last Cell") 'B sütunundaki verilere göre kaynak sayfadaki son kullanılan satırı bulun iSourceLastRow = wsSource.Cells(wsSource.Rows.Count,"B").End(xlUp).Row 'B sütunundaki verilere göre hedef sayfadaki ilk boş satırı bulun 'Offset özelliği kopyalanan verileri 1 satır aşağı taşımak içindir iTargetLastRow = wsTarget.Cells(wsTarget.Rows.Count, "B").End(xlUp).Offset(1).Row 'Kaynaktaki verileri kopyalayın ve hedefe yapıştırın wsSource.Range("B5:F9" & iSourceLastRow).Copy wsTarget.Range("B" & iTargetLastRow) End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak Bu kod. Aşağıdaki resme bakın.

Burada, sadece seçi̇lmi̇ş veri̇ler Veri Seti levha şimdi 'deki son hücrenin altına kopyalanmıştır. Son Hücre levha Excel'de.

Daha fazlasını okuyun: Excel'de Değerleri Kopyalama ve Yapıştırma Formülü (5 Örnek)

6. Önce Çalışma Sayfasını Temizleyip Sonra Başka Bir Çalışma Sayfasına Kopyalayıp Yapıştırmak için VBA Makrosu

Mevcut sayfanızda yanlış veriler varsa ve oradaki orijinal verileri çıkarmak istiyorsanız ne olur?

Aşağıdaki resme bakın. verileri temizleyin Temiz Aralık sayfasındaki verileri buraya kaydedin ve Veri Seti VBA ile sayfa Kod.

Adımlar:

• İlk olarak, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkinci olarak, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Sub ClearAndCopyPasteData() 'Değişkenleri ayarlayın Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim iSourceLastRow As Long Dim iTargetLastRow As Long 'Kaynak ve hedef sayfalar için değişkenleri ayarlayın Set wsSource = Worksheets("Dataset") Set wsTarget = Worksheets("Clear Range") 'B sütunundaki verilere göre kaynak sayfadaki son kullanılan satırı bulun iSourceLastRow = wsSource.Cells(wsSource.Rows.Count,"B").End(xlUp).Row 'B sütunundaki verilere göre hedef sayfadaki ilk boş satırı bulun 'Offset özelliği kopyalanan verileri 1 satır aşağı taşımak içindir iTargetLastRow = wsTarget.Cells(wsTarget.Rows.Count, "B").End(xlUp).Offset(1).Row 'Hedef aralıktaki verileri temizleyin wsTarget.Range("B5:F9" & iTargetLastRow).ClearContents 'Kaynaktaki verileri kopyalayın ve hedefe yapıştırınwsSource.Range("B5:F9" & iSourceLastRow).Copy wsTarget.Range("B5") End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak Bu kod parçası. Aşağıdaki resme bakın.

Önceki veriler Temiz Aralık sayfasındaki verilerin yerini artık Veri Seti levha.

Daha fazlasını okuyun: Kriterlere Göre Verileri Bir Çalışma Kitabından Diğerine Kopyalamak için Makro

7. Range.Copy Fonksiyonu ile Bir Çalışma Sayfasından Diğerine Veri Kopyalama ve Yapıştırma Makrosu

Şimdi, öğreneceğiz VBA nasıl yapılacağına dair bir çalışma sayfasından diğerine veri kopyalama ve yapıştırma ile Aralık.Kopyala Excel'deki işlev.

Adımlar:

• İlk olarak, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkinci olarak, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Sub CopyWithRangeCopyFunction() 'Değişkenleri ayarlayın Dim wsSource As Worksheet Dim wsTarget As Worksheet 'Kaynak ve hedef sayfalar için değişkenleri ayarlayın Set wsSource = Worksheets("Dataset") Set wsTarget = Worksheets("Copy Range") 'Kaynaktaki verileri kopyalayın ve hedefe yapıştırın Call wsSource.Range("B2:F9").Copy(wsTarget.Range("B2")) End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak bu kod parçasına ve aşağıdaki görüntüye bakın.

Verileri başarılı bir şekilde çoğalttık Veri Seti sayfasındaki Kopyalama Aralığı sayfası ile Aralık.Kopyala fonksiyon.

Daha fazlasını okuyun: Hücre Değerini Başka Bir Hücreye Kopyalamak için Excel Formülü

Benzer Okumalar

• Satırları Ölçütlere Göre Başka Bir Çalışma Sayfasına Kopyalamak için Excel VBA
• Excel'de Biçimlendirme Olmadan Yalnızca Değerleri Yapıştırmak için VBA Kullanın
• Excel'de Yalnızca Görünür Hücreler Nasıl Kopyalanır ve Yapıştırılır (3 Kolay Yol)
• Excel'de Kopyala ve Yapıştır Çalışmıyor (9 Neden & Çözümler)
• Excel'de Makro Kullanarak Birden Fazla Satır Kopyalama (4 Örnek)

8. USEDRANGE Özelliği ile Bir Çalışma Sayfasından Diğerine Veri Çoğaltmak için Makro Kodu Uygulama

Bu sefer, şu konuları öğreneceğiz VBA nasıl yapılacağına dair verileri bir çalışma sayfasından diğerine kopyalama ve yapıştırma ile KullanılmışAralık Excel'de öznitelik.

Adımlar:

• İlk olarak, açın Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkincisi, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Sub CopyWithUsedRange() 'Değişkenleri ayarlayın Dim wsSource As Worksheet Dim wsTarget As Worksheet 'Kaynak ve hedef sayfalar için değişkenleri ayarlayın Set wsSource = Worksheets("Dataset") Set wsTarget = Worksheets("UsedRange") 'Kaynaktaki verileri kopyalayın ve hedefe yapıştırın Call wsSource.UsedRange.Copy(wsTarget.Cells(2, 2)) End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak bu kod parçası.

Yukarıdaki resimde görebileceğimiz gibi, verileri başarılı bir şekilde kopyalayıp yapıştırdık Veri Seti sayfasındaki KullanılmışAralık sayfası ile USEDRANGE mülk.

Daha fazlasını okuyun: Excel'de Birden Çok Hücrede Aynı Değer Nasıl Kopyalanır (4 Yöntem)

9. Excel'de Seçili Verileri Bir Sayfadan Diğerine Kopyalamak ve Yapıştırmak için VBA Makrosu

Yapabilirsin bir çalışma sayfasından diğerine yalnızca seçilen bazı verileri kopyalama ve yapıştırma ile VBA Bunu yapmak için gerekli adımlar aşağıda gösterilmiştir.

Adımlar:

• İlk olarak, açın Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkincisi, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Sub CopyPasteSelectedData() 'Değişkenleri ayarlayın Dim wsSource As Worksheet Dim wsTarget As Worksheet 'Kaynak ve hedef sayfalar için değişkenleri ayarlayın Set wsSource = Worksheets("Dataset") Set wsTarget = Worksheets("Paste Selected") 'Kaynaktan verileri kopyalayın wsSource.Range("B4:F7").Copy 'Verileri hedefe yapıştırın Çağır wsTarget.Range("B2").PasteSpecial(Paste:=xlPasteValues) End Sub 

Kodunuz artık çalışmaya hazır.

Bu kod yalnızca B4'ten F7'ye kadar olan aralığı kopyalayın bir şey yok. Veri Seti levha ve B2'dekileri yapıştırın Menzil içinde PasteSelected adlandırılmış sayfa .

• Sıradaki, Koşmak Bu kod.

Son olarak, yalnızca seçilen veriler Veri Seti sayfası başarılı bir şekilde kopyalanır ve Seçili Yapıştır Excel çalışma kitabındaki sayfa.

Daha fazlasını okuyun: Excel'de VBA PasteSpecial Nasıl Uygulanır ve Kaynak Biçimlendirmesi Nasıl Korunur

10. İlk Boş Satırda Verileri Bir Çalışma Sayfasından Diğerine Çoğaltmak için Makro Kodu

Burada, aşağıdakileri nasıl yapacağımızı göreceğiz veri̇ kopyalama bir şey yok. Veri Seti levha ve macun içinde olanlar başka bir çalışma sayfasındaki ilk boş hücre ile Excel'de VBA .

Adımlar:

• İlk olarak, açın Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkincisi, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Sub FirstBlankCell() Range("B2:F9", Range("B" & Rows.Count).End(xlUp)).Copy Sheet13.Range("A65536").End(xlUp) End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak bu kod yığını.

Yukarıdaki resme bakın. Sayfa13 Sonuç olarak, çalıştırılan kod kopyalanan verileri Veri Seti sayfasındaki ilk hücre içinde Sayfa13 Excel'de sayfa.

Daha fazlasını okuyun: Excel VBA ile Değerleri Sonraki Boş Satıra Kopyala ve Yapıştır (3 Örnek)

11. Otomatik Filtrelenmiş Verileri Bir Excel Sayfasından Diğerine Kopyalayıp Yapıştırmak için VBA'yı Gömün

Biz yapabiliriz kaynak veri kümesini filtreleme ve yalnızca filtrelenmiş verileri kopyalayıp başka bir çalışma sayfasına yapıştırma Bunu Excel'de adım adım nasıl yapacağınızı öğrenmek için bu makaleyi izleyin VBA .

Adımlar:

• İlk olarak, açın Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkincisi, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Option Explicit Sub AutoFilter() Range("B4:B101").AutoFilter 1, "Dean" Range("B4:F9").Copy Sheet17.Range("B" & Rows.Count).End(xlUp)(2) Range("B4").AutoFilter End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak Bu kodda sadece " Dekan " içinde, filtrelenecek ve başka bir sayfaya kopyalanacaktır.

Yukarıdaki resme dikkat edin. Yalnızca filtrelenmiş veriler " Dekan "dan B Sütunu şimdi kopyalanır ve Sayfa15 levha.

Daha fazlasını okuyun: VBA Kullanarak Excel'de Kopyalama ve Yapıştırma (7 Yöntem)

Benzer Okumalar

• Excel VBA ile Görünür Satırları Otomatik Filtreleme ve Kopyalama
• Excel'de Benzersiz Değerleri Başka Bir Çalışma Sayfasına Kopyalama (5 Yöntem)
• Excel'de Birleştirilmiş ve Filtrelenmiş Hücreler Nasıl Kopyalanır (4 Yöntem)
• Çalışma Zamanı Hatası 1004: Range Sınıfının PasteSpecial Yöntemi Başarısız Oldu
• Excel'de Bağlantı Yapıştırma ve Transpoze Etme (8 Hızlı Yol)

12. Üstteki Aralıktan Kopyalanan Formülü Korurken Aralığın Altına Bir Satır Yapıştırın

Ne zaman istersen bir değeri kopyalayın ve formülü içinde tutun başka bir satıra yapıştırırken, ardından VBA kodu ile görevi kolayca yürütebilirsiniz.

Adımlar:

• İlk olarak, açın Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkincisi, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Sub PasteRowWithFormulaFromAbove() Rows(Range("B" & Rows.Count).End(xlUp).Row).Copy Rows(Range("B" & Rows.Count).End(xlUp).Row + 1).Insert xlDown End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak bu kodu girin ve aşağıdaki görüntüye bakın.

Bu son satır olduğu gibi kopyalanır yanındaki satırda.

Daha fazlasını okuyun: Excel'de Veriler Bir Hücreden Diğerine Otomatik Olarak Nasıl Kopyalanır

13. Bir Sayfadaki Verileri Açık Ancak Kaydedilmemiş Başka Bir Çalışma Kitabındaki Başka Bir Sayfaya Çoğaltmak için VBA

Örnek çalışma kitabımızın adına dikkat edin, Kaynak Çalışma Kitabı verileri kopyalayacağız. Veri Seti sayfasını bu çalışma kitabından alın ve başka bir çalışma kitabındaki başka bir çalışma sayfasına yapıştırın. Varış Noktası Çalışma Kitabı yani açık ama henüz kaydedilmemiş .

Adımlar:

• İlk olarak, açın Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkincisi, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Sub CopyOneFromAnotherNotSaved() Workbooks("Source Workbook").Worksheets("Dataset").Range("B2:F9").Copy Workbooks("Destination Workbook").Worksheets("Sheet1").Range("B2") End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak Bu kod.

Veriler Veri Seti sayfasındaki Kaynak Çalışma Kitabı şimdi kopyalandı Sayfa1 sayfasındaki Varış Noktası Çalışma Kitabı .

Daha fazlasını okuyun: Excel VBA: Hücre Değerini Kopyalama ve Başka Bir Hücreye Yapıştırma

14. Bir Sayfadaki Verileri Açık ve Kayıtlı Başka Bir Çalışma Kitabındaki Başka Bir Sayfaya Çoğaltma Makrosu

Bu sefer, biz verileri kopyalayın bir şey yok. Veri Seti sayfasından Kaynak Çalışma Kitabı ve macun içine Sayfa2 çalışma sayfasındaki Varış Noktası Çalışma Kitabı Ama şimdi çalışma kitabı açık ve kaydedilmiş .

Adımlar:

• İlk olarak, açın Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkincisi, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Sub CopyOneFromAnotherSaved() Workbooks("Source Workbook.xlsm").Worksheets("Dataset").Range("B2:F9").Copy _ Workbooks("Destination Workbook.xlsx").Worksheets("Sheet2").Range("B2") End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak Bu kod.

Veriler Veri Seti sayfasındaki Kaynak Çalışma Kitabı şimdi kopyalandı Sayfa2 sayfasındaki Varış Noktası Çalışma Kitabı . Ve isme bak, bu çalışma kitabı kaydedildi Bu sefer.

Daha fazlasını okuyun: Excel'de Biçimi Değiştirmeden Kopyalama ve Yapıştırma

15. Bir Çalışma Sayfasındaki Verileri Başka Bir Kapalı Çalışma Kitabındaki Başka Bir Çalışma Sayfasına Kopyalamak ve Yapıştırmak için VBA Uygulayın

Önceki iki bölümde, açık olan başka bir çalışma kitabındaki verileri bir çalışma sayfasından diğerine nasıl kopyalayıp yapıştıracağımızı öğrendik. Bu bölümde, aşağıdakileri nasıl yapacağımıza ilişkin kodu öğreneceğiz çalışma kitabı kapatıldığında verileri kopyalama ve yapıştırma .

Adımlar:

• İlk olarak, açın Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• İkincisi, aşağıdaki kodu kopyalayın ve macun kod penceresine yerleştirin.

 Sub CopyOneFromAnotherClosed() 'Sisteminizde kayıtlı çalışma kitabını açmak için 'aşağıdaki yolu dosyanızın sisteminizdeki konumuna göre değiştirin Workbooks.Open "D:\ExcelWIKI\Excel Folder\Destination Workbook.xlsx" 'Kaynak Çalışma Kitabı adlı çalışma kitabındaki verileri kopyalar ve 'Hedef Çalışma Kitabı adlı hedef çalışma kitabına yapıştırır Workbooks("SourceWorkbook").Worksheets("Dataset").Range("B2:F9").Copy Workbooks("Destination Workbook").Worksheets("Sheet3").Range("B2") 'Kaydettikten sonra hedef çalışma kitabını kapat Workbooks("Destination Workbook").Close SaveChanges:=True End Sub 

Kodunuz artık çalışmaya hazır.

• Sıradaki, Koşmak Bu kod.

Bu kez çalışma kitabı kapatılmış olsa da, kod yürütüldükten sonra Veri Seti sayfasındaki Kaynak Çalışma Kitabı şimdi kopyalandı Sayfa3 sayfasındaki Varış Noktası Çalışma Kitabı .

Daha fazlasını okuyun: Açmadan Başka Bir Çalışma Kitabından Veri Kopyalamak için Excel VBA

Hatırlanması Gerekenler

• 1'den 14'e kadar olan yöntemler çalışma kitaplarınızın açılmasını gerektirir Bu yöntemlerde gösterilen makro kodlarını çalıştırırken, hem kaynak hem de hedef çalışma kitaplarını açık tutmayı unutmayın.
• Senin çalışma kitapları kaydedildikten sonra dosya adını dosya türüyle birlikte yazın kodun içinde. çalışma kitapları kaydedilmiyorsa, yalnızca dosya adını yazın dosyanın türü olmadan. Örneğin, eğer çalışma kitabı kaydedilir sonra " Varış yeri. xlsx ", ancak eğer çalışma kitabı kaydedilmedi sonra " Hedef " kodunun içinde.

Sonuç

Bu makale size aşağıdakileri nasıl yapacağınızı gösterdi verileri bir çalışma sayfasından diğerine kopyalama ve yapıştırma ile Excel'de VBA Umarım bu makale sizin için çok faydalı olmuştur. Konuyla ilgili herhangi bir sorunuz olursa sormaktan çekinmeyin.