I guess your main problem is adding to the end.

Here is an example adding two textboxes to a sheet

With ActiveWorkbook.Worksheets("Sheet1")
cNextRow = .Cells(Rows.Count,"A").End(xlUp).Row + 1
.Range("A" & cNextRow).Value = Textbox1.Text
.Range("B & cNextRow).Value = Textbox2Text
End With

This code would go in the userform module, triggered by a commandbutton say.




Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"jimapos" wrote in message
...
I have a userform in a workbook and i want every time i fill in the form
1.to add a record in sheet1.xls (a1,b1.c1.d1.e1.and so on-in the same
workbook) 2.and the same info in another sheet2.xls (b5,c8.d9 and so on )
and then print sheet2.xls.
i know its a litlle bi tricky but can anyone help?
where can i find some userforms examples in the web