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