Autofill date?

[Alan]

Hi -

I am using XL200 on W2K. I would like to simply [and I know it is simple]
fill in one cell and have the datre that the cell was filled be put into
another cell. I searched all weekend for a function / macro with no luck.
Suggestions?

Thank you !

 

[Paul B]

Alan, data in A1,in the other cell put =A1, is this what you want?

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

 

[Richard Gurney]

I know it's not exactly what you want.
Knowledge Base article q209637 shows how to do something
like this for Access and it does work because I've used
it.

Richard

-----Original Message-----
Alan, data in A1,in the other cell put =A1, is this what you want?

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

Hi -

I am using XL200 on W2K. I would like to simply [and I know it is simple]
fill in one cell and have the datre that the cell was filled be put into
another cell. I searched all weekend for a function / macro with no luck.
Suggestions?

Thank you !

.

 

[Myrna Larson]

No, I think he wants the date (and time) that A1 was changed.

 

[Paul B]

Myrna, I after reading it again you may be right, Alan if that is the case
try something like this for data in A1, will put date and time in B1,put in
worksheet code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
With Target
.Offset(, 1).Value = Now
.Offset(, 1).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End With
End Sub

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

 

[Alan]

WOW! You guys are great and I really appreciate the help. FYI - I am a bit
new at the newsgroup thing - I should have clarified the issue:
If I input text into a cell, say A1, then I want cell B1 to show the date
that cell was populated.
We input thousands of orders a day and it is important that we track the
date they come in for future reference. Right now the XL user has to type
it in manually. If we could get it to automatically pop in the date, that
would be a huge timesaver.
Many thanks!

Alan

Myrna, I after reading it again you may be right, Alan if that is the case
try something like this for data in A1, will put date and time in B1,put in
worksheet code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
With Target
.Offset(, 1).Value = Now
.Offset(, 1).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End With
End Sub

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

No, I think he wants the date (and time) that A1 was changed.

 

[Myrna Larson]

BTW, do your users realize that they can enter the current date with CTRL+; or the timewith
CTRL+SHIFT+;

?

WOW! You guys are great and I really appreciate the help. FYI - I am a bit
new at the newsgroup thing - I should have clarified the issue:
If I input text into a cell, say A1, then I want cell B1 to show the date
that cell was populated.
We input thousands of orders a day and it is important that we track the
date they come in for future reference. Right now the XL user has to type
it in manually. If we could get it to automatically pop in the date, that
would be a huge timesaver.
Many thanks!

Alan

Myrna, I after reading it again you may be right, Alan if that is the case
try something like this for data in A1, will put date and time in B1,put in
worksheet code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
With Target
.Offset(, 1).Value = Now
.Offset(, 1).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End With
End Sub

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

 

[Paul B]

Alan, To put in this macro right click on the worksheet tab and view code,
in the window that opens paste this code, press Alt and Q to close this
window and go back to your workbook. If you are using excel 2000 or newer
you may have to change the macro security settings to get the macro to run.
Then just change the Target, Range and the offset to what you need

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

I see your VB example and from the basics of what I know it appears to look
like you are all over what I am looking for; I am just missing what the heck
to do with it now - Here is where I am:
I have the worksheet open and the VBEditor. I double clicked my worksheet
in the upper left [VBA project window] to activate the sheet I want to work
on. On the right hand side where there are two drop down boxes, I selected
"worksheet" [was 'declaration'] but then I do not know where to go. I must
select something from the other drop down box as well ['selection change',
'calculate', etc] right?
Then I need to make a couple of basic changes in the VB code to identify the
actual cell that is getting info and which cell gets the date, right?
Thanks !

Alan

 

[Alan]

Hi again -

Basically, when I put data in Cell A1 now, it inputs the date in cell D1.
Perfect. I want the same function for when I input data into cell B1 [it
will put the date in cell E1].

I should have been more clear. Thanks again!

Alan

