Auto-enter today's date with New Order Macro button?

OfficeNewb · #1 04-08-2016, 09:56 AM

Quote:

Yes? Where I'm getting hung up is where to add the code in my existing macro. Or can I tie it to that specific cell so that it auto-populates with the date??? (I am such a noob! Not really an Excel user, but tasked with creating this user form!!!)

The place where you want the date to show, is it a cell on worksheet or a control on the userform? Can you provide a screenshot? Thanks

barbd777 · #2 04-08-2016, 01:53 PM

Thank you, OfficeNewb, for your replies. It is a cell on a worksheet that is set up as an order entry form.

I did find my answer on another forum:
http://www.excelforum.com/excel-prog...ro-button.html

Code:

Sub StartNewRecord()
   Dim inputWks As Worksheet
   Dim listWks As Worksheet
   Dim rngClear As Range
   Dim rngNext As Range
   Dim rngID As Range
   Dim rngOrderDate As Range
   
   Set inputWks = Worksheets("Input")
   Set listWks = Worksheets("LookupLists")
   
   Set rngClear = inputWks.Range("DataEntryClear")
   Set rngID = inputWks.Range("IDNum")
   Set rngNext = listWks.Range("NextID")
   Set rngOrderDate = inputWks.Range("TodaysDate")
   
   rngClear.ClearContents
   rngID.Value = rngNext.Value
   rngOrderDate = Date
   
   inputWks.Activate
   rngID.Offset(1, 0).Activate

End Sub

Props to 6StringJazzer!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Show date instead of Today, Yesterday . .	BrazzellMarketing	Outlook	7	08-15-2013 07:32 AM
Today's Date Function	freschij	Excel	3	02-11-2011 10:21 AM
Creating an Auto-Calc'd Date? Today+7 Days?	SoCalTelephone	Word	0	10-06-2010 10:27 AM
new appointment date always reverts back to today's date	msills	Outlook	0	08-24-2007 08:57 AM
Imported message date change to today's date	promark	Outlook	1	12-23-2005 07:21 AM