Microsoft Office Forums - View Single Post - [Solved] Auto-enter today's date with New Order Macro button?

barbd777 · 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!