This must be really easy, but just don't know how to do it. I have a form
with 3 text input fields. I want to save inputs to "table1" first empty row
to column A, B and C.
--
-Sam

Hello Sam
With Worksheets("Sheet1")
..Range("A65536").End(xlUp)(2).Value = TextBox1
..Range("B65536").End(xlUp)(2).Value = TextBox2
..Range("C65536").End(xlUp)(2).Value = TextBox3
End With
HTH
Cordially
Pascal

"Sam" a écrit dans le message de news:
...
This must be really easy, but just don't know how to do it. I have a form
with 3 text input fields. I want to save inputs to "table1" first empty
row
to column A, B and C.
--
-Sam

With Worksheets("Sheet1")
cLastRow =.Cells(Rows.Count).End(xlUp).Row
If cLastRow = 1 And .Range("A1")="" Then
Else
cLastRow = cLastRow + 1
End If
.Cells(cLastRow,"A").Value = Textbox1.Text
.Cells(cLastRow,"B").Value = Textbox2.Text
.Cells(cLastRow,"C").Value = Textbox3.Text
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Sam" wrote in message
...
This must be really easy, but just don't know how to do it. I have a form
with 3 text input fields. I want to save inputs to "table1" first empty
row
to column A, B and C.
--
-Sam