copy width and height in addition to data in VBA

Question

Below code copies data(as well as formatting) from source range to target range.

Set RngTemplate = ActiveWorkbook.Worksheets("Template").Range("A1:AD1")
Set RngTarget = ActiveWorkbook.Worksheets("File1").Range("A1:AD1")   
RngTemplate.Copy RngTarget

But I also want the cell widths to be copied to target range, any idea how to implement it.

SierraOscar · Accepted Answer · 2016-05-04 11:49:24Z

1

Use the .PasteSpecial() method

Set RngTemplate = ActiveWorkbook.Worksheets("Template").Range("A1:AD1")
Set RngTarget = ActiveWorkbook.Worksheets("File1").Range("A1:AD1")   
RngTemplate.Copy
RngTarget.PasteSpecial
RngTarget.PasteSpeical xlPasteColumnWidths
Application.CutCopyMode = False

answered May 4, 2016 at 11:49

SierraOscar

17.7k6 gold badges44 silver badges71 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

copy width and height in addition to data in VBA

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related