Formatting Problems
Formatting Problems
(OP)
Maybe someone can help....
I have created a simple macro that copies a worksheet (in the same workbook)and inserts a new worksheet. However, the format is totally different. The copied worksheet is landscape, but when it copies and inserts, it changes the column(s) dims as well as portrait. Also paste what ever you filled out on the original worksheet. So I just need a few tips on how to eliminate the data after it is copied and how to fix the format problem I am having.
Macro for copying the worksheet:
Private Sub CommandButton1_Click()
' IF YOU REQUIRE ADDITIONAL PAGE OF "MMD"
Sheets.Add
Sheets("MMD").Select
Cells.Select
Selection.Copy
Sheets("Sheet30").Select
ActiveSheet.Paste
End Sub
Thanks a bunch
I have created a simple macro that copies a worksheet (in the same workbook)and inserts a new worksheet. However, the format is totally different. The copied worksheet is landscape, but when it copies and inserts, it changes the column(s) dims as well as portrait. Also paste what ever you filled out on the original worksheet. So I just need a few tips on how to eliminate the data after it is copied and how to fix the format problem I am having.
Macro for copying the worksheet:
Private Sub CommandButton1_Click()
' IF YOU REQUIRE ADDITIONAL PAGE OF "MMD"
Sheets.Add
Sheets("MMD").Select
Cells.Select
Selection.Copy
Sheets("Sheet30").Select
ActiveSheet.Paste
End Sub
Thanks a bunch





RE: Formatting Problems
RE: Formatting Problems
CODE
' IF YOU REQUIRE ADDITIONAL PAGE OF "MMD"
Sheets.Add
Sheets("MMD").Select
Cells.Select
Selection.Copy
Sheets("Sheet30").Select
ActiveSheet.Paste xlPasteAll
Application.CutCopyMode = False
End Sub
RE: Formatting Problems
However, I did create a keyboard shortcut formatting and it seemed to work...
Again, many thanks
RE: Formatting Problems
Cheers,
Joerd
Please see FAQ731-376: Eng-Tips.com Forum Policies for tips on how to make the best use of Eng-Tips.