VBA Combo Boxes «не ума» мой выбор динамического диапазона

Question

Я определил базу данных со списками для списков со списком. В каждом столбце у меня есть различные опции для заполнения комбинированных полей соответственно. Когда я запускаю свою пользовательскую форму, первые две комбинированные поля (Клиент и Продукт) показывают параметры просто отлично. Почему в других списках со списком перечислены параметры клиента?

Private Sub UserForm_Initialize() 
 
Dim cClient As Range 
 
Dim cProduct As Range 
 
Dim cSize As Range 
 
Dim cType As Range 
 
Dim cTax As Range 
 

 
Dim ws As Worksheet 
 
Set ws = Worksheets("aux") 
 

 
For Each cClient In ws.Range("ClientList") 
 
    With Me.comboClient 
 
    .AddItem cClient.Value 
 
    End With 
 
Next cClient 
 

 
For Each cProduct In ws.Range("ProductList") 
 
    With Me.comboProduct 
 
    .AddItem cProduct.Value 
 
    End With 
 
Next cProduct 
 

 
For Each cSize In ws.Range("ClientList") 
 
    With Me.comboSize 
 
    .AddItem cSize.Value 
 
    End With 
 
Next cSize 
 

 
For Each cType In ws.Range("ClientList") 
 
    With Me.comboType 
 
    .AddItem cType.Value 
 
    End With 
 
Next cType 
 

 
For Each cTax In ws.Range("ClientList") 
 
    With Me.comboTax 
 
    .AddItem cTax.Value 
 
    End With 
 
Next cTax 
 

 
Me.textDate.Value = Format(Date, "Medium Date") 
 
Me.textDate.SetFocus 
 

 
End Sub

Answer 1

кажется, что вы заполнить эти выпадающие списки со значениями из диапазона ClientList. Попробуйте извлечь значения из других диапазонов на вашем листе (например, For Each cSize In ws.Range ("SizeList"))