VBA Help - trying to transfer borders from one column into another

[lkent03]

Hello - I'm creating a workbook for our accounting team that starts with a QuickBooks report (sheet1), which feeds into a distribution report (sheet2) which feeds into a third report (sheet3) that will be used to import raw data back into QuickBooks.

I'm having trouble syncing sheets 1 & 2 - I'm stuck on the borders. These reports are formatted like financial statements and have columns with line item amounts (no border), account totals (bold single line border on top and bottom) and grand total (bold single line border on top and double line border on the bottom).

Is there a way to automatically transfer the borders found in columns N & P in sheet1 to columns N & P in sheet2? I only want the borders to transfer because a lot of the cells in sheet2 contain formulas.

Thank you!

 

[rpaulson]

Maybe?
Copy - Paste Special - Formats

 

[lkent03]

That works but I was hoping to automate it. But at least it's a quicker solution than formatting cell by cell. Thanks!

 

[rpaulson]

try

Sub do_it()
Worksheets("Sheet1").Range("C11").Copy
Worksheets("Sheet2").Range("A5").PasteSpecial Paste:=xlPasteFormats
End Sub

hth,

Ross

 

[lkent03]

Thank you!!!