Vba: değerlerin nasıl yapıştırılacağı ve biçimlendirmenin nasıl korunacağı

Bir hücre aralığını kopyalayıp değerleri ve kaynak biçimlendirmesini yeni bir konuma yapıştırmak için VBA’da aşağıdaki sözdizimini kullanabilirsiniz:

 Sub PasteWithFormatting()

Range(" A1:C11 ").Copy
Range(" A13 ").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Application.CutCopyMode = False

End Sub

Bu özel makro, A1:C11 aralığındaki hücreleri kopyalayacak ve hücre değerlerini, formatlarıyla birlikte A13 hücresinden başlayan aralığa yapıştıracaktır.

Not : Application.CutCopyMode = False satırı, makroyu çalıştırdıktan sonra kesme ve kopyalama modunun devre dışı bırakılması gerektiğini belirtir.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: Değerleri Yapıştırın ve VBA Kullanarak Formatlamaya Devam Edin

Diyelim ki Excel’de çeşitli basketbol oyuncuları hakkında bilgiler içeren aşağıdaki veri kümesine sahibiz:

Diyelim ki A1:C11 aralığındaki tüm değerleri kopyalayıp yeni bir konuma yapıştırıp formatı korumak istiyoruz.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 Sub PasteWithFormatting()

Range(" A1:C11 ").Copy
Range(" A13 ").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Application.CutCopyMode = False

End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Orijinal hücre değerlerinin, A13 hücresinden başlayarak hücre aralığına biçimlendirmeleriyle yapıştırıldığını unutmayın.

Not : VBA PasteSpecial yönteminin tam belgelerini burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Değerler yalnızca biçimlendirme olmadan nasıl yapıştırılır
VBA: Görünür satırlar başka bir sayfaya nasıl kopyalanır
VBA: satırları kriterlere göre başka bir sayfaya kopyalayın