Здравствуйте.

Не могу доработать код с выбором текущего и прошедшего месяца в объекте ComboBox1

Необходимо чтобы код, который законспирирован в примере, выполнялся при выборе значения месяц в ComboBox1 только на текущий или прошедший месяц не зависимо от года.
Я пытался проделать это через объекты TextBox_мц и TextBox_mz (данные объекты не нужны, если можно обойтись без них, их можно удалить)
И как не затронуть значение “Итого” в раскрывающимся списке. Что бы это не повлияло на значение "Итого"

Дополнение
Код должен выполняться на текущую прошедшую и на “Итого”

Shocker.Pro,
Лады попробую объяснить

1. Откройте файл и посмотрите код, то что там законспирировано (извиняюсь если это правильное выражение)трогать не надо (это основной код который должен выполняться при главном условии в проекте а не в этом примере)
2. Описание действия: При выборе значения в объекте ComboBox1 (в объекте 12 месяцев прописью и одно значение “Итого”)должен выполнится код о котором было сказано в первом пункте.
3. Условие: Код, о котором было сказано в первом пункте, выполняется лишь в том случае, если пользователь при выполнении действия (выбор значения из раскрывающегося списка) выбрал из 12 м-ц текущий (то есть сегодня), или прошедший (то есть который уже прошел) месяц, год и дата не должны играть в данном условии ни какой роли. Если выбран будущий м-ц (который еще не наступил), то выходит сообщение (текст сообщения я напишу сам), код не выполняется. Также при выборе значения “Итого” код тоже выполняется.
4. Высылаю повторный пример с кодом, но без условия, о котором было сказано в пункте 3.

p/s
Мне не надо чтобы код выполнился в предложенном примере, мне надо создать условие, о котором было сказано выше, которое позволит выполнить данный код.

Shocker.Proно погодите, в первом архиве у вас происходит все как вы описали - если я выбираю месяц с марта по декабрь, мне выдается ругательное сообщение, иначе не выдается. То есть вроде условие работает так, как вы хотите и описали. Я не могу понять, в чем заключается вопрос?
Да сообщение выходит а после нажатие ОК код выполняется…

Shocker.ProИли вы просто не можете разобраться с синтаксисом оператора if ???
Наверно да...

Shocker.Pro,


Я запутался с условиями

Shocker.ProА чтобы не городить огород - условие может быть примерно таким:


Только вы не описали, как быть в январе, нужно ли разрешать декабрь. Ваш код этого тоже не учитывает.

И все-таки гораздо красивее не отсеивать неправильные варианты после выбора, а вообще не давать их выбрать, то бишь не грузить в комбобокс.
Код выполняется при дополнительном условии
If Cells(i, 27).Text = ComboBox1.Text Then
куда его присобачить

Не понял с декабрем. Если сейчас январь то декабрь будущий месяц, код не выполняется, сообщение ругается. Или я Вас не понял.

segail,
If ComboBox1.ListIndex+1 > Month(Date) And ComboBox1.ListIndex<>12 then
ругаться
Else
If Cells(i, 27).Text = ComboBox1.Text Then
выполнять нужный код
End If

так что ли

наверно так

Shocker.Pro,
Пока визуально попробовал, код работает
Путаюсь с условиями если будет три условия вообще запутаюсь
А как код срабатывает на значение “Итого” вообще не понял?

Shocker.Pro,
Ругайте как хотите, не подумал
Не зря Вы говорили за декабрь прошедшего года. Не дошло
Создал файл за 2009 по идеи должны открываться все месяца, но условие создано не на основание года.
Можно ли исправить?
У меня ячейка R1 Листа ”Отчет” туда через код вносится также текущий или прошедший год. От данной ячейки строится вся система кодов, которые выполняют условия связанных с датами текущими и прошедшими.
Нельзя ли изменить Ваше условие применив год ячейки R1 Листа”Отчет”

Shocker.Pro,
момент проверю

Shocker.Pro,
Попробовал в 2010
Блокирует Январь и Февраль и Итого,
Может вместо Or поставить And?

Or наверное подойдет к Итого
Аnd необходимо наверное к году ячейки
а две разные функции нельзя…

Shocker.Pro[quot segail]
3) Число в ячейке R1 меньше, чем текущий год
Меньше или равен, текущему году
Наверно так...

Shocker.Pro,
Заааплутал я
Конечно нет
Тога наоборот что ли, больше либо равно текущему году?

Shocker.Pro,

Тока так могу объяснить

И так далее назад
2007 все мц эти месяца выбираются
2008 все мц эти месяца выбираются
2009 все мц эти месяца выбираются
01.2010 ,02.2010 эти месяца выбираются
Вперед пока стоп ждем наступления мц марта 2010

Shamanus,

Не обходима наверно взаимосвязь месяца ComboBox1 и года ячейка R1
ComboBox1&”.”&Sheets("Отчет").Range("R1")
получится месяц года. Но как его слепить если месяц уже выбирается для выполнения кода в ComboBox1?
То что могу сказать, в любом случае ячейка R1 является годом и без нее нельзя.

Shocker.Pro,
01.2010
02.2010
Итого
Исполнить код нельзя
Хотя они как раз и должны исполняться

Shocker.Pro,

Shocker.Pro,
Я просто поменял первоначальное условие на вторичное, ничего не подозревая.

Shocker.Pro,
Да нормально. Большое спасибо.

К сожалению мне учится поздно. Полтора года назад я ПК сравнивал что то вроде с телевизором.
Но все таки рад, хоть что то знаю, потому что я знаю людей с высшим образованием которые Excel используют только как текстовый редактор.
Хотя у них была возможность учиться…

Shocker.Pro,

Спасибо
сп/нч