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

Не могу доработать код с выбором текущего и прошедшего месяца в объекте 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 Листа”Отчет”