Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy a sheet and all formats to a new sheet
I would like to make a macro to copy a sheet to a new sheet. I would like to
include all formats, print areas page setup etc... including a macro button. I recorded the following. This works except for the button. ANy help?? Sub Macro5() ' ' Sheets("Current Loan Analysis").Select ActiveSheet.Unprotect Sheets("Current Loan Analysis").Select ActiveSheet.Buttons.Add(1082.25, 34.5, 125.25, 80.25).Select Sheets("Current Loan Analysis").Copy After:=Sheets(2) Sheets("Current Loan Analysis (2)").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Sheets("Current Loan Analysis").Select ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False Range("J1").Select End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy a sheet and all formats to a new sheet
Thanks
"Don Guillett" wrote: Something wrong with this?? Sub copysht() Sheets("Current Loan Analysis").Copy After:=Sheets(Sheets.Count) End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Bill" wrote in message ... I would like to make a macro to copy a sheet to a new sheet. I would like to include all formats, print areas page setup etc... including a macro button. I recorded the following. This works except for the button. ANy help?? Sub Macro5() ' ' Sheets("Current Loan Analysis").Select ActiveSheet.Unprotect Sheets("Current Loan Analysis").Select ActiveSheet.Buttons.Add(1082.25, 34.5, 125.25, 80.25).Select Sheets("Current Loan Analysis").Copy After:=Sheets(2) Sheets("Current Loan Analysis (2)").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Sheets("Current Loan Analysis").Select ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False Range("J1").Select End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy a sheet and all formats to a new sheet
Maybe Sub Macro1()
Sheets("Sheet1").Select Sheets("Sheet1").Copy End Sub Also, right-click the button format Control Properties Move and Size with Cells. HTH, Ryan--- -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. "Don Guillett" wrote: Something wrong with this?? Sub copysht() Sheets("Current Loan Analysis").Copy After:=Sheets(Sheets.Count) End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Bill" wrote in message ... I would like to make a macro to copy a sheet to a new sheet. I would like to include all formats, print areas page setup etc... including a macro button. I recorded the following. This works except for the button. ANy help?? Sub Macro5() ' ' Sheets("Current Loan Analysis").Select ActiveSheet.Unprotect Sheets("Current Loan Analysis").Select ActiveSheet.Buttons.Add(1082.25, 34.5, 125.25, 80.25).Select Sheets("Current Loan Analysis").Copy After:=Sheets(2) Sheets("Current Loan Analysis (2)").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Sheets("Current Loan Analysis").Select ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False Range("J1").Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto copy cell data from source sheet to another wrkbook sheet | Excel Programming | |||
Copy/Paste Values & Formats from each Sheet & Book in Folder A to B. | Excel Programming | |||
Help: auto-copy entire rows from 1 sheet (based on cell criteria) to another sheet. | Excel Programming | |||
copy a sheet with all formats - column widths, etc? | Excel Programming | |||
relative sheet references ala sheet(-1)!B11 so I can copy a sheet. | Excel Discussion (Misc queries) |