Page Layout

[asjmoron]

Hi guys,

Someone (who is defo not me) has managed to resize every column on every single sheet in the workbook i took an age to build.

Is there a way I can copy a master layout to the all of the sheets without effecting the data that is already on each sheet?

massively great full for any help!

 

[asjmoron]

Panic over, I managed to vba it after a bit of trial and error

 

[asjmoron]

If anyone out there is interested....

1. I wrote a simple macro to copy the correct layout's 1:1
2. The macro then moved to the next sheet and pasted the row with widths being maintained
3. Then I just looped that process over the whole workbook

Worked a charm


Sub fixit()
'
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Worksheets(ActiveSheet.Index + 1).Select


Rows("1:1").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.Goto Reference:="R1C1"


End Sub

________________________________________________________________________

Sub LoopMacro()

Dim x As Integer

For x = 1 To 200
Call fixit
Next x

End Sub

 

[SpillerBD]

I would copy the Entire Master Sheet.
Then Select ALL the other sheets and do the paste Special.ColumnWidths.

Not exactly the same case as you, but it hasn't been much to slow me down using my method. Just a monthly need that updates 60 to 70 sheets and haven't seen much need to macro the method.

 

[asjmoron]

I did try this but it overwrote the data that was already in the cells....unless I did it wrong?

 

[SpillerBD]

I did try this but it overwrote the data that was already in the cells....unless I did it wrong?

You must have included one of the value or formula options...