Multiple Selection ListBox in Userform Data Output

[Johndinho]

Hi,

I have a listbox in a userform enabled to allow the user to make multiple selections.

Based on the user's selection; I want those individual values entered to a range in my sheet.

I have got as far as...(Shamelessly copied from this site)

For i = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(i) Then
'     ** Your code goes here ***
   End If
Next i
[CODE]

But what is the code to say X1 = first value, X2 = second value etc..?

Thanks,

Johndinho

 

[Fluff]

If by X1 you mean cell X1 then

For i = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(i) Then
      Range("X" & i + 1).Value = ListBox.list(i)
   End If
Next i

 

[Johndinho]

Thanks Fluff and yes, X1 is cell X1

When I run your code I get the error message object required

Private Sub CommandButton1_Click()
    For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
    Range("X" & i + 1).Value = ListBox.List(i)
    End If
Next i
End Sub[CODE]

Any ideas?

 

[My Aswer Is This]

Here is a example of a script I use
Adds values selected in listbox to column (O) of active sheet.

Private Sub CommandButton8_Click()
'Add listbox1 values to column O
Dim i As Long
Dim b As Long
Dim lastrow As Long
lastrow = Cells(Rows.Count, "O").End(xlUp).Row
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Cells(lastrow + 1, "O") = ListBox1.List(i)
        lastrow = lastrow + 1
        
    End If
Next
For b = 0 To ListBox1.ListCount - 1
'Unselect listbox values
        If ListBox1.Selected(b) = True Then ListBox1.Selected(b) = False
Next
End Sub

 

[Johndinho]

Perfect
You are a scholar.......THANKS!!

 

[My Aswer Is This]

Glad I was able to help you.

Perfect
You are a scholar.......THANKS!!