Alan, "I need the same thing to occur on the same workbook for column B",
what do you want to happen, also put the date in column B when data in put
in A? or put a date somewhere else when you put data in column B? No I am
not a musician

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

Paul -

Thank you so much. The macro works great. I made a change or two and was
thrilled to see that it worked [changed the reference to A1 to A1:A1000 and
offset to column 3]. I need the same thing to occur on the same workbook
for column B. I tried to add the marco again and change the column value,
but it is giving me errors [highlighting "Private Sub Worksheet_Change(ByVal
Target As Excel.Range)]"
What is the proper way to get the two macros to run, or potentially merge
them together?

Thanks [again]
you're not a musician are you?

Alan

Alan, To put in this macro right click on the worksheet tab and view code,
in the window that opens paste this code, press Alt and Q to close this
window and go back to your workbook. If you are using excel 2000 or newer
you may have to change the macro security settings to get the macro to run.
Then just change the Target, Range and the offset to what you need

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **


I see your VB example and from the basics of what I know it appears to
look
like you are all over what I am looking for; I am just missing what the
heck
to do with it now - Here is where I am:
I have the worksheet open and the VBEditor. I double clicked my worksheet
in the upper left [VBA project window] to activate the sheet I want to
work
on. On the right hand side where there are two drop down boxes, I
selected
"worksheet" [was 'declaration'] but then I do not know where to go. I
must
select something from the other drop down box as well ['selection change',
'calculate', etc] right?
Then I need to make a couple of basic changes in the VB code to identify
the
actual cell that is getting info and which cell gets the date, right?
Thanks !

Alan

WOW! You guys are great and I really appreciate the help. FYI -

I

am track
the is
the

 

[Paul B]

Alan, then how about this, will put date in for the whole columns A & B

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 1
Cells(Target.Row, 4) = Now()
'you can use something like this if you need to format the cell
'Cells(Target.Row, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
Case 2
Cells(Target.Row, 5) = Now()
'you can use something like this if you need to format the cell
'Cells(Target.Row, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End Select
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

Hi again -

Basically, when I put data in Cell A1 now, it inputs the date in cell D1.
Perfect. I want the same function for when I input data into cell B1 [it
will put the date in cell E1].

I should have been more clear. Thanks again!

Alan

Alan, "I need the same thing to occur on the same workbook for column B",
what do you want to happen, also put the date in column B when data in put
in A? or put a date somewhere else when you put data in column B? No I am
not a musician

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

Paul -

Thank you so much. The macro works great. I made a change or two and was
thrilled to see that it worked [changed the reference to A1 to

A1:A1000
and

offset to column 3]. I need the same thing to occur on the same workbook
for column B. I tried to add the marco again and change the column value,
but it is giving me errors [highlighting "Private Sub Worksheet_Change(ByVal
Target As Excel.Range)]"
What is the proper way to get the two macros to run, or potentially merge
them together?

Thanks [again]
you're not a musician are you?

Alan

Alan, To put in this macro right click on the worksheet tab and view code,
in the window that opens paste this code, press Alt and Q to close this
window and go back to your workbook. If you are using excel 2000 or newer
you may have to change the macro security settings to get the macro to
run.
Then just change the Target, Range and the offset to what you need

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit

from

it

appears

to

look
like you are all over what I am looking for; I am just missing

what
the

heck
to do with it now - Here is where I am:
I have the worksheet open and the VBEditor. I double clicked my
worksheet
in the upper left [VBA project window] to activate the sheet I

want

to

work
on. On the right hand side where there are two drop down boxes, I
selected
"worksheet" [was 'declaration'] but then I do not know where to

go.

I

must
select something from the other drop down box as well ['selection
change',
'calculate', etc] right?
Then I need to make a couple of basic changes in the VB code to identify
the
actual cell that is getting info and which cell gets the date, right?
Thanks !

Alan

WOW! You guys are great and I really appreciate the help.

FYI -
I

am has
to

 

