ExcelBanter - View Single Post - A formula or macro that will place the date in an adjacent column Bany time something is typed in column A

Mike C[_5_]

On Feb 26, 11:05*am, Dave D-C wrote:
This should be a start
(using the SelectionChange Event):

Private Sub Worksheet_SelectionChange( _
* ByVal Target As Excel.Range)
* Dim iRow&, iCol&
* If Target.Cells.Count < 1 Then Exit Sub
* iRow = Target.Row
* iCol = Target.Column
* If iCol < 3 Then Exit Sub
* If Target.Value = "" Then
* * Target.Offset(0, 1).Value = Date
* End If
* ' or
* If Target.Value = "" And _
* * *Target.Offset(0, 1).Value = "" Then
* * Target.Offset(0, 1).Value = Date
* End If
End Sub ' Dave D-C

Mike C wrote:
Hello - I am trying to create a formula or macro that simply places
the date in a column each time that I type in an adjacent column.

I tried using =IF(A3="","",TODAY()), but it refreshes the today date
each time I open the worksheet (thus not leaving the prior date in the
cell. *Any ideas?

Thanks for any suggestions.- Hide quoted text -

- Show quoted text -

Thanks Dave!