VBA MACRO Combobox ограничен в данных

Question

У меня есть скрипт в VBA (скачанный из inte rnet и настроенный для моего использования). Это для ввода данных. Но у меня есть проблема с некоторыми Comboboxes. Это не позволяет мне увидеть весь список вариантов. Он показывает только 2 значения вместо 128.

Я пытался поместить его в другой столбец, но все же. В данный момент моя проблема - C_06.List = [bom]. Значение !

   Option Explicit
Dim Rng As Range, fnd As Range
Dim Ctrl As Control
Dim iRow As Integer
Dim wsAE As Worksheet
Private Sub C_02_Click()
T_ARR.Value = C_02.Column(1)
T_RENOV.Value = C_02.Column(3)
T_FINC.Value = C_02.Column(4)
T_AREA.Value = C_02.Column(9)
T_CALLE.Value = C_02.Column(11)
T_DIAS.Value = C_02.Column(12)
T_ESTATUS.Value = C_02.Column(13)
T_SUELO.Value = C_02.Column(15)
T_COLONIA.Value = C_02.Column(16)
T_CP.Value = C_02.Column(14)
T_ESTADO.Value = C_02.Column(17)
T_M2.Value = C_02.Column(20)
End Sub


Private Sub CMB_addnew_Click()
Set wsAE = Worksheets("INGRESOS")
If MsgBox("Correct entry?", vbYesNo + vbQuestion, "Check the data!") = vbNo Then Exit Sub
iRow = wsAE.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
wsAE.Cells(iRow, 1).Resize(, 25).Value = Array(T_id.Value, C_02.Value, T_AREA.Value, T_ARR.Value, T_DATE.Value, C_CONC.Value, T_REFBANC.Value, T_PROYECTO.Value, T_CARGO.Value, T_RAD.Value, T_NRAD.Value, T_NPAGO.Value, C_METH.Value, T_RENOV.Value, T_FINC.Value, _
 T_DIAS.Value, T_PAGARFEC.Value, T_SUELO.Value, T_ESTATUS.Value, T_M2.Value, T_CALLE.Value, T_COLONIA.Value, T_ESTADO.Value, T_CP.Value, _
 , T_NOTA.Value)
'Columns.AutoFit
MsgBox "The new entry has been saved.", vbInformation, "Done"
For Each Ctrl In Controls
    If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Value = ""
Next Ctrl
LB_01.ListIndex = -1
LB_01.TopIndex = 0
Call UserForm_Initialize
End Sub

Private Sub CMB_clear_Click()
For Each Ctrl In Controls
    If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Value = ""
Next Ctrl
LB_01.ListIndex = -1
LB_01.TopIndex = 0
Call UserForm_Initialize
End Sub
Private Sub CMB_close_Click()
Unload Me
End Sub
Private Sub LB_01_Click()
T_id.Value = LB_01.Column(0)
C_02.Value = LB_01.Column(1)
T_ARR.Value = LB_01.Column(2)
T_CARGO.Value = LB_01.Column(3)
T_RENOV.Value = LB_01.Column(4)
T_FINC.Value = LB_01.Column(5)
C_METH.Value = LB_01.Column(6)
C_EMPTY.Value = LB_01.Column(7)
C_CONC.Value = LB_01.Column(8)
T_NRAD.Value = LB_01.Column(9)
T_NOTA.Value = LB_01.Column(10)
T_DIAS.Value = LB_01.Column(11)
T_PAGARFEC.Value = LB_01.Column(12)
T_NPAGO.Value = LB_01.Column(13)
C_06.Value = LB_01.Column(14)
C_BOM.Value = LB_01.Column(15)
T_CP.Value = LB_01.Column(16)
T_ESTADO.Value = LB_01.Column(17)
T_DATE.Value = LB_01.Column(18)
T_PROYECTO.Value = LB_01.Column(19)
T_RAD.Value = LB_01.Column(20)
T_AREA.Value = LB_01.Column(21)
T_CALLE.Value = LB_01.Column(22)
T_ESTATUS.Value = LB_01.Column(23)
T_SUELO.Value = LB_01.Column(24)
T_COLONIA.Value = LB_01.Column(25)
End Sub
Private Sub UserForm_Initialize()
T_id.Value = WorksheetFunction.Max([ids]) + 1
LB_01.List = [database].Value
C_02.List = [datalist].Value
C_CONC.List = [nouns].Value
C_BOM.List = [mrp].Value
C_METH.List = [BUoM].Value
C_06.List = [bom].Value
T_DATE.Value = Now
End Sub