Автозаполнение с переходом на новый столбец

Пользователь

Сообщений: 22 Регистрация: 15.07.2020

11.09.2020 00:01:51

Доброго времени суток!
Помогите пожалуйста, не знаю как реализовать.
Что делаю: Лист ДО (1) два раза щелкаю на U39, появляется форма для заполнения. Когда уже есть готовый список занятий на неделю его можно вставить полностью с текущей ячейки. Нажимаю Добавить неделю, выбираю нечетная неделя и любой номер недели. Нажимаю добавить. Заполнение происходит вниз текущей ячейки и выходит за границы таблицы. А надо чтобы произошел переход на новый столбец AE15
Помогите пожалуйста реализовать переход на новый столбец и когда заканчивается таблица, чтобы произошел переход на таблицу снизу. количество строк не изменяется.

Прикрепленные файлы

Otchet.xlsm (175.5 КБ)

Изменено: Сергей Малахов - 11.09.2020 02:45:31

Михаил Лебедев

Пользователь

Сообщений: 2894 Регистрация: 17.01.2013

11.09.2020 13:11:40

Вам нужно программе дать возможность отслеживать границы той области листа, в пределах которых можно вносить данные.
Способов много.
Один из них - ввести в программу константы с числом, равным первой/последней строке листов, которые Вы заполняете (а потом - выводите на печать, по-видимому).

Код

Const List1rowFirst as long = 15 'номер первой строки первой страницы
Const List1rowLast as long = 15 'номер последней строки первой страницы

При вызове первой формы - определять номер строки, в которой Вы нажали "два раза щелкаю". По этому числу можно будет определить, на каком листе Вы сделали щелчок. Если число меньше List1rowLast и больше List1rowFirst - Вы на первом листе для печати. Если разница между List1rowLast и номером строки больше, чем число копируемых строк на листе "Нечетная", - копировать 2 раза кусками. Первый в столбец U, второй - в столбец AG. Не забыв в процессе поменять номер строки, где Вы "два раза щелкаю" на List1rowFirst.
Другой - можно использовать функцию Intersect.

Вариантов - много.

Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/

Сергей Малахов Пользователь Сообщений: 22 Регистрация: 15.07.2020	#3 11.09.2020 13:26:28 Михаил Лебедев, Как использовать функцию Intersect для моей задачи? что то не пойму. Заранее спасибо!