[Paul B]

Or this for your range

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:A1000", "B1:B1000")) Is Nothing Then Exit Sub
With Target
.Offset(, 3).Value = Now
.Offset(, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End With

End Sub

Alan, then how about this, will put date in for the whole columns A & B

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 1
Cells(Target.Row, 4) = Now()
'you can use something like this if you need to format the cell
'Cells(Target.Row, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
Case 2
Cells(Target.Row, 5) = Now()
'you can use something like this if you need to format the cell
'Cells(Target.Row, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End Select
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

Hi again -

Basically, when I put data in Cell A1 now, it inputs the date in cell D1.
Perfect. I want the same function for when I input data into cell B1 [it
will put the date in cell E1].

I should have been more clear. Thanks again!

Alan

Alan, "I need the same thing to occur on the same workbook for column B",
what do you want to happen, also put the date in column B when data in put
in A? or put a date somewhere else when you put data in column B? No I am
not a musician

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

Paul -

Thank you so much. The macro works great. I made a change or two

and
was

thrilled to see that it worked [changed the reference to A1 to A1:A1000
and
offset to column 3]. I need the same thing to occur on the same workbook
for column B. I tried to add the marco again and change the column value,
but it is giving me errors [highlighting "Private Sub
Worksheet_Change(ByVal
Target As Excel.Range)]"
What is the proper way to get the two macros to run, or potentially merge
them together?

Thanks [again]
you're not a musician are you?

Alan

Alan, To put in this macro right click on the worksheet tab and view
code,
in the window that opens paste this code, press Alt and Q to close this
window and go back to your workbook. If you are using excel 2000 or
newer
you may have to change the macro security settings to get the

macro

to

run.
Then just change the Target, Range and the offset to what you need

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit

from

it
** remove news from my email address to reply by email **


I see your VB example and from the basics of what I know it

appears

to
look
like you are all over what I am looking for; I am just missing what
the
heck
to do with it now - Here is where I am:
I have the worksheet open and the VBEditor. I double clicked my
worksheet
in the upper left [VBA project window] to activate the sheet I

want

to
work
on. On the right hand side where there are two drop down boxes, I
selected
"worksheet" [was 'declaration'] but then I do not know where to

go.

I
must
select something from the other drop down box as well ['selection
change',
'calculate', etc] right?
Then I need to make a couple of basic changes in the VB code to
identify
the
actual cell that is getting info and which cell gets the date, right?
Thanks !

Alan

WOW! You guys are great and I really appreciate the help.

FYI -
I

am
a
bit
new at the newsgroup thing - I should have clarified the issue:
If I input text into a cell, say A1, then I want cell B1 to

show
the

date
that cell was populated.
We input thousands of orders a day and it is important that we track
the
date they come in for future reference. Right now the XL user has
to
type
it in manually. If we could get it to automatically pop in the
date,
that
would be a huge timesaver.
Many thanks!

Alan

Myrna, I after reading it again you may be right, Alan if

that
is

the
case
try something like this for data in A1, will put date and

time
in

B1,put
in
worksheet code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
With Target
.Offset(, 1).Value = Now
.Offset(, 1).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End With
End Sub

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit
from
it
** remove news from my email address to reply by email **


No, I think he wants the date (and time) that A1 was changed.

On Mon, 11 Aug 2003 09:39:44 -0400, "Paul B"
<[email protected]>
wrote:

Alan, data in A1,in the other cell put =A1, is this what you
want?

 

[Alan]

Hi again Paul -

I saw both of your responses and I am a little confused on which one to use.
Can you clarify? Am I using the code you provided yesterday in addition to
that below?

I am trying to stay up with you I swear!

Thanks
Alan

Or this for your range

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:A1000", "B1:B1000")) Is Nothing Then Exit Sub
With Target
.Offset(, 3).Value = Now
.Offset(, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End With

End Sub

Alan, then how about this, will put date in for the whole columns A & B

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 1
Cells(Target.Row, 4) = Now()
'you can use something like this if you need to format the cell
'Cells(Target.Row, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
Case 2
Cells(Target.Row, 5) = Now()
'you can use something like this if you need to format the cell
'Cells(Target.Row, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End Select
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

Hi again -

Basically, when I put data in Cell A1 now, it inputs the date in cell D1.
Perfect. I want the same function for when I input data into cell B1 [it
will put the date in cell E1].

I should have been more clear. Thanks again!

Alan

Alan, "I need the same thing to occur on the same workbook for

column
B",

what do you want to happen, also put the date in column B when data

in
put

in A? or put a date somewhere else when you put data in column B? No

I
am

not a musician

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit

from

it

** remove news from my email address to reply by email **

Paul -

Thank you so much. The macro works great. I made a change or two and
was
thrilled to see that it worked [changed the reference to A1 to A1:A1000
and
offset to column 3]. I need the same thing to occur on the same
workbook
for column B. I tried to add the marco again and change the column
value,
but it is giving me errors [highlighting "Private Sub
Worksheet_Change(ByVal
Target As Excel.Range)]"
What is the proper way to get the two macros to run, or potentially
merge
them together?

Thanks [again]
you're not a musician are you?

Alan

Alan, To put in this macro right click on the worksheet tab and view
code,
in the window that opens paste this code, press Alt and Q to close
this
window and go back to your workbook. If you are using excel

2000

or

newer
you may have to change the macro security settings to get the

macro

to
run.
Then just change the Target, Range and the offset to what you need

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from
it
** remove news from my email address to reply by email **


I see your VB example and from the basics of what I know it appears
to
look
like you are all over what I am looking for; I am just missing what
the
heck
to do with it now - Here is where I am:
I have the worksheet open and the VBEditor. I double clicked my
worksheet
in the upper left [VBA project window] to activate the sheet I want
to
work
on. On the right hand side where there are two drop down

boxes,

I

selected
"worksheet" [was 'declaration'] but then I do not know where

to
go.

I
must
select something from the other drop down box as well ['selection
change',
'calculate', etc] right?
Then I need to make a couple of basic changes in the VB code to
identify
the
actual cell that is getting info and which cell gets the date,
right?
Thanks !

Alan

WOW! You guys are great and I really appreciate the help. FYI -
I
am
a
bit
new at the newsgroup thing - I should have clarified the issue:
If I input text into a cell, say A1, then I want cell B1 to show
the
date
that cell was populated.
We input thousands of orders a day and it is important that we
track
the
date they come in for future reference. Right now the XL

user
has

to
type
it in manually. If we could get it to automatically pop in the
date,
that
would be a huge timesaver.
Many thanks!

Alan

Myrna, I after reading it again you may be right, Alan if that
is
the
case
try something like this for data in A1, will put date and time
in
B1,put
in
worksheet code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
With Target
.Offset(, 1).Value = Now
.Offset(, 1).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End With
End Sub

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit
from
it
** remove news from my email address to reply by email **


No, I think he wants the date (and time) that A1 was changed.

On Mon, 11 Aug 2003 09:39:44 -0400, "Paul B"
<[email protected]>
wrote:

Alan, data in A1,in the other cell put =A1, is this

what
you

want?

 

[Paul B]

Alan, you can use ONE of these by its self, they both do basely the same
thing, only the range is different this one will put the dates in for any
cell you enter data in for all the cells in column A & B

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 1
Cells(Target.Row, 4) = Now()
'you can use something like this if you need to format the cell
'Cells(Target.Row, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
Case 2
Cells(Target.Row, 5) = Now()
'you can use something like this if you need to format the cell
'Cells(Target.Row, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End Select
End Sub

This one will put the date in for the cells you enter data in for the range
A1:A1000 and B1:B1000, hope this will help you understand it a little better

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:A1000", "B1:B1000")) Is Nothing Then Exit Sub
With Target
.Offset(, 3).Value = Now
.Offset(, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End With

End Sub

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

Hi again Paul -

I saw both of your responses and I am a little confused on which one to use.
Can you clarify? Am I using the code you provided yesterday in addition to
that below?

I am trying to stay up with you I swear!

Thanks
Alan

Or this for your range

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:A1000", "B1:B1000")) Is Nothing Then Exit Sub
With Target
.Offset(, 3).Value = Now
.Offset(, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End With

End Sub

Alan, then how about this, will put date in for the whole columns A & B

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 1
Cells(Target.Row, 4) = Now()
'you can use something like this if you need to format the cell
'Cells(Target.Row, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
Case 2
Cells(Target.Row, 5) = Now()
'you can use something like this if you need to format the cell
'Cells(Target.Row, 3).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End Select
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **



Hi again -

Basically, when I put data in Cell A1 now, it inputs the date in

cell
D1.

Perfect. I want the same function for when I input data into cell

B1
[it

will put the date in cell E1].

I should have been more clear. Thanks again!

Alan

Alan, "I need the same thing to occur on the same workbook for column
B",
what do you want to happen, also put the date in column B when

data

in

No

I

am
not a musician

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit

from

it
** remove news from my email address to reply by email **

Paul -

Thank you so much. The macro works great. I made a change or

two
and

was
thrilled to see that it worked [changed the reference to A1 to
A1:A1000
and
offset to column 3]. I need the same thing to occur on the same
workbook
for column B. I tried to add the marco again and change the column
value,
but it is giving me errors [highlighting "Private Sub
Worksheet_Change(ByVal
Target As Excel.Range)]"
What is the proper way to get the two macros to run, or potentially
merge
them together?

Thanks [again]
you're not a musician are you?

Alan

Alan, To put in this macro right click on the worksheet tab

and
view

code,
in the window that opens paste this code, press Alt and Q to close
this
window and go back to your workbook. If you are using excel

2000

or
newer
you may have to change the macro security settings to get the macro
to
run.
Then just change the Target, Range and the offset to what you need

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit
from
it
** remove news from my email address to reply by email **


I see your VB example and from the basics of what I know it
appears
to
look
like you are all over what I am looking for; I am just missing
what
the
heck
to do with it now - Here is where I am:
I have the worksheet open and the VBEditor. I double

clicked

my

worksheet
in the upper left [VBA project window] to activate the sheet I
want
to
work
on. On the right hand side where there are two drop down

boxes,

I
selected
"worksheet" [was 'declaration'] but then I do not know where to
go.
I
must
select something from the other drop down box as well ['selection
change',
'calculate', etc] right?
Then I need to make a couple of basic changes in the VB code to
identify
the
actual cell that is getting info and which cell gets the date,
right?
Thanks !

Alan

WOW! You guys are great and I really appreciate the help.
FYI -
I
am
a
bit
new at the newsgroup thing - I should have clarified the
issue:
If I input text into a cell, say A1, then I want cell B1

to
show

the
date
that cell was populated.
We input thousands of orders a day and it is important

that

we in
the if
that and
time

 

[Alan]

Many thanks Paul - it works prefectly!

Alan

WOW! You guys are great and I really appreciate the help. FYI - I am a bit
new at the newsgroup thing - I should have clarified the issue:
If I input text into a cell, say A1, then I want cell B1 to show the date
that cell was populated.
We input thousands of orders a day and it is important that we track the
date they come in for future reference. Right now the XL user has to type
it in manually. If we could get it to automatically pop in the date, that
would be a huge timesaver.
Many thanks!

Alan

Myrna, I after reading it again you may be right, Alan if that is the case
try something like this for data in A1, will put date and time in

B1,put

in
worksheet code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
With Target
.Offset(, 1).Value = Now
.Offset(, 1).NumberFormat = "m/d/yy h:mm:ss AM/PM"
End With
End Sub

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **