Delete Contents of Last Used Cell

[techie99]

When a user enters a value into a cell and hits enter, the activecell is no longer the cell that the user entered a value into. My question is, how can I delete the contents of the cell that the user just entered data into? Thanks.

 

[AnotherHiggins]

Place this code in the worksheet (not a module):

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target.Clear
End Sub

[tt]_____
[blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ181-2886 before posting.

 

[SkipVought]

techie99,

The user may hit ENTER. But ENTER does not always act the same on every machine.

The user may also hit the TAB key.

Or the user may hit one of the 4 ARROW keys.

John's code will clear the last entry on every sheet every time. I don't believe that's what you want because you would NEVER be able to enter ANYTHING.

Do you want a button that basically does an UNDO on command?



Skip,

_[red][/red]

 

[techie99]

Skip,thanks for your concern. I needed to know this for a if then block of code. So, this will only happen under certain circumstances.

Thanks anotherhiggins for your post. I just had to change it slightly to target.clearcontents, otherwise it would clear the formatting on the cell, when I just wanted to clear what was typed in. Thanks so much.

techie99