Concept only.
Sub FindValues()
Dim lookUpSheet As Worksheet, updateSheet As Worksheet
Dim valueToSearch As String
Dim i As Integer, t As Integer
Dim cKNum As Integer
Dim shpNum As Integer
Set lookUpSheet = Worksheets("Scanned")
Set updateSheet = Worksheets("Shipped")
Set cKNum = updateSheetSheet(t, 12)
Set sHipNum = updateSheet(t, 16)
'get the number of the last row with data in Scanned and in Shtpped
lastRowLookup = lookUpSheet.Cells(Rows.Count, "A").End(xlUp).Row
lastRowUpdate = updateSheet.Cells(Rows.Count, "B").End(xlUp).Row
'for every value in column A of Scanned
For i = 1 To lastRowUpdate
valueToSearch = updateSheet.Cells(i, 1)
'look for the match in column B of Shipped
For t = 2 To lastRowLookup
'if found a match, add I to cKNum value and proceed to the next value
If lookUpSheet.Cells(t, 2) = valueToSearch Then
cKNum = cKNum +1
If cKNum = shipNum Then
‘Look for next match
Next t
Else
Msgbox “Only 1 Match Found”
End If
Exit For
End If
Next t
Next i
End Sub
I'm sure someone will tell me I've got it wrong.