Thread: insert date
View Single Post
  #9   Report Post  
Old June 26th 06, 01:49 PM posted to microsoft.public.excel.worksheet.functions
Posts: n/a
Default insert date

Actually, to change from column A to column C, you would change the line
If ActiveCell.Column = 1
If ActiveCell.Column = 3

The two "columnA" in the notations can be changed also, but are only
comments and do not affect the operation

Vaya con Dios
Chuck, CABGx3

"Larry" wrote:

Thanks again, I'll try thei right away. I take it I should replace A with C
to change target column? Take care, larry

"CLR" wrote:

This Change-event macro should do the job automatically......if the user
selects a cell in column that has a value therein, no affect.....if the cell
is blank, the macro will insert todays date.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Automatically inserts today's date in cell in column A when selected
'if the cell was empty. Does not overwrite occupied cell.
If ActiveCell.Column = 1 Then 'Limits macro action to column A
If ActiveCell.Value = "" Then 'Check to see if Target cell empty
Selection.Value = Date 'Insert today's date in Target cell
End If
End If
End Sub

"Larry" wrote:

Thanks CLR,
ans: yes and old dates remain.
Some of the folks usimng it can't seem to remember the ctrl ; keys. Thanks
for the help

"CLR" wrote:

A couple of questions.....
1-Are you wanting today's date inserted in an empty cell whenever it's
selected in a certain column?
2-What would you like to have happen to cells in that column being selected
that already contain a date, or some other value?

You can do nearly as good by just holding down the Ctrl key and pressing the
semicolon key.........this will insert today's date in the selected cell.

Vaya con Dios,
Chuck, CABGx3

"Larry" wrote:

Hi folks,
I'd like to inset a date automatically when ever a cell within a single
column is selected.
Can I do this?