Не слушайте предыдущего оратора, он перепутал с Ctrl+Х :)

Вот пример:  
<EM>http://spreadsheetpage.com/index.php/site/tip/undoing_a_vba_subroutine/</EM>

а все-таки, что именно непонятно в совете от The_Prist и ссылке от KL?

Добрый вечер. С праздником всех.  
Дим, ты часто пользуешься такими макросами? Риторический вопрос, можно не отвечать:-)    
Я помню, когда делал первые шаги в освоении Экса, тоже столкнулся с необходимостью отменять косяки неотлаженного макроса. Тогда же и осознал бесперспективность этой затеи. Если макрос отлажен и работает правильно, то никогда не возникнет необходимости в его отмене. Ну разве что пользователь совсем уж невменяемый. В процессе отладки же лучше "тренироваться на котах", т.е. либо создавать копию рабочего листа, либо, если это по каким-то причинам невозможно, исправлять код, копировать его и перезапускать без сохранения рабочий файл с последующей вставкой исправленного кода. Благо к-во таких "откатов" неограничено. При этом полезно держать в сторонке резервную копию.

И кстати бабке бекап за прошедший год ни разу не понадобился - текущие мелочи исправляю оперативно :)

KukLP  
"столкнулся с необходимостью отменять косяки неотлаженного макроса"  
 
С макросами которые у меня выполняют сложные задачи мне отменться не нужно, они все весьма нелохо работают, а вот этому маленькому макросу, который я потом повешу на конпку на панеле быстрого доступа всё же нужна отмена, так как это действие вставка+сложить  
и даже если чисто механически случайно поставишь при подобной вставке курсор не в ту ячейку, то уже действие безвозратно, да я понимаю что можно сразу нажать на вставка-вычесть и всё станет прежним, но всё же првыйчнее Undo.  
 
Следуя совету The_Prist  
я оставил то что он сказал, и вышло вот так  
 
'Custom data type for undoing  
   Type SaveRange  
       Val As Variant  
       Addr As String  
   End Type  
     
'   Stores info about current selection  
   Public OldWorkbook As Workbook  
   Public OldSheet As Worksheet  
   Public OldSelection() As SaveRange  
 
 
Sub PasteAdd()  
   If TypeName(Selection) <> "Range" Then Exit Sub  
   Application.ScreenUpdating = False  
     
'Специальная вставка-значения-сложить (тоесть действие которое нужно отменить)  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _  
:=False, Transpose:=False  
End Sub  
     
'   Specify the Undo Sub  
   Application.OnUndo "Undo the PasteAdd macro", "UndoAdd"  
End Sub  
 
 
Sub UndoAdd()  
'   Undoes the effect of the ZeroRange sub  
     
'   Tell user if a problem occurs  
   On Error GoTo Problem  
 
   Application.ScreenUpdating = False  
     
'   Make sure the correct workbook and sheet are active  
   OldWorkbook.Activate  
   OldSheet.Activate  
     
'   Restore the saved information  
   For i = 1 To UBound(OldSelection)  
       Range(OldSelection(i).Addr).Formula = OldSelection(i).Val  
   Next i  
   Exit Sub  
 
'   Error handler  
Problem:  
   MsgBox "Can't undo"  
End Sub  
 
но мой Sub PasteAdd() в этой ситуации неработает теперь вообще, подправьте пожалуйста, и не нужно язвить (этот форум ведь создан для взаимопомощи и общения, так давайте помогать друг другу, поскольку, то что для кого то кажеться простым, для другого вызывает трудности).

Всё равно не хочет работать.  
Сперва попробовал вставить тот код Sub PasteAdd() который Вы указали постом выше - не заработало.  
Потом увидел что в этом коде присутствуют строки которые Вы говорили что нужно удалить:  
If TypeName(Selection) <> "Range" Then Exit Sub  
Application.ScreenUpdating = False  
 
удалил - не заработало.  
 
Вобщем прикрепляю файл, надеюсь это прояснит всю ситуацию и всё таки найдется решение, в файле нужно сперва скопировать вручную дипазон F3:F5, потом выделить G3 и после этого жмём на Вставить и сложить значения - выскакивает ошибка.

{quote}{login=vikttur}{date=23.02.2012 06:26}{thema=}{post}Не слушайте предыдущего оратора, он перепутал с Ctrl+Х :){/post}{/quote} Ctrl+Х не удаляет данные.  
Это сочетание копирует их в буфер, и если им не воспользоваться, то данные возвращаются в исходную ячейку.

И чем тренировка на котах хуже?

То Serge 007 - это кода как. В винде как правило, или в режиме редактирования ячейки, данные вырезаются(удаляются) в буфер.

А приложите пожалуйста файл где идёт запоминание всего листа.  
Не думаю что в документах в раёне 1-2 мб будут тормоза.

Мне нужно сложить 2 диапозона с заменой исходных данных с возможностью потом откатится, этот откат нужен только для того что если ИСКЛЮЧИТЕЛЬНО случайно выберишь для вставки не ту ячейку, что происходит крайне редко. А то что вы предложили, это тоже хорошо, но не для этой ситуации.

по-моему вы в любом диапазоне любого файле операцию СПЕЦВСТАВКА-ВСТАВИТЬ ЗНАЧЕНИЯ-СЛОЖИТЬ хотите использовать как готовую команду (и что главное с возможностью отмены)  
 
если это так и если я правильно понял все посты по этой теме то:  
 
макрос должен быть таким:  
 
1)начало  
2)скопируй куда-нибудь весь лист (или всю книгу еслы вы собираетесь копировать диапазон относящийся к неськолким листам сразу 'трехмерный диапазон')  
3)копируй  
4)осуществляй СПЕЦВСТАВКА-ВСТАВИТЬ ЗНАЧЕНИЯ-СЛОЖИТЬ  
5)конец  
 
макрос отмены  
1)возьми скопированный лист  
2) удали исходный лист  
3) переименуй взятый (бывший скопированный) на имя исходного  
 
Так вопрос нужно ли вам это?  
ведь каждый раз при пользовании этимм макросом у вас уйдёт и немного времени и немного ресурсов только для того чтобы создать исходный запасной  
и потом что делать со скопированным листом при закрытии книги?  
 
короче по-моему вам это не надо раз вы не будете делать этого в строго определенном диапазоне а в любом месте