Thread: Enter and Lock Current date when a number is entered into another cell

Hi,
I am new here. I am slowly picking up some excel skills, but can't seem to figure this one out. I have also tried to tweak several macros that are close to what I need-but that always leads to a brick wall. Here's my goal:

I type a number into column B. (This is an item # and my worksheet is already set up to fill in the rest of the columns-with information about that item from another worksheet. I don't neet help w/ that part.)
Column A of the same row automatically fills in todays date. That date stays there unless I delete the number from Column B.
So, if I use the worksheet tomorrow, the items I enter will have tomorrow's date, but all previous dates will stay how they were entered.

Any ideas?

Thank you!

Try this event driven macro

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
    If Cell.Column = 2 Then
        Application.EnableEvents = False
        If Cell.Value <> "" Then
            Cell.Offset(0, -1) = Date
        Else
            Cell.Offset(0, -1) = ""
        End If
        Application.EnableEvents = True
    End If
Next Cell
End Sub

Paste this into the appropriate sheet tab (e.g. Sheet1) in the VBA editor (Alt F11).