-
1 Attachment(s)
Sending Data From User Form To First Empty Row Of Sheets
-
Code:
Private Sub CommandButton1_Click()
shname = ComboBox2.Text
With Sheets(shname)
LR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
.Cells(LR, 2) = ComboBox1.Text
.Cells(LR, 3) = TextBox1.Text
.Cells(LR, 4) = TextBox3.Text
.Cells(LR, 5) = ComboBox3.Text
.Cells(LR, 6) = ComboBox4.Text
.Cells(LR, 7) = TextBox5.Text
.Cells(LR, 8) = TextBox4.Text
End With
End Sub
-
very nice. Thank you
I have a further request please
1. can the code work in a way so that the userform must be filled in from the top box (date) in order to the bottom box (comment).Options in the drop-down lists are only visible if the box above has an entry.Example:To see any names in the Trainer drop-down list is only visible if the date box has been filled
2. The information can only be transferred if all box`s in the userform are filled in
3. Once info transferred then the userform data is deleted but the userform remains open
Any help again appreciated
Regards
Paul
-
Code:
Private Sub CommandButton1_Click()
If ComboBox1.Text = "" Or TextBox1.Text = "" Or TextBox3.Text = "" Or _
ComboBox3.Text = "" Or ComboBox4.Text = "" Or TextBox5.Text = "" Or _
ComboBox2.Text = "" Then
MsgBox "some box empty"
Exit Sub
End If
shname = ComboBox2.Text
With Sheets(shname)
LR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
.Cells(LR, 2) = ComboBox1.Text
.Cells(LR, 3) = TextBox1.Text
.Cells(LR, 4) = TextBox3.Text
.Cells(LR, 5) = ComboBox3.Text
.Cells(LR, 6) = ComboBox4.Text
.Cells(LR, 7) = TextBox5.Text
.Cells(LR, 8) = TextBox4.Text
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox3.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
TextBox5.Text = ""
TextBox4.Text = ""
End With
End Sub
-
1 Attachment(s)
Thank you Patel :)
Well Done !!
Could you please have a look to the attached file, I had added new userform to be used for serching and modifying the entered data.
It would be appreciated if you helped me how to import the entered data from the table on the sheet to the listbox to be modified, and what is the code for accept changes and export the data again to the same table on the sheet.
Thank you in advance for your geart efforts.
Attachment 1051
-
Thanks Patel
Hi mams323
I do not mind if you use my spreadsheet but you may get more responces if you start your own thread
Thanks
Paul
-
Dear Paul,
First I would like to thank you for your kind understanding.
Actually I found your spreadsheet very useful to descripe my problem.
I was supposed to ask you first to allow me before using your file, really I am sory for that.
Appreciated.
Dear Patel,
Please ignore my request
Thank You All.
M. Sabra (mams323)
-
Hi M. Sabra
You are most welcome to use the spreadsheet anytime to suit your needs but i just thought you might get a better responce to your question if you started your own thread using the spreadsheet.
Good luck with your project
Paul
-
Dear Paul,
Thank you for your kind understanding.
;)
M. Sabra
-
1 Attachment(s)
Paul, some coding tips
1.Preferably use the List-method to fill Combobox instead of AddItem-method
2.Much easier way to check for user-input is to use the Tag-proprty of each object. Especially when using larger amounts of objects on your userform it's much more compact than listing them one by one.
3.Write data in one time to sheet instead of writing them object by object.
4.Use TypeName-properety to clear fields instead of listing them one by one and clearing.
Remember that every line of code has to be read before execution so the less lines in your code the faster it will be executed.
-
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
-
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
-
1 Attachment(s)
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
-
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 ??
-
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
-
Code:
.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)
-
Thanks bakerman for all your help
-
1 Attachment(s)
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.
-
If you want to show user form once the file opened you just need to do:
- Press Alt + F11 to go to VBA window
- Left hand side there is Project explorer window if you can't see it press Ctrl + R
- Double Click on ThisWorkBook and paste below code
Code:
Private Sub Workbook_Open()
UserForm1.Show
End Sub
:cheers:
-
1 Attachment(s)
Staff Details Form
Thank you LalitPandey87 :thumbsup:
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
-
1 Attachment(s)
Try this one.
If it doesn't suit your needs it's better to start your own thread so the question is picked up by more people, you might be helped sooner.
-
Well Done !! :applause:
Thank you Bakerman..
This is exactly what I need.
I wish you all the best :)
M.Sabra
