Pull information from selected row via listbox

[ecalid]

Good morning all,

I once again could use your assistance with something.

So I am trying to build a 'briefing generator' and I am missing a piece of the puzzle.

I am using the following code to pull our incident codes from a column in a table, into a listbox.

I need to be able to populate textbox fields with the information found on the row which corresponds with the selection found in the listbox.

So if column 1 is populating the listbox, I need column 2, 3 and 4 to populate the textboxes with the row address within the listbox selection.

Private Sub CommandButton2_Click()


UserForm1.Show


   Dim tbl As ListObject
    Dim rng As Range
    Set tbl = ActiveSheet.ListObjects("Table6")
    Set rng = tbl.ListColumns(1).DataBodyRange


    Dim cl As Range
    For Each cl In rng
        UserForm1.ListBox1.AddItem (cl.Value)
    Next
End Sub

Any help you could provide on this would be extremely helpful.


Many thanks in advance.

[Paul_Hossler]

Attach a small workbookwith some data, the userform and your macros

[ecalid]

Thanks Paul_Hossler

Please see attached

[Dave]

Hi ecalid. Not much luck with this one. This seems to work. HTH. Dave
Userform1 code...

Private Sub ListBox1_Click()
Dim tbl As ListObject
Set tbl = Sheets("Briefing").ListObjects("Table6")
'column D
UserForm1.TextBox4.Text = _
          Intersect(tbl.ListRows(UserForm1.ListBox1.ListIndex + 1).Range, tbl.ListColumns(3).Range).Value
'column G
UserForm1.TextBox1.Text = _
          Intersect(tbl.ListRows(UserForm1.ListBox1.ListIndex + 1).Range, tbl.ListColumns(5).Range).Value
'column E
UserForm1.TextBox3.Text = _
          Intersect(tbl.ListRows(UserForm1.ListBox1.ListIndex + 1).Range, tbl.ListColumns(4).Range).Value
'column I
UserForm1.TextBox2.Text = _
          Intersect(tbl.ListRows(UserForm1.ListBox1.ListIndex + 1).Range, tbl.ListColumns(8).Range).Value
'column J
UserForm1.TextBox5.Text = _
          Intersect(tbl.ListRows(UserForm1.ListBox1.ListIndex + 1).Range, tbl.ListColumns(9).Range).Value
End Sub