---

Automatically Add Date, Time or Date & Time

Excel VBA: Automatically Add Date, Time or Date & Time to Cells on Data Entry

Got any Excel/VBA Questions? Free Excel Help.

Add Date in Corresponding Cell

It is often asked how one can have a date, or date and time, entered into a corresponding cell after data in entered into other cells. Let's suppose you need the current date entered into Column "B", on the same row as Column "A" data is entered. The date entered must be static so that means we cannot simply use the TODAY(), or NOW() functions.

The code below must be added to the private Module of the Worksheet Object that will store the data and corresponding date. To quickly get here from Excel, right click on the Sheet name tab and choose View Code. In here paste the code below. Then test it by adding any data to any cell in the range A2:A100 and you will see the current date appear in the corresponding cell of B2:B100. To get both the current date & time use: .Value = Now as apposed to .Value = Date. For only the time use: .Value = Time

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

            With Target(1, 2)

                .Value = Date

                .EntireColumn.AutoFit

            End With

        End If

End Sub

 

See also:

 

Excel AutoFilters in VBA using Dates

Criteria for VBA filters

Excel VBA AutoFilters

 

Free Training Course: Lesson 1 - Excel Fundamentals

 

See also: Index to Excel VBA Code; Index to Excel Freebies; Lesson 1 - Excel Fundamentals; Index to how to… providing a range of solutions

 

Click here to visit our Free 24/7 Excel/VBA Help Forum where there are thousands of posts you can get information from, or you can join the Forum and post your own questions.

Gallery

---

• 
• 
• 
• 
• 
•