Listbox on Userform and a worksheet Excel VBA

[DThib]

Arrgh!,

Last code for this complex thing.
My quandary is using the TextBox (SPR_IDTB) from a userform to populate a ListBox on the userform.
If the matching ID (SPR_IDTB) is found, pull the value in the same row from column A and from Column J. End after searching 1 worksheet. TextBox value is in row B.

Best guess at this point:

Sub Reslcomm_TB_Change()
   
    Dim c As Range
    Alcomm_LB.Clear
    For Each c In Sheets("Assigned").Range("B:B").End(xlUp)
        If c.Value = SPR_IDTB.Value Then
            Alcomm_LB.AddItem c.Offset(, 12).Value
            Alcomm_LB.AddItem c.Offset(, -1).Value
            Alcomm_LB.List(Alcomm_LB.ListCount - 1, 1) = c.Offset(, 1).Value
        End If
    Next


End Sub

DThib

 

[Fluff]

Glad you figured it out & thanks for the feedback

 

[DThib]

OK. I tried. I get information but I also get a lot of extraneous information.

The test should only, at most, generate 4 lines. These entries match the SPR_IDTB value.

I keep getting extraneous information that list all entries in the worksheet.

Any ideas?

Sub Lister()
   
    Dim c As Range


     For Each c In Sheets("Resolved").Range("B2", Sheets("Resolved").Range("B" & Rows.Count).End(xlUp))


            Reslcomm_LB.AddItem c.Offset(, -1).Value
            Reslcomm_LB.List(Reslcomm_LB.ListCount - 1, 1) = c.Offset(, 8).Value


    Next


End Sub

 

[Fluff]

That's because you have removed the code that checks if the cell value equals the textbox value.

 

[DThib]

Blonde mistake.

Thanks for catching it.
Works now

 

[Fluff]

We all have them