ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Copyingworksheets (https://www.excelbanter.com/excel-programming/409241-copyingworksheets.html)

Andyg

Copyingworksheets
 
I create daily reports with data linked from day to day. Many cells are
protectyed formulas.

I'd like to create a macro to copy the current report, creating the next
day's base report.

anon

Copyingworksheets
 
Simply record a macro while you copy the sheet. Or use code similar to
below. This will copy the sheet, i haven't checked about linked data/
formulas but presume your new sheet would be linked to the sheet 2
days ago.

Sub copysheet()
Dim thissht
Dim newshtname
thissht = InputBox("What is the name of the existing sheet you wish to
copy?")
ActiveWorkbook.Sheets(thissht).Copy Befo=Sheets(1)
newshtname = InputBox("What would you like to call the new
sheet?")
ActiveWorkbook.ActiveSheet.Name = newshtname
End Sub


All times are GMT +1. The time now is 07:55 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com