One way...With a helper column...
Sub J3v16()
Dim Chk, sNum As String
sNum = Range("B2") & Range("C2") & Range("D2") & Range("E2")
With Sheets("Inputs")
.Range("H2:H" & .Cells(.Rows.Count, 1).End(xlUp).Row).Formula = "=CONCATENATE(A2,B2,C2,D2,E2,F2)"
Chk = Application.Match(sNum, .Columns(8), 0)
If Not IsError(Chk) Then
Sheets("Check").Range("G2") = .Range("G" & Chk)
Else
MsgBox "This selection of numbers has not been entered yet", vbInformation, ""
End If
.Columns(8).ClearContents
End With
End Sub
Bookmarks