Отфильтровать строки без применения фильтра

[nilem]

Попробуйте выставить даты и нажать зеленую стрелку.

[Severny]

nilem, спасибо Вам большое!
Логику Вашего макроса я кажется понял. Но наверное я допустил большую ошибку в своем смоделированом файле-примере. И все было бы очень хорошо если не разное количество столбцов в исходной и результирующей таблице. Как то это можно обойти?

[nilem]

Сообщение от Severny

...если не разное количество столбцов в исходной и результирующей таблице. Как то это можно обойти?

Обходить не будем, айда напролом

[Severny]

Самое оно, спасибо! Осталось преложить все на мой реальный пример nilem, а можно Вас попросить объяснить что выполняот следующие части кода:

With [b3].CurrentRegion
    .Offset(, 12).Resize(, 5).Clear
    ......
    Union(.Columns(1).Resize(, 2), .Columns(4), .Columns(7).Resize(, 2)).SpecialCells(12).Copy [n3]
    .AutoFilter
End With

[nilem]

With [b3].CurrentRegion
Попробуйте встать на В3, жмем F5 - Выделить - Текущую область - Ок. То, что будет выделено на листе, - это и есть [b3].CurrentRegion.

.Offset(, 12).Resize(, 5).Clear
Смещаемся от [b3].CurrentRegion на 12 столбцов вправо, уменьшаем размер до 5 столбцов и очищаем. Т.е. очищаем правую табличку со старыми данными.

Union(.Columns(1).Resize(, 2), .Columns(4), .Columns(7).Resize(, 2)).SpecialCells(12).Copy [n3]
(строчка неудачная, прямо скажем, но лучше не придумалось. Может, кто подскажет?)
После применения фильтра нужно скопировать левую табличку, но не все строки, а те, которые отфильтровались, т.е. видимы (SpecialCells(12)), и не все столбцы, а только 1, 2, 4, 7, 8. Копируем в диапазон, начиная с n3 (левая верхняя ячейка целевого диапазона).

.AutoFilter - снимаем фильтр с [b3].CurrentRegion.

[Severny]

Еще раз спасибо! Пошел разбираться!