Microsoft Excel'de herhangi bir veriyi kopyalayıp yapıştırmamız gerektiğinde, Excel'de farklı kısayol ve şerit araçlarına sahibiz. Excel VBA Makro da çalışma kitabı seçeneklerinden ziyade böyle bir olanağa sahiptir. VBA Özel Yapıştır Excel'deki değerler ve biçimler.

Alıştırma Çalışma Kitabını İndirin

Bu makaleyi okurken egzersiz yapmak için bu alıştırma çalışma kitabını indirin.

PasteSpecial.xlsm Kullanarak Değerler ve Biçimler

9 Excel VBA'da Özel Yapıştır ile Değerleri ve Biçimleri Kopyalama Örnekleri

Bu makalede şunları tartışacağız 9 yöntem ile VBA Makroları Özel Yapıştır değerleri ve Excel'de biçimlendirme.

Bu amaçla aşağıdaki veri setini ele alacağız.

1. VBA'da InputBox Uygulayın Değerleri ve Biçimleri Kopyalamak için Özel Yapıştırın

Bu örnekte InputBox seçeneğini aşağıdakiler için kullanacağız Özel Yapıştır .

Adım 1:

• Şuraya git Geliştirici sekmesi.
• Tıklayınız Kayıt Makrosu .
• Set Excel_Paste_Special_1 olarak Makro adı .
• Ardından tuşuna basın TAMAM. .

Adım 2:

• Şimdi, tıklayın Makrolar Komuta.
• Seçiniz Makro ve ardından Adım At .

Adım 3:

• Aşağıdaki kodu kopyalayıp komut modülüne yapıştırın.

 Sub Excel_Paste_Special_1() Dim Copy_Cell As Range, Paste_Cell As Range xTitleId = "Salary_Sheet" Set Copy_Cell = Application.Selection Set Copy_Cell = Application.InputBox("Select Range to Copy :", xTitleId, Copy_Cell.Address, Type:=8) Set Paste_Cell = Application.InputBox("Paste to any blank cell:", xTitleId, Type:=8) Copy_Cell.Copy Paste_Cell.Parent.Activate Paste_Cell.PasteSpecialxlPasteValuesAndNumberFormats Paste_Cell.PasteSpecial xlPasteFormats Application.CutCopyMode = False End Sub 

Adım 4:

• Basın F5 kodu çalıştırmak için.
• Yeni bir iletişim kutusu görüntülenecektir. Bu kutuda kaynak aralığını seçin.
• Ardından tuşuna basın TAMAM. .

Adım 5:

• Başka bir iletişim kutusu görünecektir. Kopyalanan hücrelerin yapıştırılacağı boş bir aralık seçin.

Şimdi, veri kümesine bakın.

Tüm veriler, değerler ve biçimler kullanılarak kopyalanır. VBA Özel Yapıştır .

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

2. VBA Özel Yapıştır'da xlPasteAllUsingSourceTheme Kullanarak Değerler ve Biçimlerle Hücre Aralığı Ekleme

Hücre aralığını doğrudan VBA bu bölümdeki kod.

Adım 1:

• Basın Alt+F11 komut modülüne girmek için.
• Aşağıdaki kodu komut modülüne yerleştirin.

 Sub Excel_Paste_Special_2() Range("B4:C9").Copy Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub 

Adım 2:

• Şimdi, basın F5 kodu çalıştırmak için.

Bu xlPasteAllUsingSourceTheme komutu kaynak verinin tam kopyasını kopyalar.

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

3. Özel Yapıştır Kullanarak Değerler ve Biçimlerle Aralık Eklemek için VBA Değişkenini Kullanın

Değişkenlerin kullanımını şu şekilde göstereceğiz VBA Özel Yapıştır Kod burada.

Adım 1:

• İlk olarak, aşağıdaki tuşlara basarak komut modülüne girin Alt+F11 .
• Aşağıdaki kodu komut modülüne yazın.

 Sub Excel_Paste_Special_3() Dim source_rng As Range, paste_rng As Range Set source_rng = Range("B4:C9") Set paste_rng = Range("E4") source_rng.Copy paste_rng.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub 

Adım 2:

• Basın F5 ve kodu çalıştırın.

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

4. xlPasteValues ve xlPasteFormats Kullanarak Değerleri ve Biçimleri Diğer Sayfaya Kopyalayın ve Biçimleri Değiştirmeyin

Yukarıdaki yöntemler aynı sayfadaki verileri kopyalamak ve yapıştırmak için kullanıldı. VBA Özel Yapıştır farklı sayfalar için.

Adım 1:

• Tıklayarak komut modülüne girin Alt+F11 ve aşağıdaki kodu üzerine kopyalayın.

 Private Sub Excel_Paste_Special_4() Application.ScreenUpdating = False Dim source_rng As Worksheet Dim paste_rng As Worksheet Set source_rng = Worksheets("Data_Set") Set paste_rng = Worksheets("Different_Sheet") Set Destination = paste_rng.Range("B2") source_rng.Range("B2:C9").Copy Destination.PasteSpecial Paste:=xlPasteValues Destination.PasteSpecial Paste:=xlPasteFormatsApplication.CutCopyMode = False Application.ScreenUpdating = True End Sub 

Adım 2:

