VBA Listbox for each selection (Multiselect) value

[johnpiper]

Hi I need a VBA script which will run through each selected value in a Listbox and print the value into a cell.

So selected are Answer 1, Ans 4, Ans 6, Ans 7, Ans9, Ans 10...

It'll, in turn, change the value of A1 to be "Answer 1", then replace that cell with the next value, "Ans 4", then the next value selected, "Ans 6"... And so on until all selections have been printed and no more remain. It should skip any values from the ListBox not highlighted.

Thanks in advance!

 

[DanteAmor]

Thanks for posting on the forum.

Try this on a commandbutton.
Fit the name "Sheet1" to the name of your sheet:

Private Sub CommandButton1_Click()
  Dim i As Long
 
  With ListBox1
    For i = 0 To .ListCount - 1
      If .Selected(i) = True Then
        Sheets("Sheet1").Range("A1").Value = .List(i)
      End If
    Next
  End With
End Sub

----- --
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
----- --

 

[ranman256]

Private Sub CommandButton1_Click()
Dim i As Integer

Range("A1").Select
For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) Then
     ActiveCell.Value = ListBox1.List(i)
    ActiveCell.Offset(1, 0).Select  'next cell
  endif
Next
End Sub

 

[johnpiper]

Thanks for posting on the forum.

Try this on a commandbutton.
Fit the name "Sheet1" to the name of your sheet:

Private Sub CommandButton1_Click()
  Dim i As Long
 
  With ListBox1
    For i = 0 To .ListCount - 1
      If .Selected(i) = True Then
        Sheets("Sheet1").Range("A1").Value = .List(i)
      End If
    Next
  End With
End Sub

----- --
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
----- --

Perfect, thanks!