RowSourse на ячейку активного листа

[ruavia3]

Есть форма, на которой ListBox берет значения из ячейки определенного листа. Необходимо, чтобы значение бралось из активного листа, без перезагрузки самой формы.

[EducatedFool]

В модуль книги вставьте этот код:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    UserForm1.ListBox1.RowSource = Sh.[a1:a10].Address
End Sub

При переключении между листами содержимое ListBox1 будет обновляться.

[ruavia3]

Поясните, что значит = Sh.[a1:a10].Address

[EducatedFool]

Ладно, напишите так:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    UserForm1.ListBox1.RowSource = "a1:a12"
End Sub

Здесь, надеюсь, комментарии не требуются.

[ruavia3]

Я просто не понял почему интервал a1:a12 - у меня значения в ListBox должны тянуться из одной ячейки.

Форма, на которой находится ListBox не закрывается при переходе на другой лист, поэтому наверно и ListBox не обновляется.
Если ее выкл, потом вкл то значение ListBox берется уже с активного листа. Нужно, чтобы обновлялось без перезагрузки формы.

[ruavia3]

НЕ РАБОТАЕТ, УЧИТЕЛ! )

[SAS888]

Убедитесь, что код от EducatedFool находится именно в модуле "Эта книга", и в том, что при загрузке формы используется немодальное окно т.е. UserForm1.Show (0).