Automatically populate date to cell in Excel (with VBA)

Copper Contributor

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. 

4 Replies

@DeenaJ 

What does your code currently look like?

@HansVogelaar 

Thanks for your help, here is the code 

=IF(A2<>" ",IF(AND(B2<>" ",CELL("address")=ADDRESS(ROW(A2),COLUMN(A2))),NOW(),IF(CELL("address")<>ADDRESS(ROW(A2),COLUMN(A2)),B2, NOW()))," ")

@DeenaJ 

Thank you, but that is a cell formula, not VBA code.

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 Then

On Error Resume Next
If Target.Value = "" Then

Target.Offset(0, 2) = ""
Else

Target.Offset(0, 2).Value = Format(Now, "mm/dd/yyyy HH:mm:ss")

End If

End If
End Sub