Formatting

[CovMatt]

Hi All

I have a 2 tab spreadsheet

Tab 1 is the front facing figures sheet for sales team
Tab 2 is the formulas used to work comms at the end of the month

Normally I copy and paste no issue

But I have mad the row sizes different so when i copy and paste now it doesn't update the cell sizes into tab 1

How can I do this please?

 

[JustynaMK]

If I understood your request correctly, you would like to paste Row Height from tab 2 into tab 1.
In order to do that you need to select the whole row instead of a single cell. Then copy & paste it into tab 1 - this will keep the Row Height.

 

[CovMatt]

If I understood your request correctly, you would like to paste Row Height from tab 2 into tab 1.
In order to do that you need to select the whole row instead of a single cell. Then copy & paste it into tab 1 - this will keep the Row Height.

Thanks in theory you are correct but when I paste the row across due to different formats in the cells i.e. centering etc. it all goes jumbled

 

[JustynaMK]

Ah ok. Then I think the only solution will be to use VBA and loop through rows in Sheet1 and assign their heights to Sheet2, e.g.:

Sub PasteRowHeights()
    Dim lngRow As Long


    For lngRow = [COLOR=#ff0000]1 To 10[/COLOR]
        Sheet2.Rows(lngRow).RowHeight = Sheet1.Rows(lngRow).RowHeight
    Next lngRow
End Sub

Change the number of rows (currently set to top 10) and Sheet references/names if necessary.

 

[CovMatt]

Ah ok. Then I think the only solution will be to use VBA and loop through rows in Sheet1 and assign their heights to Sheet2, e.g.:

Sub PasteRowHeights()
    Dim lngRow As Long


    For lngRow = [COLOR=#ff0000]1 To 10[/COLOR]
        Sheet2.Rows(lngRow).RowHeight = Sheet1.Rows(lngRow).RowHeight
    Next lngRow
End Sub

Change the number of rows (currently set to top 10) and Sheet references/names if necessary.

Great thanks

 

[JustynaMK]

You're welcome!