Копирование столбцов по определенному условию

[СтаСС]

В очередной раз зашел в тупик и вынужден обратиться за помощью к специалистам.
Есть лист в котором более 12-и тысяч заполненых столбцов (каждый день снизу добавляется новая строка) и нужно скопировать на отдельный лист только те столбцы в которых за последний (определенный) период допустим число 100 встречается не менее определенного количества раз. Чтоб было понятней: если брать прикрепленный пример то допустим надо скопировать только столбцы в которых за последние десять дней (строки с 20 по 29) число 100 встречается не менее 5-и раз (в примере этому условию отвечают и должны копироваться на лист2 столбцы: B, E, P и Y).
Как это реализавать даже незнаю.. просмотрел много тем и здесь на форуме и в интернете но ничего похожего не увидел. Очень надеюсь на вашу помощь т.к. самому мне не справиться даже с бубном и танцами...

[SAS888]

Посмотрите пример во вложении.
Надеюсь, что все понятно.

[СтаСС]

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

Посмотрите пример

Супер! Чесно говоря небыл уверен что найдется решение. Огромное СПАСИБО!!!

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

Надеюсь, что все понятно

Вот тут Вы мне явно льстите... нет, как менять данны конечно понятно и сделано ОЧЕНЬ удобно.. а вот где сам макрос находится воообще не понял, там где обычно макросы его вроде нет.. в исходном тексте как бы тоже.. Сорри за тупизм но что мне и как перекинуть на рабочую книгу загадка )) подскажите плизз!

P.S. Кажется нашел в UserForm.. тоесть это все перенести в книгу и всё?

Рабочей книги под рукой нет поэтому эксперементировал со своим примером..
Только копированием вашего листа1 в свою книгу и переноской кода UserForm удалось заставить работать.. не думаю конечно, что это оптимальный вариант но получилось и славненько))

P.S.S. Простите за наглость, а можно чтоб макрос запрашивал не номера строк начала и конца диапазона а количество дней( последних)?

[IgorGO]

см.вложение

[СтаСС]

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

см.вложение

Ошибка вроде.. тут подсвечивается

For Each c In Intersect(ActiveSheet.UsedRange, Range(r1 & ":" & r2))

+ при каждой попытке штампует новые листы

[IgorGO]

извините. поправил

[СтаСС]

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

поправил

Да, теперь работет!
SAS888 и IgorGO огромное Вам спасибо и по 100500 плюсов в карму )) Реально очень помогли и избавили от менингита )))

[СтаСС]

Честно говоря это уже наглость с моей стороны, но...

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

IgorGO

То что копируется только определенный диапазон мне понравилось, но подумав я решил что может не всегда подойдет.. Не могли бы вы как запасной вариант сделать чтоб копировался полностью весь столбик?

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

SAS888

А Вас я бы хотел попрасить если это возможно конечно как я уже писал выше чтоб в окне запроса указывались не номера строк а количество последних дней?

Еще раз извините за наглость ((

[SAS888]

Посмотрите пример.
1. Теперь, для поиска, в установках указывается количество последних строк.
2. Добавлен выбор копирования (либо столбцы целиком, либо только из диапазона указанных строк).

[СтаСС]

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

Посмотрите пример.

Огромное СПАСИБО! Всё отлично работает и очень удобно! СУПЕР!!!