Copying data from a textbox to the bottom of a table

[dpaton05]

I have a table and two text boxes and I want to be able to write a name and a price in them, then press a button and copy them to a table on another sheet. The table name is: Services.

I started with this code, I thought I needed to dim a few variables to hold the values of the text boxes first so I started with this code:

Private Sub cmdAddNewService_Click()
    Dim NewName As String
    Dim NewPrice As String
    
NewName = txtName.Value
NewPrice = txtPrice.Value


End Sub

I know that there is more code needed but I didn't know how to write it. The table is called ServicePrices and the column names are Description and Unit_Price. I have two text boxes that I want be able to enter a new service and the price and add it to the bottom of the table. Could someone help me with the extra code please?

 

[My Aswer Is This]

You said:

The table name is: Services.

But then said:

The table is called ServicePrices

Well my script assumes the Table name is

ServicePrices

You said Table is on another sheet but did not name the sheet.
My script assumes the sheet name is "Help"

I also assume ​

Name goes in column 1 of Table and price goes in column 2 of Table

If these assumptions are not correct modify the script

See when asking for help we always need specific details.

And when you say Table I assume you mean A Excel Table and not a Excel sheet.

Try this:

​

Private Sub CommandButton1_Click()
'Modified  12/18/2018  11:24:48 PM  EST
Dim ans As Long
With Sheets("Help").ListObjects("ServicePrices").DataBodyRange
    ans = .Rows.Count + 1
    .Cells(ans, 1).Value = txtName.Value
    .Cells(ans, 2).Value = txtPrice.Value
End With
End Sub

​

 

[dpaton05]

Thanks, that is perfect.

Sorry I forgot to specify the correct names etc.

I now need a way to delete services. I was going to add a combo box which would allow a selection of a service. I then was going to add a button to delete the record of the service name selected. What settings would I need to change on the combo box and what code would i need to delete the record.

The table name where the data is kept is called ServicePrices, the sheet name where the table is kept is called Data. Hope I have included everything.

Thanks