sort listbox selected items

[Spoulis19]

How can the items that I have select in a listbox to be entered to cells according to the selection order. And NOT accordind the order of the listbox order.

(for example the 2nd select item to entered 2nd, the 3rd, 3rd etc)

 

[doofusboy]

You can use Private Sub ListBox1_Click() to capture which item is selected as it is selected. One way to do this would be to create a string variable for storing selctions, adding to it with each Click so that items are in orser in which they were selected.

 

[MickG]

Try something like this:-

Option Explicit
Option Base 1
Dim xRay() As String
Dim c As Integer
'====================
Private Sub ListBox1_Click()
c = c + 1
ReDim Preserve xRay(c)
xRay(c) = ListBox1.Value
End Sub
'===============
Private Sub CommandButton1_Click()
Range("B1").Resize(c) = Application.Transpose(xRay)
c = 0
Erase xRay
End Sub

Regards Mick

 

[CharlesChuckieCharles]

Selecting something by mistake needs to be catered for, as in processing a deselect

probably using Micks example search array for replica and make the entry empty or re shuffle the array then resize

In the doofus example that would be an instr and replace

But not a straight forward as it may at first appear

 

[Spoulis19]

Can somebody help me please how to handle the situation of deselecting an item in the above question and example.

Kind Regards

 

[MickG]

If you add this commandbutton code to your userform, it will clear any previouly selected items, so you can start the selection again.

Private Sub CommandButton2_Click()
c = 0
Erase xRay
End Sub

Mick