VBA code to undo previous VBA action

[Preschool Mike]

I was wondering if code can be written to undo a previous vba action.
Specifically I have a range of cell that I clear with some vba code. Was
wondering if code can be written recall what was previsiouly cleared? I
found that I can do it with just one cell, but I'm working with a range of
cells and can't seem to get it to work.

Here's the code I use to clear my contents.

Sub ClearMasterAttendance()
Range("'Lunch and Attendance'!AD7:BH22").Select
Selection.ClearContents

End Sub

Now can anyone please help me with some code to undo this action.

Thanks,

 

[Gary''s Student]

Have ClearMasterAttendance first save the block of data in a working area and
then clear it. The Undo macro would just copy the saved area back.

 

[Dave Peterson]

Take a look at John Walkenbach's site:
http://spreadsheetpage.com/index.php/tip/undoing_a_vba_subroutine/

He saves multiple cell ranges.

 

[Preschool Mike]

Sorry, but what exactly do you mean by "working area"? Another cell range?
or declare it with a Dim statement? I tried several Dim statements Integer,
Long, Double, but none work. The only one I could get to work was Variant.
Is it ok to use Dim Undo As Variant? Do you forsee any problems with this
type of declaration?

 

[Preschool Mike]

Thanks for the suggestion, but this is all very new to me and I don't know
how to adjust the code on his site for my situation.
--
Mike Mast
Special Education Preschool Teacher

Take a look at John Walkenbach's site:
http://spreadsheetpage.com/index.php/tip/undoing_a_vba_subroutine/

He saves multiple cell ranges.

 

[Gary''s Student]

Here is some sample coding. We are using a spare area to store a copy.

Sub ClearMasterAttendance()
Dim sh As Worksheet
Dim DataBlock As Range
Dim UndoBlock As Range
Set sh = Sheets("Lunch and Attendance")
Set DataBlock = sh.Range("AD7:BH22")
Set UndoBlock = sh.Range("ET1:FX16")
DataBlock.Copy UndoBlock
DataBlock.ClearContents
End Sub

Sub undo()
Dim sh As Worksheet
Dim DataBlock As Range
Dim UndoBlock As Range
Set sh = Sheets("Lunch and Attendance")
Set DataBlock = sh.Range("AD7:BH22")
Set UndoBlock = sh.Range("ET1:FX16")
UndoBlock.Copy DataBlock
End Sub

If ET1:FX16 is not usable, pick another spare area.

 

[Dave Peterson]

Try some things.

Post back with your specific questions.

Thanks for the suggestion, but this is all very new to me and I don't know
how to adjust the code on his site for my situation.