KOmbinirani seznam

[BJ]

Pozdravljeni!
V formi imam kombinirani seznam.

Koda: Izberi vse

 Private Sub UserForm_Initialize()
cboKraj.RowSource = "Podatki!F5:F2000"

 End Sub

Ker pa se podatki ponavljajo, bi želel, da se pri odprtju spustnega seznama prikažejo samo nepodvojeni in razvrščeni (A--Ž) zapisi.
LPB

[admin]

Direktno tega Excel ne zna, zatorej si morate pomagati z VBA kodo. Prilagam kodo, ki pa ni moja...

Koda: Izberi vse

' koda je last Anne Troy
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 
     
    Set Rng1 = Sheets("Sheet1").Range("A1:A100") 
    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.ListBox1.AddItem (c.Text) 
                UniqueList(y) = c.Text 
            End If 
        End If 
    Next 
     
End Sub 
 

[BJ]

Najlepša hvala!
LPB