увеличить дата на месяц

[e_v_b]

ПОМОГИТЕ ПОЖАЛУЙСТА, понимаю что должно делаться легко но не могу придумать как, мне надо написав любую дату в ячейку B2, то вся строчка 5 должна поменяться по возрастанию на один месяц.

[Serge 007]

=ДАТАМЕС($B$2;СТОЛБЕЦ()-2)

=ДАТА(ГОД($B$2);МЕСЯЦ($B$2)+СТОЛБЕЦ()-2;ДЕНЬ($B$2))

http://excel.ucoz.ru/forum/2-69-1

[e_v_b]

СПАСИБО!!!!!!!!!!

[SAS888]

Можно и так (см. вложение).

[0mega]

доброго времени суток
SAS888,
небольшая осечка в вашей программе

[SAS888]

небольшая осечка в вашей программе

Да. Есть такое. Дело в том, что автор не указал, какое число месяца должно быть в 5-й строке. В моем варианте берется введенное в ячейку "B2" число. Естественно, что при вводе 30, с февралем будет проблема.
Как прикажите понимать фразу

написав любую дату в ячейку B2, то вся строчка 5 должна поменяться по возрастанию на один месяц.

? Как увеличить 30 января на 1 месяц? Это какое число какого месяца получится?

Т.к. в ячейках 5-й строки установлен формат, отображающий только год и месяц, то можно предположить, что день автора не интересует. Тогда, для предотвращения возможной проблемы, в коде макроса в теле цикла строку

Cells(5, i) = DateSerial(Year(Cells(5, i - 1)), Month(Cells(5, i - 1)) + 1, Day(dt))

нужно заменить на

Cells(5, i) = DateSerial(Year(Cells(5, i - 1)), Month(Cells(5, i - 1)) + 1, 1)

Тогда во всех ячейках 5-й строки будет 1-е число, которое не отображается в ячейке.