ORDER items in combobox...

[sal21]

I have a combobox filled:

01-gennaio
04-aprile
03-marzo
....
How to order items by left 2 digit?

[HansV]

Does this do what you want?

Code: Select all

Private Sub CommandButton2_Click()
  Dim arr
  Dim i As Long
  Dim j As Long
  Dim tmp
  arr = Me.ComboBox1.List
  For i = LBound(arr) To UBound(arr) - 1
    For j = i + 1 To UBound(arr)
      If arr(i, 0) > arr(j, 0) Then
        tmp = arr(i, 0)
        arr(i, 0) = arr(j, 0)
        arr(j, 0) = tmp
      End If
    Next j
  Next i
  Me.ComboBox1.List = arr
End Sub

[sal21]

Does this do what you want?

Code: Select all

Private Sub CommandButton2_Click()
  Dim arr
  Dim i As Long
  Dim j As Long
  Dim tmp
  arr = Me.ComboBox1.List
  For i = LBound(arr) To UBound(arr) - 1
    For j = i + 1 To UBound(arr)
      If arr(i, 0) > arr(j, 0) Then
        tmp = arr(i, 0)
        arr(i, 0) = arr(j, 0)
        arr(j, 0) = tmp
      End If
    Next j
  Next i
  Me.ComboBox1.List = arr
End Sub

Tell me... Have you write this code on fly?

[HansV]

Sorry, what do you mean?

[sal21]

Sorry, what do you mean?

How many secs have you write this code?

[HansV]

Perhaps 6 minutes...

[sal21]

Perhaps 6 minutes...

For alls...
Hans for me is the only best person i have knowed as professional and as man on line!
I have visited a tons of forums of vb6, vba, access ecc... i know HansV about 6 or 7 years and i'm sure for my thinking.
but the unique "Wizard" is HansV!
Sorry for my bad english but sure the Lounge understand me for that!

Note:
The code to sort the items in combobox work, naturally!

[HansV]

Thank you!

[sal21]

Thank you!

No prob man!