Месяц по дате из первой занятой строки

[0mega]

С наступающим всех


Sub no

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

14.11.17
25.12.17
08.12.17
25.12.17

25.12.17
08.12.17
25.12.17
08.12.17
25.12.17

12.01.18

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

В данном случае

Декабрь
Январь
Февраль
Март
Апрель
Май
Июнь
Июль
Август
Сентябрь
Октябрь
Ноябрь
Декабрь
Январь

Если удалить первую запись (15.2.17), тогда список должен начинаться с Ноября
Если удалить и 14.2.17 тоже , тогда первой датой будет 25.12.17 и список будет начинаться с Декабря

В файле приведен конкретный пример

[Serge_Bliznykov]

Сообщение от 0mega

В любом свободном месте надо составить текстовое наименование месяцев на год (12 шт)

Вы уверены, что в вашем примере именно 12 штук месяцев?

Вы хотите это сделать формулами? Или макросом?

[Aleksandr H.]

Название первого месяца из столбца D

=ТЕКСТ(ИНДЕКС(D1:D200;ПОИСКПОЗ(1;ИНДЕКС(1-ЕПУСТО(D1:D200);0;1);0));"MMMM")

список же не проблема сделать

[Serge_Bliznykov]

Годится!

Сообщение от Aleksandr H.

=ТЕКСТ(ИНДЕКС(D1:D200;ПОИСКПОЗ(1;ИНДЕКС(1-ЕПУСТО(D1:D200);0;1);0));"MMMM")

странно, у меня в Excel вместо ваших латинских "MMMM" потребовалось ввести кириллицей "ММММ" (уж не знаю, чем это вызвано o_O)

[0mega]

Serge_Bliznykov здравствуйте

Сообщение от Serge_Bliznykov

Вы хотите это сделать формулами? Или макросом?

Формулами

Сообщение от Serge_Bliznykov

Вы уверены, что в вашем примере именно 12 штук месяцев?

Даты - это срок оплаты
Если Дата меньше чем СЕГОДНЯ() тогда автоматически присваивается статус "Задолжность" и таблица имеет такую трактовку :
Задолжностность за 15 декабря =100 руб
Оплата на 12 января= 120 руб
Оплата на февраль - 0 руб
Оплата на Март = 0 руб
...

Задолжность всегда возглавляет список и выделена красным цветом .
Задолжность всегда имеет приоритет в оплате .

Поcле погашения долга - оператор удаляет строку с датой 15.12.17
таблица приобретает вид
Оплата на 25 декабря =70 руб
оплата на 12 января = 120 руб
...

Впервые за 6 лет "ноябрь " влез между числами декабря
И при этом надо СНАЧАЛА оплатить долг за 15 дек и если будет возможность - тогда погасить за ноябрь
Совершенно нет необходимости составлять список из из 13-15 месяцев.
В работе всегда 3 мес.

[0mega]

Сообщение от Aleksandr H.

список же не проблема сделать

Я даже примерно не предствляю как можно к тексту прибавть число ?!

Но даже если и можно прибавить, то возниккет новая проблемма:
если прибавить "30" тогда мы перешагнем через февраль
Если прибавить "28" тогда Март проявится 2 раза
если привязаться к порядковому номеру
=МЕСЯЦ(ИНДЕКС(D1:D200;ПОИСКПОЗ(1;ИН ДЕКС(1-ЕПУСТО(D1:D200);0;1);0)))+СТРОКА(A1 )-1
Тогда за декабрем будет 13-ый месяц ?!

[Aleksandr H.]

А если немного смыкалки и гугла включить?
https://support.office.com/ru-ru/art...1-757345f7e926

[0mega]

моего серого вещества хватило на
F5=ТЕКСТ(ДАТАМЕС(--(1&F4);1);"ММММ")

Но в F4 формула ломается !
F4 не к чему привязать. У нее нет "фундамента" ?!
=ТЕКСТ(ИНДЕКС(D1:D200;ПОИСКПОЗ(1;ИН ДЕКС(1-ЕПУСТО(D1:D200);0;1);0));"ММММ")


Я хочу в одном столбце 1 (ОДНА) формула

[Aleksandr H.]

Прописал в ячейках F4:F17. Смотрится читабельно

=ТЕКСТ(ДАТАМЕС(ИНДЕКС(D1:D200;ПОИСКПОЗ(1;ИНДЕКС(1-ЕПУСТО(D1:D200);0;1);0));СТРОКА()-4);"MMMM")

[0mega]

благодарю,
это то что хотел