Multipages

[And Justice for al]

Я понимаю, что вопрос слишком ничтожен, но все-таки помогите, плз.


Нужно при переходе с одной вкладки на другую в ComboBox загружать новые значения...

т.е.

для простой юзерформы:

Private Sub UserForm_Initialize()

ComboBox1.AddItem Worksheets("Задания").Range("A1").V alue
ComboBox1.AddItem Worksheets("Задания").Range("A2").V alue
ComboBox1.AddItem Worksheets("Задания").Range("A3").V alue

End Sub

а для вкладки надо

ComboBox2.AddItem Worksheets("Задания").Range("A4").V alue
ComboBox2.AddItem Worksheets("Задания").Range("A5").V alue

...
т.е. как саму вкладку активировать(что вместо Private Sub UserForm_Initialize() писать)

P.S. Private Sub MultiPage1_Change() и для чего эта команда нужна?



P.P.S. ооочень нуждаюсь в помощи(сегодня сдавать уже)На отчислении из универа стою, если не принесу все работы(а я все сделал-осталось только в юзерформу закинуть по вкладкам,а мы как назло во вкладки пока не углублялись)

[And Justice for al]

Упс,я дурко...и почему сразу не догадался тупо

ComboBox2.AddItem Worksheets("Задания").Range("A4").V alue
ComboBox2.AddItem Worksheets("Задания").Range("A5").V alue

туда же в Private Sub UserForm_Initialize() вставить? /:

все,можно закрывать,спс