Заполнение и очистка Combobox

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение и очистка Combobox (Макросы/Sub)

joelynnturner

Дата: Пятница, 07.08.2015, 05:23 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Добрый день.
В VBA новичек, прошу помощи. Есть макрос для заполyения Combobox:

[vba]

Код

Private Sub dobav_VMRP_ob()
For Each c In Worksheets(2).Range("A4:A44")
If VarType(c) <> vbEmpty Then Лист1.ComboBox1.AddItem (c)
Next c
For Each c In Worksheets(2).Range("L4:L46")
If VarType(c) <> vbEmpty Then Лист1.ComboBox2.AddItem (c)
Next c
For Each c In Worksheets(2).Range("B2:H2")
If VarType(c) <> vbEmpty Then Лист1.ComboBox3.AddItem (c)
Next c
End Sub

[/vba]

Также есть макрос для очистки Combobox:

[vba]

Код

Private Sub ochistka_ob()
For i = 1 To ComboBox1.ListCount
ComboBox1.RemoveItem 0
Next i
For i = 1 To ComboBox2.ListCount
ComboBox2.RemoveItem 0
Next i
For i = 1 To ComboBox3.ListCount
ComboBox3.RemoveItem 0
Next i
End Sub

[/vba]

Дело в том, что в зависимости от условия, данный Combobox будет заполняться разными данными (из разных диапазонов ячеек), перед этом очищаясь.
Первый раз заполняется нормально, но при выборе другого условия, после очистки, он пишет Permissions Denied на строке:

If VarType© <> vbEmpty Then Лист1.ComboBox1.AddItem ©

т.е. при добавлении других элементов в Combobox.

Прошу помощи.
[moder]Оформляйте коды тегами (кнопка #). Исправила[/moder]