I need some coding help with a data entry form I've downloaded from contextures.com and customized for our company use. Sheet 1 (Input) is the data entry form, sheet 2 (RequestData) is the database sheet, sheet 3 (LookupLists) is for...Lookup Lists! Internal clients will fill out the form on sheet 1 (which is all they'll be able to see); then when they Submit the form, the data enters to sheet 2, and all the fields on sheet 1 clear for next use. I've gotten everything to work the way it's supposed to, but now I want to change/add a few functionalities and can't seem to find exactly what I'm looking for out on the web or in these forums. (I'm sure it's fairly simple if you have the coding knowledge!)

I have a "New Order" button on the data entry sheet that automatically pulls the next Order ID from a Lookup List on sheet3 and places it in the 1st field on the form. What I'd like to add to that macro is the code to automatically place today's date in the next field.

IDNum is the name of the Order ID field, NextID is the field name that it pulls from on LookupLists, using the formula:
=IFERROR(MAX(RequestData!C:C)+1,0)

I guess I would need to name the date field, i.e. "TodaysDate"? Would it also pull from info/formula added on LookupLists?

Thanks for any help you can offer!!!

Here's the macro code currently attached to that button:

Sub StartNewRecord()
Dim inputWks As Worksheet
Dim listWks As Worksheet
Dim rngClear As Range
Dim rngNext As Range
Dim rngID 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")

rngClear.ClearContents
rngID.Value = rngNext.Value

inputWks.Activate
rngID.Offset(1, 0).Activate

End Sub

Hello -

In order to insert the current date into a cell you could use:

For your specific scenario you will first need to make reference to the cell where you want to place the current date. For example, if the date field is called "cDate" then your code would look like this.

Thanks for the suggestion, OfficeNewb! I have named that field TodaysDate, so it would be:

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!!!)

Thanks much for your assistance,
barbd

@barbd777

Please wrap code with code tags - Thank you

__________________
Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post

Sorry about that, Pecoflyer--(I really am a newbie!) Do I need to edit my original post? (Not seeing any Edit button?)

Thanks,
barbd

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

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

Props to 6StringJazzer!