Выполнение кода на текущий или прошедший месяц.

[segail]

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

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

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

[Dophin]

как то так

[segail]

В примере код работает, но стоит его перенести в основной проект, выходит ошибка “Несовпадение типов"
И как не затронуть значение “Итого” в раскрывающимся списке. При выборе данного значения тоже выходит ошибка, так как данное условие

If Month(CDate(1 & "." & ComboBox1.Value)) > Month(Date) Then

не рассчитано на значение “Итого”

[Dophin]

а должно быть?

перечитайте свой первый вопрос

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

[segail]

Да нет, файл все равно черновой.

Проще говоря код который законспирирован должен выполнятся на прошедшей текущий м-ц и на значении “Итого” при выполнения действия Private Sub ComboBox1_Change()

[Dophin]

Вы меня конечно извините, но я вообще ничего не понял. Вопроса не увидел. кусок фразы: "на прошедший текущий месяц" - заставил задуматься.

Попробуйте переформулировать вопрос. Представьте что общаетесь с детьми младшего школьного возраста:
"Есть вот это
при добавлении того туда должно сделаться так
а при выборе этого - вот так"

[segail]

Лады попробую…

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

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

[Teslenko_EA]

Здравствуйте segail.
"создать условие", точнее построить, можно подобным изменением Вашего кода:

Private Sub ComboBox1_Change()
Const sM1 = "Выбранный месяц опережает текущее событие"
Const sM2 = " Информационное сообщение"
Dim i%
i = ComboBox1.ListIndex
Select Case i
Case 12 'Итого
Case Else
    If Month(Date) < i + 1 Then MsgBox sM1, vbInformation, sM2: Exit Sub
End Select
[P1] = ComboBox1.Text 'Ввод текста в ячейку (месяц)
'...
'исплняемый код
End Sub

Private Sub UserForm_Initialize()
Dim i%
For i = 1 To 12
    ComboBox1.AddItem LCase(Format("1/" & i & "/1", "MMMM"))
Next
ComboBox1.AddItem "Итого"
End Sub

Евгений.

[segail]

Попробую…
Благодарю.