Здравствуйте еще раз. Попробую объяснить снова. Пытаюсь сделать следующее: есть два периода отсутствия на работе без уважительных причин - с 10.02.2016 по 16.05.2016 и с 10.07.2016 по 16.09.2016. Периоды задаются через форму в отдельных ячейках. В других ячейках, рассчитанных на 12 мес., надо отразить указанные периоды примерно так: 10.02.2016 по 29.02.2016, 01.03.2016 по 31.03.2016, 01.04.2016 по 30.04.2016, 01.05.2016 по 16.05.2016, 10.07.2016 по 31.07.2016, 01.08.2016 по 31.08.2016 и с 01.09.2016 по 16.09.2016 по соответствующим месяцам. Не получается через формулы раскидать периоды правильно, цепляет с июнем, либо не распределяет март, апрель, август. В итоге периодов изначальных может быть один, может 2,3 и до 10-12. Необходимо корректно разнести такие периоды с привязкой по месяцам, входящим в эти интервалы (т.е. если с 10.02.2016 по 16.05.2016 то март и апрель полностью расписаны и т.п.). В 1 файле то, чего добился сам, в файле "цель" - как должно быть (он без формул, т.к. не получается их составить)

Здравствуйте Прошу помочь. В примере необходимо, имея несколько периодов, например, 10.02.2016 по 16.05.2016 и 10.07.2016 по 16.09.2016, заполнить промежутки - т.е. в ячейки по месяцам внести даты с 10.02.2016 по 29.02.2016 за февраль, и т.д., до 01.05.2016 - 16.05.2016, потом июнь пропускается, и заполняется 10.07.2016-31.07.2016 и по 01.09.2016-16.09.2016. Периодов максимум 12, месяцев тоже, года могут быть соседние (расчетный период 12 мес, но может быть и меньше, и больше - в примере стоит  проверка на год. Мучаюсь месяц, не придумаю формулу для ячеек. Добился почти того, что надо, но только для 2 периода с 10.07.2016 по 16.08.2016. При замене на сентябрь сбивается.  

кнопка цитирования не для ответа [МОДЕРАТОР]

Проблема в том, что я только начинаю методом тыка использовать макросы и формы, поэтому сам так не обработаю. Мне бы код для этого примера в textbox, допилю сам

Прикладываю файл примера, что хочется получить и снимок

Не то. Хотя все равно немного пригодилось для другого, прикрутил выдачу ошибки при вводе нецифр и пробела в ИНН и СНИЛС. Проверку СНИЛС не нашел поиском

Здравствуйте товарищи.
Помогите реализовать на VBA Exel 2010 алгоритм проверки СНИЛС при вводе номера снилс в textbox на userForm, выделить красным если неправильный СНИЛС (т.е. контрольное значение не соответствует номеру) и в этом случае вывести сообщение "Проверьте правильность ввода СНИЛС"
Алгоритм проверки контрольного числа КАРТОЧКИ ПЕНСИОННОГО СТРАХОВАНИЯ:
Номер карточки пенсионного страхования (он же СНИЛС) проверяется на валидность контрольным числом. СНИЛС имеет вид: «XXX-XXX-XXX YY», где XXX—XXX-XXX — собственно номер, а YY — контрольное число.
Проверка контрольного числа Страхового номера проводится только для номеров больше номера 001—001-998
Контрольное число СНИЛС рассчитывается следующим образом:
1. Каждая цифра СНИЛС умножается на номер своей позиции (позиции отсчитываются с конца)
2. Полученные произведения суммируются
3. Если сумма меньше 100, то контрольное число равно самой сумме
4. Если сумма равна 100 или 101, то контрольное число равно 00
5. Если сумма больше 101, то сумма делится нацело на 101 и контрольное число определяется остатком от деления аналогично пунктам 3 и 4.
Конкретные примеры:
Указан СНИЛС 112-233-445 95
Проверяем правильность контрольного числа:
цифры номера 1 1 2 2 3 3 4 4 5
номер позиции 9 8 7 6 5 4 3 2 1
Сумма = 1х9 + 1х8 + 2х7 + 2х6 + 3х5 + 3х4 + 4х3 + 4х2 + 5х1 = 95
95 / !101! =95
Контрольное число 95 - указано верно.

Спасибо, доходчиво. Нудно учебник штудировать, забываешь потом, а через знающих людей и собственную практику лучше доходит

Ясно. А 1 - это что?

Спасибо всем, все работает. Все оказалось просто, а день мучаюсь с учебником и кусками кода из нета. Метод тыка и практики. Модераторам - тему можно закрывать.

Спасибо, немного не так понимал. ВСе начинается с малого.

Также спасибо. Выше уже попробовал, все работает. Попробую Ваше решение. Что значит 7 и 1 в "Cells(7, 1)" Cells - ячейка, 7 - следующая строка, 1 - какой-то параметр, правильно?

Уже попробовал. Удалять планируется по одной строке за раз, не сразу несколько. Спасибо, все как надо. Вопрос - i - это номер строки, с которой надо делать перенумерацию, насколько понял и ps - 1 нужно для исключения из перенумерации номера строки с заголовками таблицы? Видимо, в этом лоханулся. У меня код поначалу был более громоздким, номера ставило на 2 меньше.  

Вот чувствую, что как-то так, но: 1) сам уже голову сломал, тяжеловато для новичка 2)Цикл при большом числе записей может притормаживать работу. Если другого кроме цикла ничего не выйдет, придется делать кнопку с макросом выгрузки в архив. Правда, я и цикл не соображу как делать в данном случае

Если бы так просто, я пробовал через ПОИСКПОЗ. Но там еще с другого листа макросом вставляет данные в строку, тогда ругается на формулу в ячейках столбца А

Здравствуйте! Пытаюсь освоить макросы. Поискал по форму, но не нашел чтоб один в один, пытался поменять, не получается то, что надо. Суть:
При выборе строки с курсором кнопкой выше удаляется вся строка. Необходимо, чтобы одновременно происходила перенумерация в столбце "№п/п" только по непустым строкам. Строк может быть очень много, таблица накопительная. Например: удаляется 10 строка (№п/п 5), значения в диапазоне Range("A6:An"), где n=7,8 и т.д. автоматически перенумеровываются с 1 до n+1, где n=1,2,3 и т.д Как прикрутить данное решение в уже имеющийся макрос? Заранее благодарю