How to auto populate date in cell when adjacent cell is updated in Excel?

Sometimes, when update a cell in a certain column, you may want to mark the latest date about the updating. This article will recommend a VBA method to solve this problem. When cell is updated, the adjacent cell will be auto populated with current date immediately.

Auto populate current date in cell when adjacent cell is updated with VBA code

Auto populate current date in cell when adjacent cell is updated with VBA code

Supposing the data you need to update locates in column B, and when cell in column B is updated, the current date will be populated in the adjacent cell of column A. See screenshot:

You can run the following VBA code to solve this problem.

1. Right click the sheet tab you need to auto populate date based on the adjacent updated cell, and then click View Code from the right-clicking menu.

2. In the Microsoft Visual Basic for Applications window, please copy and paste the below VBA code into the Code window.

VBA code: auto populate current date in a cell when the adjacent cell is updated

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
            Target.Offset(0, -1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, -1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub

Notes:

1). In the code, B:B means that the updated data locates in column B.

2). -1 indicates that the current date will be populated on the left one column of column B. If you want the current date populates in column C, please change -1 to 1.

3. Press Alt + Q keys at the same time to close the Microsoft Visual Basic for Applications window.

From now on, when updating cells in column B, the adjacent cell in column A will be populated with current date immediately. See screenshot:

The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Read More... Free Download... Purchase...

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
Open and create multiple documents in new tabs of the same window, rather than in new windows.
Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!

Read More... Free Download... Purchase...

33 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest ( Sign Up? )

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
chapo · 24 days ago
I'm inputting this code into my excel workbook and nothing is happening. Could anyone please help? Ideally, I would like when something is put into column A, time would be put into column B.
- excel.PNG
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 10 days ago
  
  Hi chapo,
  Try the below code. Hope I can help.
  Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'Updated by Extendoffice 2020/10/12 Dim xRg As Range, xCell As Range On Error Resume Next If (Target.Count = 1) Then If (Not Application.Intersect(Target, Me.Range("A:A")) Is Nothing) Then _ Target.Offset(0, 1) = Time Application.EnableEvents = False Set xRg = Application.Intersect(Target.Dependents, Me.Range("A:A")) If (Not xRg Is Nothing) Then For Each xCell In xRg xCell.Offset(0, 1) = Time Next End If Application.EnableEvents = True End If End Sub
  
  Reply
To post as a guest, your comment is unpublished.
ashish_1794 · 1 months ago
I do not want to enter date but a constant value in the cell, eg: a number or a text string. please suggest the code changes for the same.

Thanks
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 24 days ago
  
  Hi,
  If you want to enter a number, please replace the text Date with the number directly in the code. For enter a text string, please replace the text Date in the code with "you text string" (the double quotes are included).
  
  Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'Updated by Extendoffice 2020/09/28 Dim xRg As Range, xCell As Range On Error Resume Next If (Target.Count = 1) Then If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _ Target.Offset(0, -1) = "a text string" 'Or directly enter a number Application.EnableEvents = False Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B")) If (Not xRg Is Nothing) Then For Each xCell In xRg xCell.Offset(0, -1) = "a text string" 'Or directly enter a number Next End If Application.EnableEvents = True End If End Sub
  
  Reply
To post as a guest, your comment is unpublished.
iLadyT · 8 months ago
Does anyone know if there is a way to auto-populate and lock to prevent inputter from changing the date? When I lock the cells and protect the document then the cells do not populate at all.
- Reply
To post as a guest, your comment is unpublished.
Ryan · 1 years ago
i think a change is needed to line 7 as well...
- Reply
To post as a guest, your comment is unpublished.
Harry · 1 years ago
Hello, is there a way to make column (A) automatically populated with a date when entering a value into any cell in the same row?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Harry,
  The below VBA code can help you solve the problem. Please specify the range as much as possible in the code. Thank you for your comment.
  
  Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  'Updated by Extendoffice 20191017
  Dim xRg As Range, xCell As Range
  Dim xInt As Integer
  On Error Resume Next
  If (Target.Count = 1) Then
  If (Not Application.Intersect(Target, Me.Range("B:BP")) Is Nothing) Then
  Application.EnableEvents = False
  xInt = Target.Row
  Me.Range("A" & xInt).Value = Date
  Application.EnableEvents = True
  End If
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Abbey · 1 years ago
Hello, Can I set the date and the time to populate?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Abbey,
  In the above code, please replace this line
  "xCell.Offset(0, -1) = Date"
  with
  "xCell.Offset(0, -1) = Format(Now(), "yyyy-MM-dd hh:mm:ss")".
  Hope I can help. Thank you for your comment.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Ryan · 1 years ago
  
  this didnt add the time in... is there another way?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Rizwan · 9 months ago
  
  you have to change it at 2 places, if you see original code, date is at 2 places, change both with Format(Now(), "yyyy-MM-dd hh:mm:ss")
  
  Reply
To post as a guest, your comment is unpublished.
josmpete · 1 years ago
Hello, I need some help. I am trying to populate the current date into column A if any cells B through N are modified. The offset is throwing me off. Can this code be written to auto populate the date in Column A specifically?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Joe,
  The below VBA code can help you solve the problem. Please have a try and thank you for your comment.
  
  Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  'Updated by Extendoffice 20190924
  Dim xRg As Range, xCell As Range
  Dim xInt As Integer
  On Error Resume Next
  If (Target.Count = 1) Then
  If (Not Application.Intersect(Target, Me.Range("B:N")) Is Nothing) Then
  Application.EnableEvents = False
  xInt = Target.Row
  Me.Range("A" & xInt).Value = Date
  Application.EnableEvents = True
  End If
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
GBiermann · 1 years ago
Hi. I'm trying to use the "Auto Populate Current Date In Cell When Adjacent Cell Is Updated With VBA Code". This works on Sheet 1, but I have 11 other sheets I need the code to work on. Please advise. I'm not VBA saavy at all so I appreciate any help I can get!

