Hi
I have tried the formula from
http://www.mcgimpsey.com/excel/timestamp.html

but it returns a 01/01/1009 type thing and not the date
please explain I am a bit of an amature.

Regards

Pete


"Earl Kiosterud" wrote:

Rusian,

This will put the latest date in column A any time you add or change any
information in B:D:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:D")) Is Nothing Then
Cells(Target.Row, 1) = Now
End If
End Sub

This will put the date in column A the first time you put information into a
row in B:D, but won't change it if you add or change information later in a
row that already has a date in column A.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:D")) Is Nothing And
IsEmpty(Cells(Target.Row, 1)) Then
Cells(Target.Row, 1) = Now
End If

Paste it from here into the sheet module in the VBE.
--
Earl Kiosterud
mvpearl omitthisword at verizon period net
-------------------------------------------

"Ruslan" wrote in message
...
to make it clear...is it possible to make excel add automatically date in,
for example, A10 column when I enter information in B10 ?





"Ruslan" wrote:

Hello everyone:

In a column A1:A1000...i have to enter each time current Date along with
some other information in the following columns (B,C,D...) so within a
day i
make about 50 such entries ....is it possible to make it so that it will
change the date when I enter any information in, for example
B1:B1000...automatically according to the current date in computer?

thanks,

If you meant to type 01/01/1900 then this is a date - 1 Jan 1900
Are you looking for a time? Try formatting the cell with Time
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"pmayne181" wrote in message
...
Hi
I have tried the formula from
http://www.mcgimpsey.com/excel/timestamp.html

but it returns a 01/01/1009 type thing and not the date
please explain I am a bit of an amature.

Regards

Pete


"Earl Kiosterud" wrote:

Rusian,

This will put the latest date in column A any time you add or change any
information in B:D:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:D")) Is Nothing Then
Cells(Target.Row, 1) = Now
End If
End Sub

This will put the date in column A the first time you put information
into a
row in B:D, but won't change it if you add or change information later in
a
row that already has a date in column A.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:D")) Is Nothing And
IsEmpty(Cells(Target.Row, 1)) Then
Cells(Target.Row, 1) = Now
End If

Paste it from here into the sheet module in the VBE.
--
Earl Kiosterud
mvpearl omitthisword at verizon period net
-------------------------------------------

"Ruslan" wrote in message
...
to make it clear...is it possible to make excel add automatically date
in,
for example, A10 column when I enter information in B10 ?





"Ruslan" wrote:

Hello everyone:

In a column A1:A1000...i have to enter each time current Date along
with
some other information in the following columns (B,C,D...) so within
a
day i
make about 50 such entries ....is it possible to make it so that it
will
change the date when I enter any information in, for example
B1:B1000...automatically according to the current date in computer?

thanks,