Automatically populate date to cell in Excel (with VBA)

Question

I've create a VBA in Excel but would like to respective entries when data is added to automatically populate a date and time stamp in Column 3 of the worksheet. I was able to use a formula that worked if I manually entered information directly into the worksheet but I'd like for the field to populate if the data comes from the VBA macro.&nbsp;

hansvogelaar · Answer

DeenaJ&nbsp;
What does your code currently look like?

deenaj · Answer

HansVogelaar&nbsp;Thanks for your help, here is the code&nbsp;=IF(A2&lt;&gt;" ",IF(AND(B2&lt;&gt;" ",CELL("address")=ADDRESS(ROW(A2),COLUMN(A2))),NOW(),IF(CELL("address")&lt;&gt;ADDRESS(ROW(A2),COLUMN(A2)),B2, NOW()))," ")

hansvogelaar · Answer

DeenaJ&nbsp;
Thank you, but that is a cell formula, not VBA code.

deenaj · Answer

I was able to create the action in Sheet1 of the VBA project. Here is the code I used:Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("A:A")) Is Nothing ThenOn Error Resume NextIf Target.Value = "" ThenTarget.Offset(0, 2) = ""ElseTarget.Offset(0, 2).Value = Format(Now, "mm/dd/yyyy HH:mm:ss")End IfEnd IfEnd Sub

Forum Discussion

Automatically populate date to cell in Excel (with VBA)

Share

Resources