Синтаксис ComboBox'a в UserForm'е

[Vellosity]

Здравствуйте! Помогите пожалуйста решить такой вопрос. По поводу синтаксиса ComboBox'a топика не нашёл. Вот такой код я написал:

Private Sub ComboBox1_Change()
Worksheets("Ãëàâíàÿ").Select
ListFillRange = "$B$18:$C$24"
LinkedCell = "$N$20"
DropDownLines = 8
Display3DShading = False
End Sub

При запуске формы содержащей этот ComboBox, ComboBox не содержит никаких значений (пуст). Диапазон $B$18:$C$24 - содержит значения. Ячейку N$20 я использовал для записи в нее номера выбранного элемента из списка ComboBox'a. Код написал по примеру синтаксиса ComboBox'a на обычном листе (не в UserForm'е). В чем моя ошибка? Заранее спасибо!

[EducatedFool]

Во-первых, если вы хотите изменить свойство ListFillRange у комбобокса, так вы и указывайте объект, к которому относится это свойство.
(например, так: ComboBox1.ListFillRange = "$B$18:$C$24" )

Это, кстати, относится и к другим строкам вашего макроса

Во-вторых, а зачем при изменении выбранного значения в комбобоксе его снова заполнять???
Он же уже заполнен...

Прямо в свойствах элемента управления на форме задайте эти свойства - и код будет не нужен

[doober]

Это поможет

Private Sub ComboBox1_Change()
Лист1.Range("$N$20") = ComboBox1.Value
End Sub

Private Sub UserForm_Activate()
ComboBox1.RowSource = "Лист1!$B$18:$C$24"
End Sub

[vikttur]

Если диапазон не будет меняться, можно его вписать прямо в RowSource

[Vellosity]

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

Это поможет

Private Sub ComboBox1_Change()
Лист1.Range("$N$20") = ComboBox1.Value
End Sub

Private Sub UserForm_Activate()
ComboBox1.RowSource = "Лист1!$B$18:$C$24"
End Sub

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

[Vellosity]

Прайс.Range("$N$20") = ComboBox1.Value дебагер эту строку подсвечивает

[doober]

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

Прайс.Range("$N$20") = ComboBox1.Value дебагер эту строку подсвечивает

вы не правильно обращаетесь к листу.У вас скорее всего нет кодового имени лита Прайс,а есть Лист1 например