Click a Button to Time Stamp A Specific Cell.

[Gryrok]

Greetings All!

I'm with a team who uses excel to keep track of events, start & end times etc. We use excel now but everyone has to type in the times manually. I'd like to make a sheet that would have buttons next to the cells where the time needs to go, and if they click the button it would add the time to the adjacent cell.

Right now I've got this code (From another forum on this awesome website) in a macro:


sub EnterTime()
activecell.value=time
End sub

and I've attached it to a button so the current time is entered into whatever cell is selected when the button is pressed. Can anyone help me adjust this so clicking the button enters the time into the cell right next to the button?

Thanks for your assistance!

 

[Fishboy]

Greetings All!

I'm with a team who uses excel to keep track of events, start & end times etc. We use excel now but everyone has to type in the times manually. I'd like to make a sheet that would have buttons next to the cells where the time needs to go, and if they click the button it would add the time to the adjacent cell.

Right now I've got this code (From another forum on this awesome website) in a macro:


sub EnterTime()
activecell.value=time
End sub

and I've attached it to a button so the current time is entered into whatever cell is selected when the button is pressed. Can anyone help me adjust this so clicking the button enters the time into the cell right next to the button?

Thanks for your assistance!

Hi Gryrok,

Without knowing where the button is I will have to guess, so assuming that for example the button is in cell A1 the code would be

Sub EnterTime()
Range("B1").Value = Time
End Sub