Hi All,
Created and ran a macro code, it did what required but took 90minutes to run through, for future reference could there have been quicker way of doing this?
Sub qa_check()
Dim rngSku As Range, rngQa As Range, wrkThis As Workbook, wrkQA As Workbook
Dim rngHaz As Range, rngDestn As Range
Application.Calculation = xlCalculationManual
Set wrkThis = ThisWorkbook
Set wrkQA = Workbooks("QAWorkflowDeptGreaterThan500.csv")
Set rngQa = wrkQA.Sheets("QAWorkflowDeptGreaterThan500").Range("A:A")
For Each rngSku In wrkThis.Sheets(1).Range(Cells(2, 1), Cells(2, 1).End(xlDown)) ' Has 43000 unique records
With rngQa
On Error Resume Next
Set rngHaz = .Find(rngSku, , , xlWhole).Offset(, 1).Resize(, 14) ' Has 147000 unique records to search through
On Error GoTo 0
If Not rngHaz Is Nothing Then
Set rngDestn = rngSku.Offset(, 1).Resize(, 14)
rngHaz.Copy rngDestn
End If
End With
Set rngHaz = Nothing
Next rngSku
Application.Calculation = xlCalculationAutomatic
End Sub