Excel 2007 : Attempting to Create excel 2007 UserForm

I have 25 text boxes. All i need it to do is dump the info into the first empty row.

1 button to close
1 button to submit the info

No text boxes have been renamed from default, No merged cells, No gaps in colums etc.. but i apparently don't understand how to get this done ! Help would be greatly appreciated! Thank you in advance

Private Sub cmdClose_Click()
Unload Me
End Sub


Private Sub CommandButton2_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row


'copy the data to the database
ws.Cells(iRow, 1).Value
ws.Cells(iRow, 2).Value
ws.Cells(iRow, 3).Value
ws.Cells(iRow, 4).Value
ws.Cells(iRow, 5).Value
ws.Cells(iRow, 6).Value
ws.Cells(iRow, 7).Value
ws.Cells(iRow, 8).Value
ws.Cells(iRow, 9).Value
ws.Cells(iRow, 10).Value
ws.Cells(iRow, 11).Value
ws.Cells(iRow, 12).Value
ws.Cells(iRow, 13).Value
ws.Cells(iRow, 14).Value
ws.Cells(iRow, 15).Value
ws.Cells(iRow, 16).Value
ws.Cells(iRow, 17).Value
ws.Cells(iRow, 18).Value
ws.Cells(iRow, 19).Value
ws.Cells(iRow, 20).Value
ws.Cells(iRow, 21).Value
ws.Cells(iRow, 22).Value
ws.Cells(iRow, 23).Value
ws.Cells(iRow, 24).Value
ws.Cells(iRow, 25).Value

'clear the data
Me.TextBox1.Value = ""
Me.TextBox1.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox12.Value = ""
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
Me.TextBox15.Value = ""
Me.TextBox16.Value = ""
Me.TextBox17.Value = ""
Me.TextBox18.Value = ""
Me.TextBox19.Value = ""
Me.TextBox20.Value = ""
Me.TextBox21.Value = ""
Me.TextBox22.Value = ""
Me.TextBox23.Value = ""
Me.TextBox24.Value = ""
Me.TextBox25.Value = ""
Me.TextBox1.SetFocus

End Sub

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Please Login or Register  to view this content.

Sorry, didnt realize it was that big of a deal.


Guess i should be a little more specific as to what my final objective is.

I have a total of 7 different sheets that are being used for data entry, which is what the 25 texts boxes are for. (sheets 2-8 are for the data entry)

Then i have a 8th sheet which i'm wanting to set up to access the information in the other 7 pages (which are ordered by column) on this 8th page i'm wanting it to be able to sort through the accumulated information by specific columns to retrieve the requested test results then using that information called up calculate an Average, Standard Deviation, and the results that are outside of allowed tollerances, as well as create 2 graphs out of the information.. if i just spoke some foriegn language let me know and i really do appreciate any forth coming help!