Stumped Excel 365 userform listbox is not showing all data

[DThib]

Hello all,

I have a userform that populates a listbox with the data that matches another cells value. It runs and leaves option button for all results but not always the data from the cell it is recognizing Here is the code. I am thinking of putting in a delay to give the code time to trigger fully.

Sub Operate_Click()

  Dim MCCw As Worksheet
  Dim MCCp As ListObject
  Dim MCCRP As ListColumn
  Dim AGo, WAdress As String
  Dim AGoAs, rng, ra, qcell As Range
  Dim ADate As Date
  Dim rowct As Integer
 
      Set MCCw = ThisWorkbook.Sheets("MCC Projects")
      Set MCCp = MCCw.ListObjects("MCC_Projects")
      Set MCCRP = MCCp.ListColumns("Responsible person")
      
   'On Error GoTo Line23
    If PM_Name <> "" Then
          'MsgBox "You Got It!", vbCritical, "2nd Level of Buttons"
         AGo = PM_Name.Value
       With MCCw.Range("C:C")
         Set rng = .Find(What:=AGo, After:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
            
           If Not rng Is Nothing Then
            wAddress = rng.Address
            rowct = 0
            For Each qcell In MCCw.Range("C:C")
             If AGo <> "" Then
              If qcell = AGo Then
               ProjectIDs_LB.AddItem
               ProjectIDs_LB.List(rowct, 0) = qcell(rng.Row, -1).Value   'Product
               rowct = rowct + 1
              
               Set rng = .FindNext(rng)
              End If
             End If
            Next qcell
            
           ElseIf rng Is Nothing Then
            MsgBox "Name not found" & vbCrLf & "Try Again"
           End If
       End With
    ElseIf PM_Name = "" Then
       MsgBox "Add a name", vbCritical + vbOKOnly, "Here we go..."
    End If

End Sub

 

[6StringJazzer]

I am not clear on your question. Do you mean that you add several items in your AddItem call, but then you don't see them when in the actual ListBox on the form? You have an If statement there--how do you know what you are actually loading?

I cannot figure out what this phrase is supposed to means "leaves option button for all results but not always the data from the cell it is recognizing" How does this involve option buttons?

Whatever your problem is, adding a delay won't fix it. You have no external events here that would cause a timing issue. Your code does not need extra time to "trigger fully."

 

[DThib]

I have the listbox setup to have single select. I load it by identifying the common phrase for all examples and the result from a different column.
When I see the listbox result, I have option buttons with no data next to it and then some of them have the data next to them.
It is finding right amount of matches but not giving me the actual data in the cell it found.
Is that clearer?
The first If checks that you have entered a name (If PM_Name <> ""), the second is check that the name is found (If AGo <> "")

 

[DanteAmor]

How about:

Sub Operate_Click()
  Dim r As Range, f As Range, cell As String
 
  If PM_Name.Value = "" Then Exit Sub
  Set r = ThisWorkbook.Sheets("MCC Projects").Range("C:C")
  Set f = r.Find(PM_Name.Value, , xlValues, xlWhole)
  If Not f Is Nothing Then
    cell = f.Address
    Do
      ProjectIDs_LB.AddItem f.Offset(, -1)
      Set f = r.FindNext(f)
    Loop While Not f Is Nothing And f.Address <> cell
  End If
End Sub

If it is not what you need, then explain with a data sample (use XL2BB tool mini sheet), what you have in the textbox, what data you have in the sheet and what data you expect in the listbox.

 

[DThib]

There should be 3 entries that match.
Your code is clean, but nothing is triggered in the userform when I run it. It just sits there. The event "operate" is run through the Run Name button

My organization does not allow the tool to run but here is the arrangement.
Here are the 3 entries:

Project definition	Project Title	Responsible person
3-001696	mfgagag;akg;lfkg;dakg	Deborah Thibodeaux
3-001812	galsjg;ljfg;ldj;gjdfghkjghhgkahg	Deborah Thibodeaux
3-002389	gkafdkg4595tuq0gauwgireajgjg	Deborah Thibodeaux

 

[DanteAmor]

There are blank spaces on the right side of the name, correct those spaces and try again.

And change this:

ProjectIDs_LB.AddItem f.Offset(, -2)

 

[DThib]

Thank you!
Data is added by too many people, I think I will change the column of names to a dropdown list.
I was trying to adapt code I wrote for a far more complex pull and goofed up. I appreciate your help!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.