C
Casey
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
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