Thanks.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Gwen,
  Please repeat the steps to copy the code to other sheets. It may be tedious, but it works.
  
  Reply
To post as a guest, your comment is unpublished.
yekim25 · 1 years ago
I used this code to auto populate a column and now wish to auto populate more columns based on date entered into column H. In other words, once a date is entered can I auto populate columns to add date 90, 60, and 30 days out?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Tracey,
  The following VBA code can help you solve the probem. Please have a try.
  
  Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Dim xRg As Range, xCell As Range
  Dim xRgAddress As String
  xRgAddress = "H:H"
  On Error Resume Next
  If (Target.count = 1) Then
  If (Not Application.Intersect(Target, Me.Range(xRgAddress)) Is Nothing) Then
  Target.Offset(0, 1) = Date + 90
  Target.Offset(0, 2) = Date + 60
  Target.Offset(0, 3) = Date + 30
  End If
  Application.EnableEvents = False
  Set xRg = Application.Intersect(Target.Dependents, Me.Range(xRgAddress))
  If (Not xRg Is Nothing) Then
  For Each xCell In xRg
  xCell.Offset(0, 1) = Date + 90
  xCell.Offset(0, 2) = Date + 60
  xCell.Offset(0, 3) = Date + 30
  Next
  End If
  Application.EnableEvents = True
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Jen · 2 years ago
Nevermind...I tried John's response below and it works - thank you!
- Reply
To post as a guest, your comment is unpublished.
Jen · 2 years ago
HI - new to VBA - I want to loop the code - VBA code: auto populate current date in a cell when the adjacent cell is updated so that after a cell is updated with a date, then move on to say "J:J" and update K with date and then do 2 more times. Not sure if it is a loop or for? Thank you
- Reply
To post as a guest, your comment is unpublished.
srirevathi555@gmail.com · 2 years ago
Hi,

Can anyone one suggest a code for when I input number in column A and Column B and in Column C I kept a formula like Column A + Column B. Now I need a vba code that can give time and date in Column D whenever Column C changes not when inserting numbers in Column A and B.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Good Day,
  Any question about Excel, please don’t hesitate to post in our forum: https://www.extendoffice.com/forum.html.
  You will get more supports about Excel from our Excel professional.
  
  Reply
To post as a guest, your comment is unpublished.
Sarah · 2 years ago
Are you able to use this function twice on the same sheet? i.e. if I would like to make entries in column B to time stamp column A AND put entries in column D to timestamp column C. Thanks!
- Reply
- To post as a guest, your comment is unpublished.
  John · 2 years ago
  
  I got this to work by doing the following:
  
  Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  'Updated by Extendoffice 2017/10/12
  Dim xRg As Range, xCell As Range
  On Error Resume Next
  If (Target.Count = 1) Then
  If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
  Target.Offset(0, -1) = Date
  Application.EnableEvents = False
  Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
  If (Not xRg Is Nothing) Then
  For Each xCell In xRg
  xCell.Offset(0, -1) = Date
  Next
  End If
  Application.EnableEvents = True
  End If
  
  On Error Resume Next
  If (Target.Count = 1) Then
  If (Not Application.Intersect(Target, Me.Range("D:D")) Is Nothing) Then _
  Target.Offset(0, -1) = Date
  Application.EnableEvents = False
  Set xRg = Application.Intersect(Target.Dependents, Me.Range("D:D"))
  If (Not xRg Is Nothing) Then
  For Each xCell In xRg
  xCell.Offset(0, -1) = Date
  Next
  End If
  Application.EnableEvents = True
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
joeklein · 2 years ago
Thanks it works fine, but when it comes to close and save I'm getting a error that the feature "VB project" cannot be saved in a macro-free workbook. Please advise
- Reply
- To post as a guest, your comment is unpublished.
  jcivo8 · 2 years ago
  
  You just need to "save as" a excel macro-enabled workbook....
  
  Reply
To post as a guest, your comment is unpublished.
Michael · 2 years ago
Thanks it works fine, but when it comes to close and save I'm getting a error that the feature "VB project" cannot be saved in a macro-free workbook. Please advise
- Reply
To post as a guest, your comment is unpublished.
Tammy · 3 years ago
Can this be accomplished on a cell that contains a formula?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Tammy,
  The code has been updated. It can be accomplished on a cell that contains a formula now. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
leah · 3 years ago
I have a set of excel worksheets titled monday, tuesday, wednesday, etc. I need to put the beginning date on Monday in cell a1, and have it fill in the subsequent dates for tuesday through Friday in cell a1 on each of those sheets. I am not code literate at all, so I just need to know what the simple formula I can put in there is. :) thank you!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear leah,
  You just have to use the formula =monday!A1+1 on sheet tuesday, =tuesday!A1+1 on sheet wednesday and so on...
  
  Reply
To post as a guest, your comment is unpublished.
Jishnu · 3 years ago
Thank You. This helped a lot.
But when I am deleting a row or adding a row this gives an Run-time error 13 Type mismatch.

How to tackle this issue.

Expecting a revert ASAP.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Jishnu,
  The problem you mentioned does not appear in my case. Would you please provide your Office version?
  
  Reply