VBA вопрос насчет ComboBox

[qert]

в общем я выбираю с помощью ComboBox1 значение какое то, и открывается книга с таким именем, и с помощью ComboBox2 открываю какой то конкретный лист открытой книги, ну и тд.

во всех книгах на которых ссылаюсь через ComboBox1 есть лист "главная". вот с этого листа берет значение ComboBox2.

например значения ComboBox1 : 1, 2, 3
значения ComboBox2 в книге 1: a,b,c
значения ComboBox2 в книге 2: d,e,f
значения ComboBox2 в книге 3: g,h,i

если я в ComboBox1 сперва выбираю 2, то потом исправляю на 1 то в ComboBox2 будут значения d,e,f,a,b,c.

как сделать чтобы обнулялись значения ComboBox?
вот когда я меняю значение ComboBox1, ComboBox2-чтоб обновлялся. а то например если я в книге 2 и ссылаюсь на b-й лист, появится ошибка, ведь такой страницы в этой книге то нет.

[VictorM]

qert, приложите файлик с Вашими комбобоксами, будет понятне и быстрее.

[The_Prist]

Перед занесением в ComboBox данных выполняйте строку

ComboBox2.Clear

[qert]

в диск С распакуйте. книга "Меню"

[The_Prist]

На каких Боксах эксперементировать?

[The_Prist]

Можно как-то так

Private Sub ComboBox1_Change()
Dim sStr As String:sStr = ComboBox1.Text
ComboBox1.Clear
ShowDialog
If Len(sStr) = 0 Then Exit Sub
Sheets(sStr).Activate
End Sub

Хотя лично мне не очень понятно, зачем при каждом изменении в ComboBox1 вызывать процедуру ShowDialog? Если её убрать, то ComboBox1.Clear и лишняя переменная не нужны будут. Типа так

Private Sub ComboBox1_Change()
If Len(ComboBox1.Text) = 0 Then Exit Sub
Sheets(ComboBox1.Text).Activate
End Sub

[qert]

при нажатии кнопки вызывается форма, и сразу showdialog для первого комбобокса. а после того как выбираем комбобокс1 вызывается showdialog1 уже для второго ComboBox...ну и т.д. по цепочке.
без вызова модулей ComboBoxы же не будут работать.

[qert]

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

Можно как-то так
Хотя лично мне не очень понятно, зачем при каждом изменении в ComboBox1 вызывать процедуру ShowDialog? Если её убрать, то ComboBox1.Clear и лишняя переменная не нужны будут. Типа так

Private Sub ComboBox1_Change()
If Len(ComboBox1.Text) = 0 Then Exit Sub
Sheets(ComboBox1.Text).Activate
End Sub

а как тогда будет работать ComboBox2? где и как будет вызываться процедура ShowDialog1?

[The_Prist]

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

а после того как выбираем комбобокс1 вызывается showdialog1 уже для второго ComboBox...ну и т.д.

Да? Чет я не заметил, что там для второго ComboBox процедура. У Вас там ComboBox1 везде. Вот листинг процедуры showdialog из файла ПМ

Sub ShowDialog()
Dim i As Integer
i = 2
While Worksheets("Главн").Cells(i, 1) <> ""
UserForm1.ComboBox1.AddItem Sheets("Главн").Cells(i, 1)
i = i + 1
Wend
End Sub

Где здесь ComboBox2?
Ковыряться в Ваших кодах и пяти книгах, не имея нормального представления о Вашей проблеме, желания нет.
Когда подробно объясните, что хотите, тогда и будет Вам ответ подобающий.

[EducatedFool]

А зачем вообще каждую специальность было выносить в отдельный файл?

Можно было реализовать всё внутри одного файла:





Пример этой работы можно найти здесь