List Box Understanding

[Patrick]

I have a user form, on the user form is a list box, the row source of this list box is Montreal!$A2:$M33. This captures all my single row entries on the sheet Montreal.
The list box has a list style 1-fmliststyleoption, which means I can select an individual line in the list box from my entries on the sheet Montreal.
Is it possible to now add a command button, which on click copies the selected row in the list box and pastes it to a new sheet, starting at A1 on the new sheet.
Any and all responses welcome. Really just want to know if this is possible
Thanks
Patrick

 

[Smitty]

How's this?

Private Sub CommandButton1_Click()
    Sheets("TheOtherSheet").Range("A65536").End(xlUp).Offset(1, 0) = ListBox1.Text
End Sub

Hope that helps,

Smitty

 

[Patrick]

Hi and thanks for the help
It gets more dangerous can you continue?

Private Sub CommandButton2_Click()
    Sheets("Team").Range("A11").End(xlUp).Offset(1, 0) = ListBox1.Text
End Sub

The above copies the selected row,actually copies the first cell that is selected in the list box. Anyway to have it copy the adjacent cell also that has been selected in the list box
This must also recognize that if there is an entry already in the range then
copy to the cell below.




Also my range is A11 the copy will start at A2 because of the offset
when I have filled my range I would like to have a dialogue box open
and say "Max players reached"