Создание .additem для combobox

Question

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

Моя проблема в том, что я не могу понять, как заставить командную кнопку также заполнить поле со списком.

мой .additem ниже код продолжает возвращать "Отказано в доступе"

ошибка

Dim TLoc As Range 
Dim ws As Worksheet 
Set ws = Worksheets("Tariff Matrix") 
Set TLoc = Range("Tariffs") 

For Each TLoc In ws.Range("Tariffs") 
    With MobilePricing.Tariff1 
     .AddItem TLoc.Value 
    End With 
Next TLoc 

Любая помощь будет принята с благодарностью.

Answer 1

Прежде всего вам нужно проверить RowSource вашего ComboBox, если он не пуст, пуст.

Тогда как вы хотите иметь только видимые ячейки (после автофильтра); вам нужно использовать Range("Tariffs").SpecialCells(xlCellTypeVisible).

Здесь исправленный код:

Dim TLoc As Range 
Dim ws As Worksheet 
Set ws = Worksheets("Tariff Matrix") 
Set TLoc = Range("Tariffs") 

For Each TLoc In ws.Range("Tariffs").SpecialCells(xlCellTypeVisible).Cells 
    With MobilePricing.Tariff1 
     .AddItem TLoc.Value 
    End With 
Next TLoc 

Чтобы петли на вашем UserForm Controls, использовать что-то вроде этого:

Dim Ctrl As Control 

For Each Ctrl In Me.Controls 
    If TypeName(Ctrl) <> "ComboBox" Then 
    Else 
     MsgBox Ctrl.Object.Name 
     'Your code for one combobox (everyone will be referenced as Ctrl) 
    End If 
Next Ctrl