combo box list and text box displaying

[VBAer]

im kinda still new to VBA and need some help with the coding 0

i need to make a combo box that lists all items in column A where the user can add to the list (on excel sheet) and have it auto update. once the user selects an item, i want to have a text box show the data in the cell to the right of the item (cell) selected.

im just really new and not exactly how to set up the range with lastrow and xlup, as well as the offset (1,0) or offset (0,1)

thank you in advance for your help.

 

[VBAer]

i found the answer to my own question... here is the answer for anyone that might find this

Private Sub UserForm_Initialize()
Dim i As Long
Dim LastRow As Long
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
LastRow = ws.range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
Me.ComboBox1.AddItem ws.Cells(i, "A").Value
Next i
End Sub
Private Sub ComboBox1_Change()
Dim i As Long
Dim LastRow As Long
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
LastRow = ws.range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If (Me.ComboBox1.Value) = ws.Cells(i, "A") Then
Me.TextBox1 = ws.Cells(i, "B").Value
End If
Next i


End Sub