|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.06.2022, 10:04 | #1 |
Новичок
Джуниор
Регистрация: 20.06.2022
Сообщений: 3
|
скопировать строки по условию из всех листов
Здравствуйте.
Помогите пожалуйста в написании скрипта. Есть эксель-документ. 1-й лист "Бланк" - в качестве бланка для копирования и дальнейшего заполнения. Заполненные листы по столбцу K могут иметь значения от -5 и более (расчет по формуле (=ЕСЛИ((J4-СЕГОДНЯ())>-5;(J4-СЕГОДНЯ()); ""))). Нужен скрипт, который бы создавал лист "<10 дней", копировал в него из листа "Бланк" первые 3 строки, а далее проходился бы по всем листам, начиная с 4-й строки, в поисках значения в столбце K, и, в случае, если значение будет от -5 до 10 - копировал строки в лист "<10 дней". Перед закрытием документа нужно, чтобы лист "<10 дней" удалялся. |
22.06.2022, 12:48 | #2 |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 163
|
|
23.06.2022, 10:26 | #3 |
Новичок
Джуниор
Регистрация: 20.06.2022
Сообщений: 3
|
Огромное спасибо, считает как надо!
Но возникла проблема - не работает в офисе2007 (только такое лицензионное ПО есть в организации) - Excel сразу закрывается с ошибкой только при попытке включить поддержку VBA. В чем может быть причина, возможно как-то исправить? Файл открывал в Excel 2019 - все работает |
23.06.2022, 15:34 | #4 |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 163
|
|
23.06.2022, 21:27 | #5 |
Новичок
Джуниор
Регистрация: 20.06.2022
Сообщений: 3
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скопировать ячейки по условию | omonulla1986 | Microsoft Office Excel | 2 | 21.03.2017 09:15 |
скопировать часть таблицы по условию | Sunix | Microsoft Office Excel | 12 | 05.08.2010 21:25 |
Из трех листов перенести строки по условию | Romuald | Microsoft Office Excel | 3 | 18.03.2009 16:09 |
выделение листов по условию | Bronyk | Microsoft Office Excel | 5 | 11.03.2008 19:40 |