Thread: auto date
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default auto date

Hi Rik13

You can use a Shortcut for it

You can insert the time like this
CTRL : (colon)

The date like this
CTRL ; (semicolon)

CTRL : (colon) space bar CTRL ; (semicolon)
this will give you both in one cell

Or with VBA

You can do it with the change event of the worksheet
This example will place the date/time in the B column if you change
a cell in the range A1:A20.

Place the code in the Sheet module

Right click on a sheet tab and choose view code
Paste the code there
Alt-Q to go back to Excel

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("a1:a20"), Target) Is Nothing Then
Target.Offset(0, 1).Value = Format(Now, "mm-dd-yy hh:mm:ss")
End If
End Sub

For one column
If Target.Column = 1 Then

For one Row
If Target.Row = 1 Then



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Rik13" wrote in message ...
Is there a way to automatically fill in the today's date (that will not update) when an entry is entered? I'm pretty sure

there is but can't get the syntax. I'm just starting with this stuff. Also, how can I get the SQLStatement in a Mailmerge to
pick today's date? Any help would be GREATLY appreciated!