User Form - Code Needed

[HowdyTX]

I'm clueless - really. I was tasked with creating a user form that populates a spreadsheet. The trained person who was supposed to do this left the company abruptly. And so here I am... an English Lit major! I have created the form below by following various examples that I found online. But, now I need to add the code (? Not sure what that is) that will collect the data as the form is populated. Oh goodness, help!

Form:


Spreadsheet Data:

Excel Workbook
	A	B	C	D	E	F	G	H	I	J	K
1	ID	First Name	Last Name	Phone	Email	School	Teacher	Grade	Name of registered adult accompanying this student	Photo release signed and turned into teacher	Student may not be photographed
2	1	Joe	Smith	111-222-3333	jsmith@aol.com	Upper Side	Joe Teach	10	Jane Smith	No	No
3	2	Jane	Doe	444-555-6666	JDoe@yahoo.com	Lower School	Cool Prof	11	Cecilia Second	Yes	Yes
Registration

Thanks Everyone

 

[HowdyTX]

Hmm - I do not know why the picture of the form did not show up. Help.

 

[Smitty]

I do not know why the picture of the form did not show up.

You'll need to use an online site where you can store the image, then post the image link.

I take it that all of the elements in the screen shot are text boxes in the user form and you just need to transfer the data? If so here's a start:

<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButton1_Click()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, LastRow <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>        <SPAN style="color:#007F00">'   Find the first empty row to add new data</SPAN><br>        LastRow = Sheets("Registration").Cells(Rows.Count, "A").End(xlUp).Offset(1).Row<br>        <br>        <SPAN style="color:#007F00">'   Assumes you have 4 text boxes - Increase as necessary</SPAN><br>        <SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> 4<br>            <SPAN style="color:#007F00">'   This loops through the columns in the empty row and adds the value</SPAN><br>            <SPAN style="color:#007F00">'   from each successive Text Box to it</SPAN><br>            Sheets("Registration").Cells(LastRow, i).Value = Controls("TextBox" & i)<br>        <SPAN style="color:#00007F">Next</SPAN> i<br>        <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[HowdyTX]

This is an awesome start. Here's another attempt at posting a picture of the form. There will be one more button added - 'Exit' button that will close the form and return the user back to the 'registation' tab. The 'View Form' button will be removed from the user form.

I can't say enough about the generosity of this site. Everyone rocks!

http://i824.photobucket.com/albums/zz164/howdymc/th_userform.jpg