Постановка задачи.
Есть документ в Excel, в котором 6 листов. Предположим, что названия стандартные: Лист1…..Лист 6.
У каждого листа одинаковая шапка
№ п/п Задача Дата Выполнено
(A) (B) (С) (D)
В поле выполнено будет записываться или «да» или «нет»
У нас есть второй документ с таким же порядком листов – этот документ называется архив.
Суть задачи.
При открытии файла нужно, чтобы проверялось поле выполнено в каждой строчке таблицы каждого листа. Если в нем уже написано «да», то строка таблицы должна вырезаться и вставляться в первую свободную строку в файл архив на соответствующий лист, т.е. на лист, имеющий то же название, что и исходный, но находящийся в другой книге (Архив).
Если поле «Выполнено» написано «нет», то нужно проверить, меньше ли дата, в поле «Дата» сегодняшней даты. Если это верно, то выделить красным строку.
Реализация.
В принципе примерное представление о том как делать есть. Но работа со строками не совсем ясна. Как лучше это организовать?
Помогите пожалуйста, разобраться в этом.
Заранее спасибо.

Я думаю в даном случае лучше использовать флажок, чтобы исключить пустое значение. Например установить в данном столбце шрифт Marlett и использовать вместо "да" символ латинское "a".
Это проще всего реализовать с помощью условного форматирования, не прибегая к написанию макроса.
Становимся на ячейку флажка
Меню-Формат-Условное форматирование
Выбираем Формула и пишем =C1<СЕГОДНЯ() 'под C1 подразумеваем ячейку даной строки с датой
Теперь нажимаете кнопку Формат и устанавливаем красный цвет шрифта или фона
и так для всех ячеек, если недостаточно подсвечивать ячейку флажка
Это проверять нет необходимости, если строки с "да" при открытии файла удаляются.
Если книга "Архив" открыта то:


Примерно так. В чистовом виде можно зациклить для каждого листа и упростить код.

Примерно так
For list=1 to 6
For rng=2 to 500
If Лист(x).cells(rng, 4)="да" Then

Что такое:

в этом примере.

Извини описалась Вот код бежит по листам и строкам.

Надо попробовать, отпишусь о результатах.

У меня был небольшой перерыв. Поэтому задачка замерла. Но теперь я к ней вернулся. 
shovkoplyas, код хороший почти во всем, кроме строчки 12. Rows(1:1).Select. При следующем открытии книги будет возникать ошибка, по причине того, что эта строчка уже заполнена. Что с этим делать?  

То есть единственное, чего я не понял - как определить последнюю непустую ячейку, запомнить ее строку, преобразовать ее в тип, пригодный для Rows(). 

Заранее спасибо за помощь и разъяснения. 

Это сообщение отредактировал(а) Mrak - 15.5.2006, 20:57

Если у твоего файла регулярная структура (состоит только из таких строк) то можно использовать
max_row - номер последней используемой строки 

Загляни сам. Не хочу повторяться.

http://forum.sources.ru/index.php?showtopic=93671 

Все спасибо! Задача решена