How to update or insert (current) date and time by a Command Button in Excel?
Normally, many Excel users tend to insert timestamp with the formula =NOW(). With this formula, the inserted timestamp will be update automatically every time you open the workbook. For manually updating date and time in a worksheet at any time, how to achieve it? This article will show you method of updating current date and time by clicking a Command Button in Excel.
- Reuse Anything: Add the most used or complex formulas, charts and anything else to your favorites, and quickly reuse them in the future.
- More than 20 text features: Extract Number from Text String; Extract or Remove Part of Texts; Convert Numbers and Currencies to English Words.
- Merge Tools: Multiple Workbooks and Sheets into One; Merge Multiple Cells/Rows/Columns Without Losing Data; Merge Duplicate Rows and Sum.
- Split Tools: Split Data into Multiple Sheets Based on Value; One Workbook to Multiple Excel, PDF or CSV Files; One Column to Multiple Columns.
- Paste Skipping Hidden/Filtered Rows; Count And Sum by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.
- Super Filter: Create advanced filter schemes and apply to any sheets; Sort by week, day, frequency and more; Filter by bold, formulas, comment...
- More than 300 powerful features; Works with Office 2007-2019 and 365; Supports all languages; Easy deploying in your enterprise or organization.
Please do as follows to update date and time by a Command Button in Excel.
1. Insert a Command Button by clicking Developer > Insert > Command Button (ActiveX Control). See screenshot:
2. Right click the inserted Command Button, then click View Code from the right-clicking menu.
3. In the popping up Microsoft Visual Basic for Applications window, please replace the original code with the below VBA code.
VBA code: Update date and time by a Command Button in Excel
Private Sub CommandButton1_Click() Range("A2").Value = Now() End Sub
Note: In the code, CommandButton1 is the name of your inserted Command Button. And A2 is the cell which the update date and time will be displayed. Please change them as you need.
4. Turn off the Design Mode under the Developer tab. Click on the Command Button, then current date and time is inserted into cell A2.
And every time when you click on the Command Button, the date and time in cell A2 will be updated immediately.
- How to save and close active workbook without prompt by a Command Button in Excel?
- How to always floating a Command Button on worksheet in Excel?
- How to use a Command Button to change a specified cell value in Excel?
- How to create a Command Button to copy and paste data in Excel?
- How to use Command Button to save active worksheet as PDF file in Excel?
- How to insert a blank new row automatically by Command Button in Excel?
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
To post as a guest, your comment is unpublished.· 2 months agoI have a question. There is a workbook that we keep on a share drive for the whole team to access. I want to add this macro to it so anytime changes are made, we can simply pres the button and the time and date will auto populate at a click. Now here is the question, from this workbook, data is pulled to other workbooks if I save a new file as "Macro-Enabled" and delete the old "Non-Macro" workbook, will the data continue to pull from this new workbook or will I need to fix all the other workbooks.
To post as a guest, your comment is unpublished.
To post as a guest, your comment is unpublished.· 1 years agoHi there.. this is really good basic info..
One question - how do you modify the code to put the datestamp into the NEXT row below, each time the button is pressed? (keeping the data previously written above?)
Thank you so much!
To post as a guest, your comment is unpublished.· 1 years agoHi,
The below VBA code will work on selected cell. When you want to insert timestampe to a cell, just select it and press the button.
Private Sub CommandButton1_Click()
Dim xRg As Range
On Error Resume Next
Set xRg = Selection
xRg.Value = Now()