This should have been easy for me to figure out but I couldn't do it. I'm
just trying to have a cell auto-populate with the current date. I can't use
the =today() function on the sheet because it changes the date on old copies
when they are opened. I would like this to be a workbook_open macro that
works with the one I have below to advance invoice dates. The cell I would
like the date to populate in is M13. Thank, Duane.

Private Sub Workbook_Open()
Range("m3").Value = Range("m3").Value + 1
End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200708/1

give this a try

Range("m3").Value = Date

Paul B

"DDub207 via OfficeKB.com" <u36243@uwe> wrote in message
news:760baa1848918@uwe...
> This should have been easy for me to figure out but I couldn't do it. I'm
> just trying to have a cell auto-populate with the current date. I can't
> use
> the =today() function on the sheet because it changes the date on old
> copies
> when they are opened. I would like this to be a workbook_open macro that
> works with the one I have below to advance invoice dates. The cell I
> would
> like the date to populate in is M13. Thank, Duane.
>
> Private Sub Workbook_Open()
> Range("m3").Value = Range("m3").Value + 1
> End Sub
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...mming/200708/1
>

Duane,

To put the current date in M3:

Range("m3").Value = Date


--
Hope that helps.

Vergel Adriano


"DDub207 via OfficeKB.com" wrote:

> This should have been easy for me to figure out but I couldn't do it. I'm
> just trying to have a cell auto-populate with the current date. I can't use
> the =today() function on the sheet because it changes the date on old copies
> when they are opened. I would like this to be a workbook_open macro that
> works with the one I have below to advance invoice dates. The cell I would
> like the date to populate in is M13. Thank, Duane.
>
> Private Sub Workbook_Open()
> Range("m3").Value = Range("m3").Value + 1
> End Sub
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...mming/200708/1
>
>

I presume if m13 already has something in it, it's an "old copy", so you
wouldn't want to put the date in if there's already something in m13. This
just adds the date to m13 if it's empty.
HTH, James

Private Sub Workbook_Open()
Range("m3").Value = Range("m3").Value + 1
If Range("m13") = "" Then Range("m13") = Now
End Sub

"DDub207 via OfficeKB.com" <u36243@uwe> wrote in message
news:760baa1848918@uwe...
> This should have been easy for me to figure out but I couldn't do it. I'm
> just trying to have a cell auto-populate with the current date. I can't
> use
> the =today() function on the sheet because it changes the date on old
> copies
> when they are opened. I would like this to be a workbook_open macro that
> works with the one I have below to advance invoice dates. The cell I
> would
> like the date to populate in is M13. Thank, Duane.
>
> Private Sub Workbook_Open()
> Range("m3").Value = Range("m3").Value + 1
> End Sub
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...mming/200708/1
>

Thanks... It works.

Paul B wrote:
>give this a try
>
>Range("m3").Value = Date
>
>Paul B
>
>> This should have been easy for me to figure out but I couldn't do it. I'm
>> just trying to have a cell auto-populate with the current date. I can't
>[quoted text clipped - 9 lines]
>> Range("m3").Value = Range("m3").Value + 1
>> End Sub

--
Message posted via http://www.officekb.com

Thanks... It works.

Vergel Adriano wrote:
>Duane,
>
>To put the current date in M3:
>
>Range("m3").Value = Date
>
>> This should have been easy for me to figure out but I couldn't do it. I'm
>> just trying to have a cell auto-populate with the current date. I can't use
>[quoted text clipped - 6 lines]
>> Range("m3").Value = Range("m3").Value + 1
>> End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200708/1

Thanks for your help.

Zone wrote:
>I presume if m13 already has something in it, it's an "old copy", so you
>wouldn't want to put the date in if there's already something in m13. This
>just adds the date to m13 if it's empty.
>HTH, James
>
>Private Sub Workbook_Open()
>Range("m3").Value = Range("m3").Value + 1
>If Range("m13") = "" Then Range("m13") = Now
>End Sub
>
>> This should have been easy for me to figure out but I couldn't do it. I'm
>> just trying to have a cell auto-populate with the current date. I can't
>[quoted text clipped - 9 lines]
>> Range("m3").Value = Range("m3").Value + 1
>> End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200708/1