Time Stamp Macro Button that Disappears

I am needing to create a quick way to time stamp when I enter a patients room then when I leave. I know how to create a macro button that when I select a cell then click the button it time stamps it but that is more steps then I have time for really. Wanting to create a button for each cell (column B is clock in, column C same row is clock out button) that fills the cell with the time stamp and the button for that specific cell is gone. I have seen things like this done before but have not done myself. I attached a mock up. Any ideas?

Time Stamp Button Idea.xlsx

Hi there,

Take a look at the attached version of your workbook and see if it does what you need. It uses the following code in the VBA CodeModule of the worksheet "OPTION 2":

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Cells.CountLarge = 1 Then

        If Not Intersect(Target, Me.Range("ptrMorning")) Is Nothing Or _
           Not Intersect(Target, Me.Range("ptrAfternoon")) Is Nothing Then

            Target.Value = Now() - Int(Now())

        End If

    End If

End Sub

Just select any of the "Begin Time" or "End Time" cells and the current time will be entered in that cell.


Hope this helps - please let me know how you get on.

Regards,

Greg M

Hi Trevor,

Thanks for that. I "think" I was aware of the Time function, but I've used that approach for so many years that my fingers refuse to type anything else!

Many thanks for all of your contributions on here.

Best regards,

Greg M