Как выполнить действие при закрытии Книги?

[valerij]

Как в макросе, удалить, результаты выбора ComboBox1 перед закрытием рабочей книги?
Наверное как -то так?

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
With Лист12.ComboBox1
         .Clear
    End With
End Sub

[EducatedFool]

Если он заполнялся программно - то да, именно так:

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    Лист12.ComboBox1.Clear
End Sub

Если же у комбобокса заполнено свойство RowSource (или ListSource, не помню уже, какое именно), то есть он заполняется сам на основании данных из определённого диапазона ячеек, тогда немного сложнее.

[valerij]

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

Если он заполнялся программно.

Да программно, но не пойму, почему, так, надо делать при закрытии(так все работает), а если при открытии книги(так не работает)?

Private Sub Workbook_Open()
Лист12.ComboBox1.Clear
With Лист12.ComboBox1
         For iDAY% = 1 To 31
             .AddItem iDAY%
         Next
         .ListIndex = 0
End With
End Sub

[EducatedFool]

а если при открытии книги(так не работает)?

А что не работает-то?
В чём проявляется неработоспособность?
У меня всё работает...

[valerij]

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

А что не работает-то?

При открытии листа ВЕС, сначала я должен выбрать значение в ComboBox1, а потом в ComboBox2 иначе в ComboBox2 нет ничего.
Допустим я выбрал 1 -10, просмотрел и при закрытии книги сохранить, ОК.
Еще раз открываем, стоит как сохранил, 1 -10, а мне теперь надо 1 -11, а в ComboBox2 пусто и пока я не передерну ComboBox1 -ComboBox2....

[EducatedFool]

В макросе Workbook_Open
после строки Лист18.ComboBox1.Clear
поставь строку Лист18.ComboBox2.Clear
Тогда и второй комбобокс будет очищаться.

стоит как сохранил, 1 -10, а мне теперь надо 1 -11

Не совсем понял, что требуется.
Первый комбобокс ведь сбрасыватся вроде бы...

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

[valerij]

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

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

Самое простое, выбери в ComboBox-сах даты: 1 и 5 и ты увидишь, что в ComboBox2 пусто и надо передернуть сначала в ComboBox1 поставить 2, затем там же 1 и только тогда в ComboBox2, появится выбор.

А если при закрытии книги, как выше, применить макрос, то все ОК, отсюда и возник вопрос, почему при закрытии очистка, а не при открытии!!

[EducatedFool]

В макросе Workbook_Open
вместо строки .ListIndex = 0
поставь строки
.ListIndex = -1
.Value = 1

[valerij]

.ListIndex = -1
.Value = 1

Теперь, все ОК!
Тока поясни, зачем ListIndex = -1, если тут же значение ставится 1(Value = 1)

[EducatedFool]

зачем ListIndex = -1, если тут же значение ставится 1(Value = 1)

Чтобы сработал макрос ComboBox1_change

Если оставить ListIndex = 0 и записывать в комбобокс единицу, то макрос не будет срабатывать, если на момент сохранения файла в этом комбобоксе уже была единица.

Проще, конечно, было бы вместо этих строк просто запустить макрос ComboBox1_change, но в этом случае тебе надо было бы убрать ключевое слово private из заголовка макроса.