dates

Originally Posted by Radonsheep

is there a way to have the current date auto fill to a cell if enter a value on the same row..? instead of having to type in the date then the product or value?

Hi,

If you use a formula that tests the A column and inserts a date in the B column, then that date will update with each passing day.

If you want to detect and retain the date on which an entry was made in the A column, then, on the worksheet tab, rightmouse and 'View Code' and copy the following code into there.

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_Range As String = "A1:A65536" ' <<< set your range
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error Resume Next
    If Not Intersect(Target, Me.Range(WS_Range)) Is Nothing Then
        iRow = Target.Row
        If Range("A" & iRow).Value <> "" And Range("B" & iRow).Value = "" Then Range("B" & iRow).Value = Date
    End If
Application.EnableEvents = True
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

hth
---