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,
--
Mike Mast
Special Education Preschool Teacher

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.
--
Gary''s Student - gsnu200906


"Preschool Mike" wrote:

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,
--
Mike Mast
Special Education Preschool Teacher

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

He saves multiple cell ranges.

Preschool Mike wrote:

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,
--
Mike Mast
Special Education Preschool Teacher

--

Dave Peterson

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?
--
Mike Mast
Special Education Preschool Teacher


"Gary''s Student" wrote:

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.
--
Gary''s Student - gsnu200906


"Preschool Mike" wrote:

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,
--
Mike Mast
Special Education Preschool Teacher

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


"Dave Peterson" wrote:

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

He saves multiple cell ranges.

Preschool Mike wrote:

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,
--
Mike Mast
Special Education Preschool Teacher

--

Dave Peterson

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.
--
Gary''s Student - gsnu200906


"Preschool Mike" wrote:

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?
--
Mike Mast
Special Education Preschool Teacher


"Gary''s Student" wrote:

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.
--
Gary''s Student - gsnu200906


"Preschool Mike" wrote:

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,
--
Mike Mast
Special Education Preschool Teacher

Try some things.

Post back with your specific questions.

Preschool Mike wrote:

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

"Dave Peterson" wrote:

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

He saves multiple cell ranges.

Preschool Mike wrote:

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,
--
Mike Mast
Special Education Preschool Teacher

--

Dave Peterson


--

Dave Peterson