V formi imam kombinirani seznam.
Koda: Izberi vse
Private Sub UserForm_Initialize()
cboKraj.RowSource = "Podatki!F5:F2000"
End Sub
LPB
Koda: Izberi vse
Private Sub UserForm_Initialize()
cboKraj.RowSource = "Podatki!F5:F2000"
End Sub
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