Как вернуть первоначальный вида док-та

[Серёга0629]

не чего не происходит!
я на примере разбираюсь: 2 кнопки, первая "Выполнить":

Private Sub CommandButton1_Click()
Dim uc As Integer
uc = 0
Range("J13").Select: uc = uc + 1
ActiveCell.FormulaR1C1 = "56": uc = uc + 1
Range("J14").Select: uc = uc + 1
End Sub

Вторая "Отменить":

Private Sub CommandButton2_Click()
Do While uc > 0
Application.Undo
uc = uc - 1
Loop
End Sub

[IgorGO]

читайте доку:
Undo восстанавливает изменения, внесенные в документ с пользовательского интерфейса.

впишите в J13 56 вручную, а потом выполните Undo - увидите...

[Серёга0629]

а отменить действие макроса невозможно??? вообще не как?

[Серёга0629]

да и так отмена не работает, у меня же счётчик идёт при выполнении команды(нажав на кнопку), если так ввести в ячейку J13 56 и нажать "Отмена", не чего не произойдёт
Что-то я не врублюсь(( объясните инвалиду)

[IgorGO]

см.вложение

а если изменения внесены макросом, то запонимайте предварительное состояние, и восстанавливайте его своим же макросом (другим)
удачи!

[Серёга0629]

Спасибо))
хреново, что макросы отменять нельзя

[Серёга0629]

а как запонимайть предварительное состояние? по Googl-у пусто

[IgorGO]

а без гугля слабо?
и Hugo писал как это сделать и я что-то советовал (без всяких восстновлений) - мы не понимаем, чего Вы хотите добиться от этого всего, поэтому, видимо, и не угадываем с советами.

[Серёга0629]

В идеале хочется так:
пользователь через диалоговое окно на котором есть кнопка "Экспорт" экспортирует данные. Есть также кнопка "Откат", чтоб в случае, если что-то не то всё стало на свои места, даже после автосохранения.
Я та, могу создать копии, сопоставлять и т.д., но пользователю нужно чтоб всё было максимально просто
Такое возможно? или я горожу огород

[Hugo121]

Сообщение от Серёга0629

не чего не происходит!
я на примере разбираюсь: 2 кнопки, первая "Выполнить":

Private Sub CommandButton1_Click()
Dim uc As Integer
uc = 0
Range("J13").Select: uc = uc + 1
ActiveCell.FormulaR1C1 = "56": uc = uc + 1
Range("J14").Select: uc = uc + 1
End Sub

Вторая "Отменить":

Private Sub CommandButton2_Click()
Do While uc > 0
Application.Undo
uc = uc - 1
Loop
End Sub

Кроме того, что только ручные изменеия могут быть отменены, в данном коде переменная uc свою роль не выполняет. Её нужно задать публично, чтоб она была доступна из обоих процедур, и обнулять её вероятно нужно в момент, с которого нужно запоминать изменения, а не при нажатии кнопки, вносящей эти изменения.