Can I do this?
Sure.
When you press the button, find the bottom of the data with
Private Sub CommandButton1_Click()
with Worksheets("Sheet2")
set rng = .Cells(rows.count,1).End(xlup)
End with
With worksheets("Sheet1")
rng.offset(1,0).Value = .Textbox1.Text
.Textbox1.Text = ""
rng.offset(1,1).Value = .Textbox2.Text
.Textbox2.Text = ""
End With
End Sub
--
Regards,
Tom Ogilvy
wrote in message
...
I created an input text boxes to collect name and social
security number on worksheet1. Then click on a command
button to transfer the name and SSN to worksheet2 and
then leave worksheet 1 blank for the next person to sign
up.
I want to use the single input form on worksheet 1 to
build a database on worksheet 2.
Can I do this?
Thanks
Jim
|