ComboBox sortiranje

[BJ]

Pozdravljeni!
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
 

[admin]

Pozdravljeni,

Poslali ste samo del kode... Ali vi napolnite padajoč seznam iz nekega območja na listu (C9:C380)? Če je temu tako potem ne potrebujete ničesar novega. Nad omenjenim območjem preprosto spustite funkcijo (UniqueList), za katero sklepam da ste jo pobrali z neta in vam bo slednja tako sortirala in seznam in iz njega izločila podvojene elemente.

Potem pa vi samo še inicializirajte padajoč seznam iz omenjenega območja. Torej takole:

Koda: Izberi vse

1. nad nekim območjem spustite finkcijo UniqueList
2. Če ta funkcija že tudi sortira podatke potem ok, sicer nad tem območje spustite še funkcijo Sort
3. Napolnite podatke iz omenjenega območja