Time Stamp with Screen Updating

[sturnusek]

Hi there,

I'm wondering if there is someone nice to type up a macro for me. So, generally I need a macro that once a button is clicked, it will create a Time Stamp in the 'U26' cell automatically. Once a button is clicked again, it will then place a Time Stamp in 'U27' and so on...

Any ideas?

Thanks

 

[Tim_Excel_]

Sub CommandButton1_Click()

LRow = Cells(Rows.Count, "U").End(xlUp).Row

If LRow < 26 Then LRow = 26

Cells(LRow, "U").Value = format(now(), "hh:mm:ss")

End Sub

 

[sturnusek]

Hi,

Thank you for this. I just used the code and it does place a Timestamp in U26, but once clicked again it doesn't 'move on' to U27, but refreshes itself.

Thanks

 

[Tim_Excel_]

My bad

[COLOR=#333333]Sub CommandButton1_Click()[/COLOR]
LRow = Cells(Rows.Count, "U").End(xlUp).Row +1

If LRow < 26 Then LRow = 26

Cells(LRow, "U").Value = format(now(), "hh:mm:ss")
 [COLOR=#333333]End Sub[/COLOR]

 

[sturnusek]

Top man, thank you!

 

[Tim_Excel_]

Glad to have helped you