Macro for last action

[Steved]

Hello from Steved

If I type 4247 in cell A10
Is it possible please to have a macro that will
copy and when I goto Cell A17 it will paste.

Thankyou.

 

[Earl Kiosterud]

Steved,

In a regular module, put this:

Public Savit
Sub MyPaste()
ActiveCell = Savit
End Sub

In the sheet module, put this:

Private Sub Worksheet_Change(ByVal Target As Range)
Savit = Target ' get last thing entered into cell
End Sub

YOu may want to set up a button, or a keyboard shortcut to run MyPaste.
Tools - Macro - Macros - Select MyPaste - Options - Shortcut key.

 

[Steved]

Thankyou Earl

-----Original Message-----
Steved,

In a regular module, put this:

Public Savit
Sub MyPaste()
ActiveCell = Savit
End Sub

In the sheet module, put this:

Private Sub Worksheet_Change(ByVal Target As Range)
Savit = Target ' get last thing entered into cell
End Sub

YOu may want to set up a button, or a keyboard shortcut to run MyPaste.
Tools - Macro - Macros - Select MyPaste - Options - Shortcut key.
--
Earl Kiosterud
mvpearl omitthisword at verizon period net
-------------------------------------------




.