Adding user input to a table

[cainey1991]

Hi all,

I have created a user input form and I would like it so that when the user clicks the Save button of the form the details from that form are inputted to the bottom of a populated table

Example of user input text field names:
name
age
height

table name = table1

Any help would be greatly appreciated.

D

 

[ParamRay]

.
.

Try something like this:

Private Sub CommandButton_Save_Click()

    Dim NextCell As Range
    
    With ThisWorkbook.Worksheets("Sheet1")  'amend sheet reference accordingly
        Set NextCell = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) 'get next empty cell in column A
    End With
    
    With NextCell   'assign text box values to empty cell and adjacent cells
        .Offset(0, 0).Value = TextBox_Name.Value
        .Offset(0, 1).Value = TextBox_Age.Value
        .Offset(0, 2).Value = TextBox_Height.Value
    End With
    
End Sub

 

[cainey1991]

how would I work in my table name to this?
would this be the range?