Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

           Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
           И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - https://clck.ru/fCqwP

Ответ
 
Опции темы Поиск в этой теме
Старый 21.06.2022, 10:04   #1
Wolf_46
Новичок
Джуниор
 
Регистрация: 20.06.2022
Сообщений: 3
По умолчанию скопировать строки по условию из всех листов

Здравствуйте.

Помогите пожалуйста в написании скрипта.
Есть эксель-документ. 1-й лист "Бланк" - в качестве бланка для копирования и дальнейшего заполнения. Заполненные листы по столбцу K могут иметь значения от -5 и более (расчет по формуле (=ЕСЛИ((J4-СЕГОДНЯ())>-5;(J4-СЕГОДНЯ()); ""))).

Нужен скрипт, который бы создавал лист "<10 дней", копировал в него из листа "Бланк" первые 3 строки, а далее проходился бы по всем листам, начиная с 4-й строки, в поисках значения в столбце K, и, в случае, если значение будет от -5 до 10 - копировал строки в лист "<10 дней". Перед закрытием документа нужно, чтобы лист "<10 дней" удалялся.
Вложения
Тип файла: xls Входящей корреспонденции22_3.xls (53.0 Кб, 1 просмотров)
Wolf_46 вне форума Ответить с цитированием
Старый 22.06.2022, 12:48   #2
Elixi
Форумчанин
 
Регистрация: 10.05.2019
Сообщений: 134
По умолчанию

Цитата:
Сообщение от Wolf_46 Посмотреть сообщение
Помогите пожалуйста в написании скрипта.
Wolf_46 например так?
Вложения
Тип файла: xls Входящей корреспонденции22_3.xls (87.5 Кб, 5 просмотров)
Elixi вне форума Ответить с цитированием
Старый 23.06.2022, 10:26   #3
Wolf_46
Новичок
Джуниор
 
Регистрация: 20.06.2022
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Elixi Посмотреть сообщение
Wolf_46 например так?
Огромное спасибо, считает как надо!

Но возникла проблема - не работает в офисе2007 (только такое лицензионное ПО есть в организации) - Excel сразу закрывается с ошибкой только при попытке включить поддержку VBA. В чем может быть причина, возможно как-то исправить?
Файл открывал в Excel 2019 - все работает
Wolf_46 вне форума Ответить с цитированием
Старый 23.06.2022, 15:34   #4
Elixi
Форумчанин
 
Регистрация: 10.05.2019
Сообщений: 134
По умолчанию

Цитата:
Сообщение от Wolf_46 Посмотреть сообщение
Но возникла проблема - не работает в офисе2007
у меня именнo oффисе 2007, делал на нем и все рабoталo, так чтo не знаю.
Теперь, на рабoте прoверял на 2010. Рабoтает.
Другие макрoсы у вас рабoтают?
Elixi вне форума Ответить с цитированием
Старый 23.06.2022, 21:27   #5
Wolf_46
Новичок
Джуниор
 
Регистрация: 20.06.2022
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Elixi Посмотреть сообщение
у меня именнo oффисе 2007, делал на нем и все рабoталo, так чтo не знаю.
Пересохранил документ со скриптом повторно, без запуска поддержки скриптов, и теперь все работает.

Еще раз огромное Вам спасибо за помощь.
Wolf_46 вне форума Ответить с цитированием
Ответ

           Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
           Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Скопировать ячейки по условию 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