Generating date

Flash2002 · Mar 15th, 2002, 08:06 AM

Hello,

I'm having a little problem generating a date.

What I would like to do, is the following.

When an article number is entered in cell A1, I want today's date to be generated in cell A2.
I do not want this date to be changed automatically the next day, the date has to remain the same as long as there is an article number in cell A1.

Is there any way to do this ?

Best regards

Frits Jager

Dave Hawley · Mar 15th, 2002, 08:10 AM

Hi Frits

If you right click on the sheet name tab and select "View Code" you can paste in this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("A2") = Date
End Sub

Flash2002 · Mar 17th, 2002, 11:57 PM

Hello,

Thanks for your help, I will give it a try.

Best regards,
Frits Jager

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 15th, 2002, 08:06 AM	#1
Flash2002 New Member Join Date: Mar 2002 Posts: 4	Hello, I'm having a little problem generating a date. What I would like to do, is the following. When an article number is entered in cell A1, I want today's date to be generated in cell A2. I do not want this date to be changed automatically the next day, the date has to remain the same as long as there is an article number in cell A1. Is there any way to do this ? Best regards Frits Jager

Mar 15th, 2002, 08:10 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi Frits If you right click on the sheet name tab and select "View Code" you can paste in this: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("A2") = Date End Sub

Mar 17th, 2002, 11:57 PM	#3
Flash2002 New Member Join Date: Mar 2002 Posts: 4	Hello, Thanks for your help, I will give it a try. Best regards, Frits Jager