A lot of assumptions.
Column B has the Yes or No and column A has the data
Try on copies of your workbooks
Sub Try_This()
Dim wb1 As Workbook, wb2 As Workbook, j As Long
Application.ScreenUpdating = False
Set wb1 = ThisWorkbook
Workbooks.Open Filename:="C:\Some Folder\TestFile.xlsx" '<----- Change path and file name as required
Set wb2 = ActiveWorkbook
For j = 1 To wb2.Sheets.Count
With wb2.Sheets(j).Range("A:B") '<----- Change range reference as required
.AutoFilter 2, "No"
.Range("A2:B" & .Cells(.Rows.Count, "B").End(xlUp).Row).SpecialCells(12).Copy wb1.Sheets(2).Range("A" & Rows.Count).End(xlUp)(2) '<----- Change sheet and range references as required
ActiveSheet.AutoFilterMode = False
End With
Next j
wb2.Close False
Application.ScreenUpdating = True
End Sub
Bookmarks