Уже всю голову себе сломал, особенно учитывая, что с vba познакомился только сегодня. В общем, нарыл вот такой код:
Код
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(iLastRow + 1, 1).Select
Он благополучно находит пустые ячейки в столбце после последней заполненной. Вот тут как раз собака зарыта. У меня имеется такая таблица (на картинке), зеленым я выделил те диапазоны, в которых надо искать пустую ячейку. Еще там есть поле "Условие на цех", т.е. вводим 5 - ищет по пятому, 7 - по седьмому.
Ну а после выделения записать туда информацию и опустить курсор на ячейку ниже.
Указанный код находит пустую ячейку аккурат под седьмым цехом. Почти слёзно прошу помочь, а еще лучше - дать пояснения к коду. Заранее спасибо, всем лучи добра :3
Дорогие форумчане, стоит задача автозаполнения реестра на основе грузовых накладных.
Поясню: на первом листе книги есть грузовая накладная, на втором - реестр. Предположим, существует несколько водителей - Иванов, Петров, Сидоров. Они забирают несколько тонн воды каждый день, бывает, что и не по разу. Необходимо, чтобы после заполнения накладной, данные попадали в реестр с записью о тоннаже груза и дате.
Смысл реестра:
Фамилия
Дата
Кол-во, т
Петров
01.01.2015
20
03.01.2015
17
Сидоров
01.01.2015
22
02.01.2015
7
Т.е. запись в реестре должна происходить каждый раз в нижележащую ячейку, учитывая водителя, на которого была выписана накладная.