Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Поиск первой пустой ячейки на ОПРЕДЕЛЕННОМ ДИАПАЗОНЕ!
 
Доброго времени суток, уважаемые форумчане.

Уже всю голову себе сломал, особенно учитывая, что с vba познакомился только сегодня.
В общем, нарыл вот такой код:
Код
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(iLastRow + 1, 1).Select
Он благополучно находит пустые ячейки в столбце после последней заполненной. Вот тут как раз собака зарыта.
У меня имеется такая таблица (на картинке), зеленым я выделил те диапазоны, в которых надо искать пустую ячейку. Еще там есть поле "Условие на цех", т.е. вводим 5 - ищет по пятому, 7 - по седьмому.

Ну а после выделения записать туда информацию и опустить курсор на ячейку ниже.

Указанный код находит пустую ячейку аккурат под седьмым цехом. Почти слёзно прошу помочь, а еще лучше - дать пояснения к коду.
Заранее спасибо, всем лучи добра :3
Изменено: badrobot - 09.08.2015 19:56:23
Создание реестра накладных
 
Дорогие форумчане, стоит задача автозаполнения реестра на основе грузовых накладных.

Поясню: на первом листе книги есть грузовая накладная, на втором - реестр.
Предположим, существует несколько водителей - Иванов, Петров, Сидоров. Они забирают несколько тонн воды каждый день, бывает, что и не по разу.
Необходимо, чтобы после заполнения накладной, данные попадали в реестр с записью о тоннаже груза и дате.

Смысл реестра:

ФамилияДата Кол-во, т
Петров
01.01.201520
03.01.201517
Сидоров
01.01.201522
02.01.2015 7
Т.е. запись в реестре должна происходить каждый раз в нижележащую ячейку, учитывая водителя, на которого была выписана накладная.

Буду очень признателен, если поможете.
Страницы: 1
Наверх