Формула для посменки

[Asante]

Подскажите формулу для VBA,два числа 15 и 8 принадлежат к ячейкам принадлежащим в VBA "D" и "K",необходимо чтоб при введении в первую ячейку буквы "Р" последующая ячейка также отмечалась буквой "Р",а в ячейках ниже ставились под первой 15 под второй 8,после этого две пустых и снова Р-15,Р-8 итак на месяц

[Wasilic]

два числа 15 и 8 принадлежат к ячейкам принадлежащим в VBA "D" и "K

Чёто не понятно. Ячейки, в общем то, имеют конкретный адрес "D1", "К1" и т.д.
А "D" и "К" это столбцы. И они как-то не вписываются в задаче.
Дальше, тоже не понятно:

необходимо чтоб при введении в первую ячейку буквы "Р"

Что значит в первую ячейку. Это в какую?
Кроме того, табель любого текущего месяца может закончиться на Р15 а следующего начаться с  Р-8, как тогда продолжить процедуру ввода, да и месяцы ведь не все по 30 дней.
И табель, он что, всего на 1-го человека?
Запутано всё как-то.

[Asante]

Табель уже с макросом добавления людей и растановкой раб.- вых.дней(Кнопка на листе список),но он для недель а мне надо посменка,в этом и заключается проблема что возможно что месяц начнется с "р=8",я так думаю,что на листе список надо создать еще 4 ячейки(4 первых числа месяца в связи с 4 сменами),но как это описать в макросе?

[Wasilic]

Пример корявый но работает.
Остальное сам.

[Asante]

почти оно,только уже без запроса даты,без добавления ячеек и без выпадающего списка

[Wasilic]

Не, ну это пример решения основного вопроса. А на остальное придется приложить собственные усилия. 
Успехов!

[Asante]

ну да,только проблема была в цикличности кода(можно было добавлять сколько угодно людей)а здесь код максимум на  четырех

[Wasilic]

Вмакросе есть строка:

KS = 4 ' последняя строка списка

Так определи сколько строк должно быть в списке. В примере 3 фамилии, последняя на 4-й строке, вот я и указал - KS=4.
Откуда мне знать сколько будет фамилий.

   KS = Range("C" & Rows.Count).End(xlUp).Row

[Asante]

Спасибо огромное,очень помогли еще один вопрос
Каким образом можно сделать здесь же зависимость от месяца
так чтоб не проставляло после окончания месяца

[Wasilic]

У Вас же есть рабочая версия на 6-ти дневку. Возьмите там нужные коды и доработайте. Или надо под ключ. 

[Asante]

под ключ не надо,а вот  направить в нужное русло и подсказать,критически не обходимо
просто знаком с VBA только неделю,а начальство мозг проело
а то вариант конечно класный но при ошибке месяца ничего не исправишь
тем более что делаю заполнение через диалоговое окно

[Wasilic]

просто знаком с VBA только неделю

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

[Asante]

и в чем прикол?

[Wasilic]

и в чем прикол?

На счет чего? Последнего Файла?
Доработаю, если будут выложены все ньюасы обращения с файлом.
Лучше в личку.

[Asante]

а вот и он