Hi,

I have already the vba codes but i'm only using one criteria to lookup from another workbook or worksheet. so far this is working, but i would like to add additional criteria, " labels" and "qty".
may i ask your help guys on how to do this in vba macro or can you help me to modify this codes to provide the said requirements. thank you in advance.

Sub FilterAndEvaluate()
    Dim wsWork As Worksheet
    Dim wsSource As Worksheet
    Dim r As Long
    Dim tracking As String
    Dim trxn As String, labels As String
    Dim qty As Integer
    
    Set wsWork = ActiveWorkbook.Sheets("Intransit_")
    Set wsSource = ActiveWorkbook.Sheets("CoresStatus")
    
    'Remove the existing filter in WorkingFile sheet
    If wsWork.AutoFilterMode = True Then wsWork.AutoFilterMode = False
    
    r = wsWork.UsedRange.Rows.Count
    
    'AutoFilter data in column F of WorkingFile sheet
    wsWork.UsedRange.AutoFilter Field:=6, Criteria1:="IN-TRANSIT"
    
    'Loop through every row after filtering
    For i = 2 To r
        If wsWork.Rows(i).Hidden = False Then
        
            'Get Tranking #
            tracking = wsWork.Cells(i, 1).Value
            labels = wsWork.Cells(i, 2).Value ---add this criteria
            qty = wsWork.Cells(i, 3).Value---add this criteria
            
            'Find matched Tracking # in Source sheet
            Set rng = wsSource.UsedRange.Find(What:=tracking, LookAt:=xlWhole)
            If Not rng Is Nothing Then
                trxn = Trim(rng.Offset(0, 8).Value)
                
                'If the System Trxn is Done, set the status to be "RECEIVED"
                If trxn = "Done" Then wsWork.Cells(i, 6).Value = "RECEIVED"
            End If
        End If
    Next
    wsWork.AutoFilterMode = False
End Sub