Snasui Excel Forum

Code: Select all

Private Sub cbPhase_Change()
    Dim myList As String
    Dim myCell As Object
    Dim ChkList As Object
    Set ChkList = Sheet6.ListObjects("tbAllChecklist").ListColumns(4).DataBodyRange
    Me.lbInitializeLeft.Clear
    Me.lbInitializeRight.Clear
    For Each myCell In ChkList.Cells
        myList = Application.WorksheetFunction.VLookup(cbProcess.Value, Sheet7.ListObjects("tbProcessName").Range, 2, False)
        If Me.cbPhase = "All" And myCell.Offset(0, -3).Value = myList Then
            Me.lbInitializeLeft.AddItem myCell.row & " : " & myCell.Value
        End If
        If myCell.Offset(0, -3).Value = myList And myCell.Offset(0, -1).Text = Me.cbPhase.Text Then
            Me.lbInitializeLeft.AddItem myCell.row & " : " & myCell.Value
            '  Me.lbInitializeLeft.AddItem myCell.Value
        End If
    Next myCell
End Sub