Reset spreadsheet to its original state upon opening (not revert to blank cells)

Madraykin

Board Regular
Joined
Jan 4, 2012
Messages
56
Hi all

Does anyone know if there is a way to have a button to 'reset' a spreadsheet to the values it has upon opening?

For background the spreadsheet will have a number of graphs present that are pre-populated. Sliders etc will be used to change values and visualise how these will change the graphs, but I want to be able to revert back to that original pre-populated state

There will be a lot of background data and formulae within the workbook that I want to preserve

Any ideas?

All help appreciated, as always

Mads
 

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.
Yes
- open the workbook and immediately save a copy of the file with name it "Playing 181122" (unique to 22 Nov 2018)
- now you can do whatever you want to Playing 181122
- next day open the original file and immediately save it with unique name for the day "Playing 181123"

etc

Could be automated using VBA
 
Last edited:
Upvote 0
Thanks Yongle

Would this be functional if someone wanted to 'reset' the spreadsheet to original values halfway through using it for example?

ie. this spreadsheet will be being used during a presentation to visualise different options, and I want to be able to reset it to the opening values after each 'option' is visualised so that the next option can be inputted, for example?
 
Upvote 0
If there is only ONE OriginalSheet then create a copy of the original sheet and work with that, then create another copy and work with that etc

Try this
Right-click on sheet tab \ click Move or Copy \ check box Create A Copy \ OK
OriginalSheet(2) is created
Amend various values in OriginalSheet(2)
Test to see that you can do all that you want

If it works for you then automate with VBA like this
1. Add the code
Right-click on sheet tab \ View Code
Paste code into that window
Code:
Sub CreateACopy()
    Me.Copy Before:=Sheets(1)
    Sheets(1).Activate
End Sub
2. {ATL}{F11} to return to Excel

3. Add a shortcut
List all macros with {ALT}{F8} \ select macro CreateACopy \ click Options \ enter Q in shortcut box \ OK

4. Macro now runs with {CTRL} Q

5. Workbook must now be saved as type MacroEnabled
 
Last edited:
Upvote 0
Fabulous, that looks like it should do the trick, I'll give it a go when I'm at that stage (late tomorrow/early next week) and will report back!

Thanks for your help as always!
 
Upvote 0

Forum statistics

Threads
1,223,164
Messages
6,170,444
Members
452,326
Latest member
johnshaji

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top