Add date to table using date picker in a userform

This should put the date chosen in the selected cells when you change the Date time picker.

Private Sub DTPicker1_Change()
    Selection.Value = DTPicker1.Value
End Sub

Originally Posted by Shellybelly

The thing is the rows in the table are added automatically using a user form a multi page userform. Once I keep adding data to the user form the rows increase by one.

Hi Shelly,
I'm not sure what you are saying. The original code you posted and I modified is event code that will run when you change the date on the date time picker. Changing the date triggers the code. What ever cells or cells are selected at the time you change the date in the date time picker should populate with the date you choose.

Not a problem, but I really need to see the workbook. Can you post a copy of it with just a little bit of dummy.

ViewPic

Okay I still don't get what you want.

I don't find a date time picker.

I see you have a multi tab form, there's a tab named Date with a combo box for picking the date. When I run the form and hit finish it puts the date chosen in column A of the Data Log sheet.

This line of code is what is putting the date on the sheet:

ThisWorkbook.Sheets("DATA LOG").Cells(nr, 1) = Me.cmbDate

Where is the date time picker and what is the issue with it?

Okay here's what I've found so far.

When I click on the INSERT SCHEDULE button the form opens on the Time In tab. I don't know if your actual file does that or not.

After you input data into this tab and press next the code sends it to the final tab where you enter data and click finish. Since there is quite a bit of data missing I get a new line with a lot of data, including the date missing on the data log sheet.

Your code however keeps the form open and selects the first tab which is the date tab. If I go through the process of entering data again, I have no problems because it goes through all the tabs and all data is entered correctly onto the form including the date. The date I get is the one I chose from the combo box and it's formatted d-mmm-yy.

So if the workbook you are using is different than the copy you are sending me then I can't tell you why you are getting 1/0/1900 as I am not getting that.

I did however learn something here, thanks for that.
If in your version the form is not opening on the first tab, the date tab then do this. Go to where you designed the form and you will see that in the design view the tab that is coming up when you run the form is probably the tab that is selected. Just click on the date tab so that is the tab that is selected and save the workbook. I found that whatever tab is selected in design view is the tab that the form opens with.

Regarding the date time picker I think maybe you just mistook the combo box control for the date time picker control. If you hover your mouse over each tool in the tool box you will get hover text showing you what each control is.

The issue with putting a date time picker on your form now is this. There are many places in your code where the combo box is referenced. Some of those would have to be changed, some would have to be deleted.

I could put one on the sheet you posted and fix all the code to make it work and post the file on this site. If you are going to then use that exact file you should be fine. If you are going to put a date time picker on your actual file and then replace the code in your actual file you would have to be careful to get all the code correctly edited/deleted.

Another option is you put a date time picker on your actual form, I post all the old code that needs to be changed or deleted with instructions to either change or delete and then you would have to carefully make those changes.

Let me know what you want to do, none of this is too much trouble for me, I just want you to be aware of what the issues are and the solutions that I can help you with.

Please read this whole post carefully and respond in detail as to if your sheet is different which tab comes up what you want to do etc.

Thanks.

Try this file.

If your original request is fulfilled please click the Thread Tools drop down box above your first post and choose solved.

If you are happy with my help, please consider clicking the add reputation button in the lower left hand corner of this post.

I'll post it again. I actually did very little to the file.

What do you mean by it erases all your contents. It erases everything from all sheets? Please be specific.

This one has a combo box, not a date time picker.

Thanks for the rep. points.