Dophin, а чем автофильтр-то не устраивает так?

Вопросик по строке:  
If Not Application.Intersect(Range("D2:D65000"), Target) Is Nothing Then  
 
Это не тоже самое, что:    
If Target.Column = 4 Then  
 
Или какая-то особенность в работе есть?

Ленчик, как вариант, правда стобцы даты и времени разделены и добавлен столбец, куда надо будет добавить признак в случае "ночной" разгрузки.  
Условия учтены наверняка не все. Так, невозможно отследить дополнительное время, если рабочие пришли раньше 8-10 и начали разгружать машину, котрая пришла в предыдущие дни.  
Формула наверняка неоптимальна, но, возможно чем-нить поможет.

Я пользовался:  
=((B9^3)-(1*B9^2))-(205*(0,005^2)*(300^3)/(24*300))  
Затем В 2003 "Сервис" - "Подбор параметра"  
Соответсвенно в итоговой ячейке с ф-лой устанавливаем 0, изменяя значение В9 - искомый x в данном случае.

У меня так для диапазона:  
=ЕПУСТО($C$4)

То же самое, но не так изящно, но возможно для кого-то более понятно ввиду отсутсвия формул массивов.

ОК!  
Спасибо за помощь!

Добрый день.  
Необходимо прописать формулу, которая содержит кавычки.  
Т.е. формулу Excel  
="модели"&ВПР(B12;'справ'!$B$11:$C$1006;2;0)  
Необходимо занести в ячейку через макрос.  
Как правильно прописать:  
Cells(x,y).FormulaLocal = ?  
У меня ошибка возникает из-за наличия в ф-ле символов " (возможно и &).