Перенести данные из одной книги в другую

[DiemonStar]

Копируется таблица данных (с заголовками) удовлетворяющих условию. Обычный расширенный фильтр.

[CHIPATAM]

спасибо за помощь. вот только теперь у меня один вопрос, можно ли как-нибудь ограничить количество проверяемых столбцов? например сделать всего 10 ячеек? и если можно, то на этом коде покажите.

Sub пример3()
Dim x, i&, j&, n As Long

'With CreateObject("Scripting.Dictionary" )
' .CompareMode = 1
x = Range("J5").CurrentRegion.Value
For i = 5 To UBound(x, 1)
If Not IsEmpty(x(i, 10)) Then
n = n + 1
For j = 1 To UBound(x, 2)
x(n, j) = x(i, j)

Next j
End If
Next i

'x = Application.Transpose(Application.T ranspose(.Items))
Workbooks("Книга 2.xls").Sheets("Лист1").Range("B17" ).Resize(n, 6).Value = x
'End With

End Sub