Populate User Form Text Box with Data from Last Row of Table Column

[dslaugh]

Hello, as the title says, I would like to populate the text box of a UserForm1 data from the last row of the first column of the active worksheets table. The commented-out section is what I'm having a problem with. I want to pre-populate a couple textboxes in the form with editable data, and allow the user to finish the form, and post any changes within that same row.

Sub ShowForm_Initialize()

Dim wb As Workbook
Dim ws As Worksheet
Dim NewRow As ListRow
Dim tbl As ListObject
Dim frm As UserForm1

Set wb = ThisWorkbook
Set ws = wb.Sheets("FY")
Set tbl = ws.ListObjects("Data")
    Set NewRow = tbl.ListRows.Add

With NewRow
.Range(6) = Now()
.Range(5) = tbl.DataBodyRange.Rows.Count
.Range(1).Value = NewRow.Range(4).Value & "-" & "DCATL" & "-" & NewRow.Range(3)
End With

'With frm
' .ShipmentIDTextBox.Value = tbl.DataBodyRange(??, 1).Value
'End With

UserForm1.Show

End Sub

Thank you,
Dan

 

[Fluff]

Hi & welcome to MrExcel.
Are you trying to get the value from the new row, or the previous row?

 

[dslaugh]

From the new row that was just created.

 

[Fluff]

In that case how about

UserForm1.ShipmentIDTextBox.Value = NewRow.Range(1).Value

 

[dslaugh]

Thanks Much Fluff! That does just what I wanted!

 

[Fluff]

You're welcome & thanks for the feedback.