Sedaj, ko v ComboBox-u iščem podatek, ali vpišem začetne črke, se mi odpre seznam, po vrsti, kot so si sledili vnosi.
Želel pa bi, da bi bil seznam prikazan razvrščeno po abecedi in brez podvojenih vnosov
Hvala in lep pozdrav B
Koda: Izberi vse
Private Sub UserForm_Initialize()
Dim UniqueList() As String
Dim x As Long
Dim Rng1 As Range
Dim c As Range
Dim Unique As Boolean
Dim y As Long
'______________________za cbo "Objekt"________
Set Rng1 = Sheets("Podatki").Range("C9:C380")
y = 1
ReDim UniqueList(1 To Rng1.Rows.Count)
For Each c In Rng1
If Not c.Value = vbNullString Then
Unique = True
For x = 1 To y
If UniqueList(x) = c.Text Then
Unique = False
End If
Next
If Unique Then
y = y + 1
Me.cboObjekt.AddItem (c.Text)
UniqueList(y) = c.Text
End If
End If
Next