Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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
Сообщений: 163
По умолчанию

Цитата:
Сообщение от Wolf_46 Посмотреть сообщение
Помогите пожалуйста в написании скрипта.
Wolf_46 например так?
Вложения
Тип файла: xls Входящей корреспонденции22_3.xls (87.5 Кб, 8 просмотров)
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
Сообщений: 163
По умолчанию

Цитата:
Сообщение от 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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

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


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