根据文本框值搜索列，并在列表框中显示所有结果

Question

I have a

ListBox = firmList; 
TextBox = firmGroupID; 
Worksheet = RelatedFirms; 
ColumnA = gID (ID numbers); 
ColumnB = firmName 

I am trying to populate my list box based on the value of firmGroupID.
Currently I have a combobox that populates the gID number in firmGroupID depending on combobox selection.

I would then like the firmList to populate with the list of firmNames based on the firmGroupID.

Sheet RelatedFirms contains the assigned gID for each firmName.

This seems simple but everything I try doesn't seem to work.

Not sure how to only show items in list box that have the value that equals gID.

Private Sub firmGroupID_Change()
    Dim rngName As Range
    Dim ws As Worksheet
    Dim i As Integer

    Set ws = Worksheets("RelatedFirms")
    For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row Step 1
        If ws.Cells(i, 1).Value <> vbNullString Then Me.firmList.AddItem
        ws.Cells(i, 1).Value   
        Next i
End Sub

Answer 1

Please change this code:

If ws.Cells(i, 1).Value <> vbNullString Then Me.firmList.AddItem ws.Cells(i, 1).Value

To

If ws.Cells(i, 1).Value = firmGroupID.Value Then Me.firmList.AddItem ws.Cells(i, 2).Value