Copy cells with text and pics to new cells while retaining all formatting and spacing?

**Trismos** · 10-13-2013, 07:32 AM

Hello

I have a report I've created where each page is a separate sheet. Different situations require I use / add the relevant page.
Each sheet is 40 cells in width by 47 deep - narrowed to fit on a single printable page. This is done to allow for columns and check boxes, etc..

The Top 3 cells and the entire width are taken up by the header. The 1st row is deeper than the rest and has the company logo in the middle with a trade logo on either side - three separate tif files. The next two cells have the report title in it.

Is there any way to copy this header with the tifs and keep the spacing when I paste to a new sheet so the header is the same?

Is there a way to do this to a new sheet so that row and column widths are also retained / copied?

Thx
Dave

**xladept** · 10-13-2013, 04:01 PM

Something like this:

Sub Trismos(): Dim ws As Worksheet, wo As Worksheet, r As Long
    Set ws = ActiveSheet: Set wo = Sheets("Object Sheet")
r = ws.UsedRange.Rows.count
ws.Cells.Copy wo.Range("A1")
wo.Range("A4:A" & r).EntireRow.ClearContents: End Sub

But you need to put your own object sheet name in the code (in red).

Copy cells with text and pics to new cells while retaining all formatting and spacing?

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Copy cells with text and pics to new cells while retaining all formatting and spacing?

Re: Copy cells with text and pics to new cells while retaining all formatting and spacing?

Thread Information

Users Browsing this Thread

Similar Threads

Combining Linked Cells While Retaining Formatting

Retaining Formatting in Filtered Cells

How to copy a row with transposing to a column retaining links to input cells?

[SOLVED] How to copy a row with transposing to a column retaining links to input cells?

[SOLVED] help me write this table retaining table spacing and formatting

Bookmarks

Bookmarks

Posting Permissions