You might be referring to the cell next to the listing, in which case
Dim ws As Worksheet
Private Sub ComboBox1_Change()
Me.TextBox1.Value = ws.Range("TemplateHdr").Cells(Me.ComboBox1.ListIndex + 1, 1).Offset(0, 1)
End Sub
Private Sub CommandButton2_Click()
ws.Range("TemplateHdr").Cells(Me.ComboBox1.ListIndex + 1, 1).Offset(0, 1) = Me.TextBox1.Value
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
'TextBox1.Value = Application.VLookup(ComboBox1.Value, Sheets("sheet1").Range("Q1:R40"), 1, 0)
'TextBox1.Value = ComboBox1.Value
End Sub
Private Sub UserForm_Initialize()
Set ws = Worksheets("Sheet1")
Me.ComboBox1.List = ws.Range("TemplateHdr").Value
End Sub
Bookmarks