Kopyala ve Biçimleri Yapıştırma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub FormatPainter()
Range("A1").Copy
Range("B1").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub
Açıklama
Buradaki işlev tamamen biçimin kopyalanmasıdır. Örneğin arka planı sarı yazılmış 1 rakamını kopyalayıp, biçimi yapıştır derseniz; 1 değeri yapışmayacaktır. Sadece yapışan arka plan rengi olan sarı renk olacaktır.Faydalanılması temennisiyle