Sending Data From User Form To First Empty Row Of Sheets

[paul_pearson]

Hi Bakerman

Thank you .. very good and i like your version.are you a programmer or have you taught yourself VBA

I am not very experienced yet at code but can the Time Off and Time On accept a number.I put in say 30 for Time On and 30 for Time Off but it shows 0.00 in the spreadsheet they are transferred to?

Also can there be a pop up message that a comment also must be made before sending the info

Best Regards

Paul

[bakerman]

Dear Paul

No, i'm self taught and learning heaps more every day. My username explains my profession clearly I guess

To include Comments with the mandatory fields goto userform designmode and select Textbox5 (comments box). Then in the Propertieswindow(bottom left window) scroll down to the Tag-property and put your message between double-quotes. Check the other objects for comparison. When sending all data the Comments-field is included in the Check Userinput loop of the code.

About your other question, what do Time - On and Time- Off represent ? Is it actual times or ... ? What do you want to see on your spreadsheet when 30 or another number is put in and data is transferred ?

I apologize for not immediatly understanding your question but English is not my native language and it's a bit rusty (quite a few years done with school so )

Regards

[paul_pearson]

Thank you Bakerman

Please see attached.I entered in the userform 30 for Time On and 50 for Time Off but it displays 0.00 and 0.00 for Greg

Thank you again

Paul

[bakerman]

OK, but what do you actually wanna see on your spreadsheet when you enter these numbers ?? It's probably a simple format issue but which format do you require ??

[paul_pearson]

If i put 30 in the userform for Time Off i then want to see 30 in the spreadsheet for Time Off.....if i put 50 in userform for Time On then i want to see 50 in the spreadsheet for Time On...thanks

[bakerman]

       .Cells(.Cells(.Rows.Count, "B").End(xlUp).Row + 1, 2).Resize(, 7) = Array(ComboBox1.Value, CInt(TextBox1.Text), _
            TextBox3.Text, ComboBox3.Value, ComboBox4.Value, CInt(TextBox5.Text), TextBox4.Text)

[paul_pearson]

Thanks bakerman for all your help

[mams323]

Dear Bakerman,

Nice to see you again ;-)

Kindly find the attached file, I had prepared a Username and password form and what I want is ((to show the Userform once the file opened)) !!
Please note that the default user name is Fox and the Default Password is aa

Thank you in advance for your usual support.

[LalitPandey87]

If you want to show user form once the file opened you just need to do:

1. Press Alt + F11 to go to VBA window
2. Left hand side there is Project explorer window if you can't see it press Ctrl + R
3. Double Click on ThisWorkBook and paste below code

Private Sub Workbook_Open()

    UserForm1.Show

End Sub

[mams323]

Thank you LalitPandey87

I have another issue:

Kindly be informed that I want to prepare enquiry form for staff detais, and I faced a problem with importing data from the listbox to the textboxes !! Also I don't konw hoe enable modifications and export the modified fields to the sheet again.

Please have a look to the attached file which include the from with some more detais about my needs.

I really appreciate your kind efforts

Thank you

M. Sabra