Application.OnRepeat

This event runs when the user chooses (Edit > Repeat) after running a macro.

Application.OnRepeat(Text, Procedure) 

You can use the OnRepeat method of the application object to customise the functionality of the Repeat command


Excel

Lets suppose you want to paste a date into a cell and you want to increment this date by one day for each successive paste from the cell above the active cell

Public Sub DefineRepeat 
   Application.OnRepeat Text:="Paste Next Date", _
                        Procedure:="PasteIncrement"
End Sub

Public Sub PasteIncrement
   ActiveCell.Value = ActiveCell.Offset(1,0).Value + 1
End Sub

Word

The method Application.OnRepeat does not exist in Word at the moment.


PowerPoint

The method Application.OnRepeat does not exist in PowerPoint at the moment.


© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext