Надеюсь так будет понятней.

Идея такая. Опять же на примере месяца ОКТЯБРЬ.
С понедельника по пятницу в таблице №1 всегда будет СМЕНА 0 с пунктом 1. В понедельник каждой недели добавляется еще одна СМЕНА (1 или 2) в зависимости от графика работы с пунктом 2. Выходные дни в Таблице 1 заведомо не показаны.
График должен быть бесконечный. Т.е по прошествии октября, в ячейке F2, я меняю дату на 01.11.19, соответственно ГРАФИК должен "продлиться" на ноябрь итд.

Коллеги, в очередной раз обращаюсь за помощью.

Две смены с графиком 2/2.
Необходимо в определенные ячейки подставлять Смена1 или Смена2 в зависимости от указанных дат (реализовано в файле).[
Более детально внутри файла.

Заранее благодарю!

Владимир,

премного Вам благодарен!

Да, все верно.

А можно пожалуйста с примером?

Получается и правда сложная задача...

Тогда по другому напишу.

1. Как только появляется Дата в ячейке Р, затирается условное форматирование в ячейках М, Н, О (ячейки становятся белыми)
2. Как только появляется Дата в ячейке Q, затирается условное форматирование в ячейках М, Н, О, Р (ячейки становятся белыми)

 На самом деле логика здесь простая, но как это описать, что бы стало понятно...

Файл был большой.

Коллеги,
нужна ваша помощь.

Думал, что будет просто, но я запутался, слишком много условий надо учесть. Поможете?
Файл во вложении.

PS Может есть проще способ, кроме условного форматирования.

Всем огромное спасибо! Получилось.

Все что там написано у меня реализовано, а вот то что я написал выше не получается сделать, хотя и пытался. Получается, что при накладывании 3-го условия, начинается путаница и предыдущие работают не так как нужно.

Всем добрый день.
Помогите разобраться с условным форматированием.
Во вложении таблица с где ячейка с датой красится в зависимости приближения сегодняшней даты. Но есть одно НО, а именно есть дополнительная ячейка в которую проставляется дата по мере скажем выполнения задания. И если эта дата раньше чем сегодняшняя то предыдущая ячейка должна очиститься, те стать белой. Именно это у меня и не получается. Во вложении сам файл.

Буду очень благодарен вашей помощи.
Спасибо.

YES, спасибо!

Странно, почитал справку по функции COUNTIF, действительно должно сработать, но у меня выскакивает ошибка #ИМЯ?

Уважаемые форумчане!
Помогите в решении очень простой задачки для вас и сложной для меня))
Файл с комментариями во вложении.
Спасибо.

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

{quote}{login=}{date=21.10.2011 03:10}{thema=}{post}А что конкретно не получается-то? А то такое впечатление, что вы ТЗ даете, а это немного не сюда...{/post}{/quote}  
 
Извиняюсь, за такой тон сообщения. Конечно же это просьба помочь!!!    
 
Не получается а принципе не чего, кроме как создать форму) а вот дальше распихать с нее данные по ячейкам таблиц...

Всем доброго времени суток!  
 
Задача мне кажется не из простых(    
 
Уже есть таблица с условным форматированием, ячейки залиты цветами, формулы, ссылки на другие листы и книги.  
 
Нужна форма для данных, после заполнения которой, данные попадают в таблицы.  
 
После заполнения формы, нажимаю ок…  
 
…Пустая строка (в моем случае 3-ья строка, книги 1, лист 1) должна копировать (со смещением, т.е как будто мы протянули строку вниз) предыдущую строку в отношении всех формул, ссылок и форматирования  
В форме к примеру вбивая новую фамилию, она должна попасть в ячейку А1 листа1, ячейку С1 листа2, ячейку А1 листа 1 книги 2, ячейку D15 листа 2 книги 2.    
 
 
P.S. Все новые строки в таблицах должны появляться во всех рабочих вкладках и книгах(причем, на одном листе появляется одна строка, а на другом должно появиться 8, но это постоянно), но они не совпадают по номеру (т.е в книге 1 лист 1, новая строка это 3, а к примеру в книге 2 лист 2 строка будет 15).

{quote}{login=RAN}{date=19.10.2011 04:44}{thema=}{post}Опять попутал с копированием  
Target.EntireRow{/post}{/quote}  
 
Большое спасибо!!!

Подскажите как добавить в условие макроса  
....    
Range("A" & Target.Row).Value = 10  
Range("D" & Target.Row).Value = 236  
Range("I" & Target.Row).Value = 100  
.....  
закрашивание целой строки:  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
If Target.Value <> "x" Then Exit Sub  
If Target.Column = 11 And Target.Count = 1 Then  
Application.EnableEvents = False  
 
Range("A" & Target.Row).Value = 10  
Range("D" & Target.Row).Value = 236  
Range("I" & Target.Row).Value = 100  
 
Application.EnableEvents = True  
End If  
End Sub  
 
Я понимаю, что надо работать с Interior.Color = RGB(0, 0, 0), но.....

{quote}{login=Юрий М}{date=19.10.2011 01:18}{thema=}{post}А откуда мне знать? Вот и интересуюсь :-) Пот теме: разобрались?{/post}{/quote}  
 
Да, по теме разобрался, всем большое спасибо, особенно RAN.  
 
 
P.S. Может правда еще какие нибудь мелочи вылезут...)

{quote}{login=Юрий М}{date=19.10.2011 01:11}{thema=}{post}toxic и токсикомания - одного поля ягоды? :-){/post}{/quote}  
 
Юрий, я конечно человек с юмором, но мне кажется здесь Вы перестарались.

{quote}{login=Юрий М}{date=19.10.2011 12:51}{thema=}{post}toxic2007, Вы сам с собой разговариваете? Зачем в своей теме ник менять? Или у Вас с одного компьютера несколько человек работают?{/post}{/quote}  
 
До определенного момента сегодняшнего дня, я не был зарегистрированным на данном сайта, поэтому пользовался ником "Антон", а после регистрации "toxic2007" (раз и навсегда).

{quote}{login=RAN}{date=19.10.2011 12:17}{thema=}{post}точнее не  
Range("A1").Value = 1000  
а  
Range("A" & Target.Row)").Value = 1000{/post}{/quote}  
 
При  
Range("A" & Target.Row)").Value = 1000  
выдает ошибку и красит в красный.

{quote}{login=k61}{date=19.10.2011 11:00}{thema=В код листа:}{post}Private Sub Worksheet_Change(ByVal Target As Range)  
If Target.Value <> "x" Then Exit Sub  
If Target.Column = 11 And Target.Count = 1 Then  
Application.EnableEvents = False  
 For i = 1 To 3  
 Cells(Target.Row, i) = 1000 * i  
 Next i  
Application.EnableEvents = True  
End If  
End Sub{/post}{/quote}  
 
For i = 1 To 3  
Cells(Target.Row, i) = 1000 * i  
 
 
1. i может быть абсолютно любым числом или символом.  
2. ячейки не обязательно последовательны. Как пример А1, С1, Z1.... (возможность самому определиться, но раз и навсегда)

Добрый день!  
Подскажите почему удаляют мое сообщение?  
Что в нем не так?