Private Sub cmdEnterSelection_Click()
Dim i As Long
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
ActiveCell.Value = Me.ListBox1.List(i)
ActiveCell.Offset(1, 0).Select
End If
Next i
End


HTH
--
AP

"Casey" <Casey.25y7pn_1144504502.1588@excelforum-nospam.com> a écrit dans le
message de news:Casey.25y7pn_1144504502.1588@excelforum-nospam.com...
>
> Hi,
> I have a user form with a list box set to multiple selection. On the
> same user form is a command button to send the selected items to the
> active sheet. It works fine for the original application, however, I
> need to modify the code so it will start pasting the selections staring
> at the ActiveCell rather than looking for the first blank cell in a
> column.
>
> Here is my Code:
>
> Private Sub cmdEnterSelection_Click()
> Dim i As Long
> For i = 0 To Me.ListBox1.ListCount - 1
> If Me.ListBox1.Selected(i) Then
> ActiveSheet.Range("A105").End(xlUp).Offset(1, 0) _
> Value = Me.ListBox1.List(i)
> End If
> Next i
> End Sub
>
>
> --
> Casey
>
>
> ------------------------------------------------------------------------
> Casey's Profile:
http://www.excelforum.com/member.php...fo&userid=4545
> View this thread: http://www.excelforum.com/showthread...hreadid=531178
>