Dim f As Worksheet, TblBd, Tb(), d, i As Long, c
Private Sub UserForm_Initialize()
Set f = Sheets("DTEL")
Set d = CreateObject("Scripting.Dictionary")
TblBd = f.Range("A5:AN" & f.Range("A" & f.Rows.Count).End(xlUp).Row)
ReDim Tb(1 To UBound(TblBd, 1))
For i = 1 To UBound(Tb, 1)
Tb(i) = TblBd(i, 39)
Next i
For i = 1 To UBound(Tb)
For Each c In Tb: d(c) = "": Next c
Next i
Me.ComboBox1.List = d.keys
' Me.ComboBox1 = ActiveSheet.[A1]
End Sub
Private Sub ComboBox1_click()
ListBox1.Clear
j = 0
For i = LBound(TblBd) To UBound(TblBd)
If (InStr(TblBd(i, 39), ComboBox1) > 0 And TblBd(i, 5) Like ComboBox2) _
Or (Me.ComboBox1 = "*" And TblBd(i, 5) Like ComboBox2) Then
ListBox1.AddItem
ListBox1.List(j, 0) = TblBd(i, 2)
ListBox1.List(j, 1) = TblBd(i, 9)
ListBox1.List(j, 2) = TblBd(i, 40)
ListBox1.List(j, 3) = TblBd(i, 37)
j = j + 1
End If
Next i
End Sub