Auto populate today's Date into a cell when an adjacent cell is populated

[mapp28]

Is there any way to auto populate today's date in column A if the adjacent cell in Column B is populated manually from a drop down list

Without using VBA??

 

[DHayes]

Hi
There is a way but it has its draw backs as the date will change to today's date every time the workbook is opened.

=IF(B1="","",TODAY())

 

[mapp28]

Hi
There is a way but it has its draw backs as the date will change to today's date every time the workbook is opened.

=IF(B1="","",TODAY())

Thanks but I need it to retain the date when opened the following day on

 

[jonathann3891]

Found here Recording a Data Entry Time (Microsoft Excel)

[COLOR=#000000][FONT=Menlo]Private Sub Worksheet_Change(ByVal Target As Excel.Range)[/FONT][/COLOR]    
    Dim rCell As Range
    Dim rChange As Range
    
    On Error GoTo ErrHandler
    Set rChange = Intersect(Target, Range("A:A"))
    If Not rChange Is Nothing Then
        Application.EnableEvents = False
        For Each rCell In rChange
            If rCell > "" Then
                With rCell.Offset(0, 1)
                    .Value = Now
                    .NumberFormat = "hh:mm:ss"
                End With
            Else
                rCell.Offset(0, 1).Clear
            End If
        Next
    End If

ExitHandler:
    Set rCell = Nothing
    Set rChange = Nothing
    Application.EnableEvents = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler [COLOR=#000000][FONT=Menlo]End Sub[/FONT][/COLOR]