move item in multiselect listbox
Good evening,
The code below, found in this group, works fine when the multiselect listbox has 1 column, Struggling to get it work when the listbox has 2 columns but without success. Grateful for some hints. Brgds CG Rosen ------------------------------------------------------------ Private Sub SpinButton1_SpinUp() If ListBox1.ListIndex < -1 Then i = ListBox1.ListIndex If i = 0 Then Exit Sub s = ListBox1.List(i) ListBox1.RemoveItem i ListBox1.AddItem s, i - 1 ListBox1.ListIndex = i - 1 ListBox1.Selected(i - 1) = True SpinButton1.Value = 0 End If End Sub |
move item in multiselect listbox
There is some good basic information at this site:
http://support.microsoft.com/kb/829070 "CG Rosen" wrote in message ... Good evening, The code below, found in this group, works fine when the multiselect listbox has 1 column, Struggling to get it work when the listbox has 2 columns but without success. Grateful for some hints. Brgds CG Rosen ------------------------------------------------------------ Private Sub SpinButton1_SpinUp() If ListBox1.ListIndex < -1 Then i = ListBox1.ListIndex If i = 0 Then Exit Sub s = ListBox1.List(i) ListBox1.RemoveItem i ListBox1.AddItem s, i - 1 ListBox1.ListIndex = i - 1 ListBox1.Selected(i - 1) = True SpinButton1.Value = 0 End If End Sub |
All times are GMT +1. The time now is 08:08 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com