Add date to cell with a right mouse click

[rirus]

I want to select a function from a right mouse click that will place the current date in the selected cell.

Example:

1) Click on a cell
2) Perform a right mouse click
3) select the date function
4) the current date appears in selected cell

could this be set up so that the date function in the right mouse click only appears when specified cells are selected? Is this doable?


Rirus

 

[lenze]

Hi Bugelboy:

What columns do you want the date and time to be in? Let's say Column "E" for date and "F" for time. Your code would look like this (A simple version of the above)

Private Sub WorkSheet_BeforeDoubleclick(ByVal Target as Range,Cancel as Boolean)
Select Case Target.Column
    Case 5 : Target = Date   ' Set for Column 5 ("E")
    Case 6 : Target = Time   ' Set for Column 6 ("F")
    Case Else
End Select
Cancel = True
End Sub

Change Columns as needed.
HTH
lenze

 

[rirus]

Nice... much cleaner too. I like it a lot, thanks lenze

rirus

 

[bugelboy93]

Thanks a million rirus and lenze! All I had to do was save, close, and reopen it! Works wonders! I love this list!