Add Row After Last Row

[sd2173]

Good evening all, any help appreciated.

I am rookie status with Excel programming and it has been a couple years since I have done anything, so forgive me...

I am trying to find the simplest way to add data obtained in a form (via user entry and button click) to the next row in a worksheet. Users will have listed in the form a 'name' and be asked to select from a combo box an 'intervention' and fill in a text box for 'comments'. Upon clicking I would like a new row to be added to a worksheet showing first, current date, then 'name', 'intervention', 'comment'.

I don't know why this is such a struggle for me to recall how to add to a running worksheet but any help is much appreciated.

Regards,
SD

 

[tlowry]

<!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:DoNotOptimizeForBrowser/> </w:WordDocument> </xml><![endif]--> ‘This will give you a idea of the procedure

‘Create a form with Textbox1, Textbox2 and CommandButton1
‘‘Put the following in the forms code module for the
‘ CommandButton1_Click()
‘--------------------------------------------
‘--------------------------------------------
‘--------------------------------------------
Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Value = "" Then Exit Sub
LastUsedCell = Range("A65536").End(xlUp).Row
Range("A1").Offset(LastUsedCell, 0).Value = UserForm1.TextBox1.Text
Range("A1").Offset(LastUsedCell, 1).Value = UserForm1.TextBox2.Text
End Sub
‘--------------------------------------------
‘--------------------------------------------
‘--------------------------------------------