Страницы: 1
RSS
Автогенератор для автоматического формирования актов скрытых работ
 
Доброго времени, на просторах интернета я нашел автогенератор для автоматического формирования актов скрытых работ, проработал и подогнал под местные нормативы. В данном автогенераторе использованы макросы для заполнения через шаблон, но при нажатии кнопки "Заполнить" он формирует только первые 10 актов, что очень не удобно для работ, к сожалению я не смог найти и исправить данную ошибку.
Я буду очень благодарен за помощь.
 
в коде есть 2 строки
Код
ArrОбъект = .Range("A9").Resize(10, 20).Value
ArrАкты = .Range("A30").Resize(10, .Cells(.Rows.Count, 2).End(xlUp).Row).Value

возможно они и отвечают за кол-во актов
Для понимания - слово Resize означает РАСШИРИТЬ (кол-во строк, кол-во столбцов)
Например, Range("A5").Resize(5,10) означает от ячейки А5 расширить диапазона на 5 строк вниз и на 10 столбцов вправо
что такое ArrАкты - я понимаю, а что такое ArrОбъект ... не очень понятно.
Так что могу предложить, как изменить только ArrАкты, попробуйте заменить на вот эту строку, вдруг поможет

Код
 ArrАкты = .Range("A30").Resize(.Cells(.Rows.Count, 2).End(xlUp).Row - 30 + 1, 10).Value

как расширить ArrОбъект, которые берёт данные из диапазона А9+10 строк вниз и 20 столбцов вправо я не знаю, т.к. ниже с 29 строки уже начинается шапка таблицы
Изменено: New - 16.10.2021 16:18:59
 
Спасибо больше работает!!!  
 
Артём Бочевский, у Вас в А8 опечатка - капиталного. Обидно будет потом все акты заново перепечатывать/переподписывать.
А, вот еще, Субпордядчик. В общем надо текст перепроверить.
Страницы: 1
Наверх