Snasui Excel Forum

Code: Select all

   Private Sub cbPhase_Change()
    Dim myCell As Range
    Dim rngItems As Range
    Set rngItems = Sheet6.ListObjects("tbAllChecklist").ListColumns(6).DataBodyRange.Value
    Me.lbInitializeLeft.Clear
    Me.lbInitializeRightClear
    
    With Me.lbInitializeLeft
        .LinkedCell = ""
        .ListFillRange = ""
        For Each myCell In rngItems.Cells
            If Trim(myCell) <> "" Then
                .AddItem myCell.Value
            End If
        Next myCell
    End With

    Me.lbInitializeLeft.MultiSelect = fmMultiSelectMulti
    Me.lbInitializeRight.MultiSelect = fmMultiSelectMulti
End Sub

Code: Select all

'Other code
Dim processCode As String
Set rngItems = Sheet6.ListObjects("tbAllChecklist").ListColumns(5).DataBodyRange
Me.lbInitializeRight.Clear
Me.lbInitializeLeft.Clear
With Me.lbInitializeLeft
'        .LinkedCell = ""
'        .ListFillRange = ""
    For Each myCell In rngItems.Cells
        processCode = Application.WorksheetFunction.VLookup(cbProcess.Value, _
        Sheet7.ListObjects("tbProcessName").Range, 2, False)
        If Trim(myCell.Value) <> "" Then
            If myCell.Offset(0, -4).Value = processCode And _
                myCell.Offset(0, -2).Text = Me.cbPhase.Text Then
                .AddItem myCell.Value
            End If
        End If
    Next myCell
End With
'Other code