How to do the "REDO" action in Excel programatically.

[Daffo]

Hi everybody... i wanted to know how to do "Redo" in excel
programatically. While there is a method to do "UNDO", i could not find
a method for "REDO". So i tried to simulate a "REDO" action by using
the following method...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.Undo
With Application.CommandBars("standard").Controls("Redo")
With Application.CommandBars.FindControl(ID:=129)
If .Enabled Then
.Execute
End If
End With
End With
Application.EnableEvents = False
End Sub

I also tried this
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.Undo
SendKeys "^y"
Application.EnableEvents = true
End sub
Where "^y" is the shortcut for Redo.(Ctrl+Y)
Well only Application.Undo works, but Redo does not work. To check if
the code works i put the Control Id of Save As and tested and the save
dialog opened.
So, can anybody please tell me where am i going wrong or if there are
any other better approaches to do "REDO" programatically.

 

[Jan Karel Pieterse]

Hi Daffo,

Hi everybody... i wanted to know how to do "Redo" in excel
programatically. While there is a method to do "UNDO", i could not find
a method for "REDO". So i tried to simulate a "REDO" action by using
the following method...

Could you explain what it is you're trying to do exactly?

Looks as if you're undoing and redoing immediately after each other,
which doesn't make sense to me?

Regards,

Jan Karel Pieterse
Excel MVP
http://www.jkp-ads.com
Member of:
Professional Office Developer Association
www.proofficedev.com

 

[Bob Phillips]

(change the xxxx to gmail if mailing direct)

Looks as if you're undoing and redoing immediately after each other,
which doesn't make sense to me?

It's a neat way to goto the last edited cell.