@Ali: as a complete PQ ignoramus, I would welcome instruction on how to address this using PQ. I have created tables in each sheet but where to go from here ...????
UPDATE: now managed to combine (append) thanks to "You Tube" !
Meanwhile a VBA offering
Sub Create_Summary()
Dim ar(), arr()
Dim ws As Worksheet
Dim Current As Worksheet
Set ws = Worksheets("Results")
n = 0
Criteria = Range("Criteria") ' Selection Citeria
' Loop through all of the worksheets in the active workbook.
For Each Current In Worksheets
If Current.Name <> "Results" Then
With Current
lr = .Cells(Rows.Count, 1).End(xlUp).Row
ar = .Range("A2:C" & lr)
For i = 1 To UBound(ar, 1)
If ar(i, 3) = Criteria Then ' Criteria Matched then ....
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = ar(i, 1) ' Store Client Number
End If
Next i
End With
End If
Next
ws.Range("B5:B100").ClearContents
ws.Range("B5").Resize(UBound(arr, 1), 1) = Application.Transpose(arr)
End Sub
Bookmarks