• Basın F5 kodu çalıştırmak için.

Verilerin şu şekilde olduğunu görebiliriz Veri_Seti 'ye kopyalanır. Different_Sheet .

Daha fazlasını okuyun: Excel'de Formüller ve Biçimler için VBA PasteSpecial Nasıl Kullanılır (3 Yol)

Benzer Okumalar

• Excel'de Birden Çok Hücre Başka Bir Sayfaya Nasıl Kopyalanır (9 Yöntem)
• Excel'de Yapıştır ve Özel Yapıştır Arasındaki Fark
• Açmadan Başka Bir Çalışma Kitabından Veri Kopyalamak için Excel VBA
• Excel'de Kopyalayıp Yapıştırma ve Hücre Boyutunu Koruma (7 Örnek)
• Excel VBA ile Değerleri Sonraki Boş Satıra Kopyala ve Yapıştır (3 Örnek)

5. Yalnızca Biçimleri Yapıştırmak için xlPasteFormats kullanın

Önceki yöntemlerde verinin tamamını kopyalayıp hiçbir değişiklik yapmadan yapıştırmıştık. Ancak bu bölümde verinin sadece formatını kopyalayacağız.

Adım 1:

• tuşuna basarak komut modülüne gidin. Alt+F11 .
• Aşağıdaki kodu kopyalayıp komut modülüne yapıştırın.

 Sub Excel_Paste_Special_5() Range("B2:C9").Copy Range("E2").PasteSpecial xlPasteFormats End Sub 

Adım 2:

• Şimdi, tuşuna basın F5 düğmesine basın ve kodu çalıştırın.

Veri kümesine bakın. Yalnızca biçimler kopyalanmıştır, burada hiçbir değer mevcut değildir.

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

6. Yalnızca Değerleri Yapıştırmak için xlPasteValues kullanın

Değerleri yalnızca VBA Özel Yapıştır .

Adım 1:

• Basın Alt+F11 komut modülüne girmek için.
• Komut modülüne aşağıdaki kodu yazın.

 Sub Excel_Paste_Special_6() Range("B4:C9").Copy Range("E4").PasteSpecial xlPasteValues End Sub 

Adım 2:

• Tıklayınız F5 ve kodu çalıştırın.

Veri kümesine dikkat edin. Burada yalnızca değerler kopyalanır. Bu yöntemde hiçbir biçim kopyalanmaz.

Daha fazlasını okuyun: Excel'de Biçimlendirme Olmadan Yalnızca Değerleri Yapıştırmak için VBA Nasıl Kullanılır

7. Tek Bir Hücrenin Tüm İçeriğini Kopyalayın ve Yapıştırın

Önceki bölümlerde bir veri aralığını kopyalamıştık. Burada ise sadece tek bir hücreyi kopyalayacağız.

Adım 1:

• Şimdi, basın Alt+F11 ve komut modülüne girin.
• Modüle aşağıdaki kodu yazın.

 Sub Excel_Paste_Special_7() Range("B4").Copy Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub 

Adım 2:

• Şimdi, tuşuna basın F5 düğmesine basarak kodu çalıştırın.

Burada bir aralığın değil, tek bir hücrenin kopyalandığını görebiliriz.

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

8. VBA ile Belirli Bir Sütunun Tüm Özelliklerini Kopyalayıp Yapıştırın

Tek bir hücre gibi, veri kümesindeki tek bir sütunu da kopyalayabiliriz.

Adım 1:

• Basitçe basın Alt+F11 komut modülüne girmek için.
• Aşağıdaki kodu modül içine yazınız.

 Sub Excel_Paste_Special_8() Dim source_rng As Range, paste_rng As Range Set source_rng = Columns("C") Set paste_rng = Columns("E") source_rng.Copy paste_rng.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub 

Adım 2:

• tuşuna basarak kodu çalıştırın F5 .

Burada şunu görebiliriz Sütun B 'ye kopyalanır. Sütun E .

Daha fazlasını okuyun: [Düzeltildi]: Excel'de Sağ Tıkla Kopyala ve Yapıştır Çalışmıyor (11 Çözüm)

9. Excel VBA ile Bir Satırın Tüm Özelliklerini Kopyalayın ve Yapıştırın

Benzer şekilde, tek bir satırı kopyalamak için Özel Yapıştır .

Adım 1:

• Tıklayınız Alt+F11 komut modülüne girmek için.
• Aşağıdaki kodu komut modülüne kopyalayın.

 Sub Excel_Paste_Special_9() Dim source_rng As Range, paste_rng As Range Set source_rng = Rows("4") Set paste_rng = Rows("11") source_rng.Copy paste_rng.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub 

Adım 2:

• tuşuna basarak kodu çalıştırın F5 .

İşte, Sıra 4 'ye kopyalanır. Sıra 11 .

Daha fazlasını okuyun: Excel'de Makro Kullanarak Birden Fazla Satır Kopyalama (4 Örnek)

Sonuç

Bu makalede şunları açıkladık 9 Excel'de VBA Özel değerleri ve biçimleri yapıştırma yöntemleri. Umarım bu ihtiyaçlarınızı karşılar. Lütfen web sitemize bir göz atın Exceldemy.com ve önerilerinizi yorum kutusuna yazın.