userform listbox

i cannot figure out how to copy a name from listbox 2 to a cell (B1), press print, copy the next name to B1, print, next name etc, until all the names in that listbox are printed at which point it stops. any ideas on how to get this code to work? thanks a million in advance everyone.

How have you populated the listbox?
Upload a file and ill figure out where you are at.

Hi.

I m not sure but this is what I understood from your explaination. The print part I m not clear. Check if this is what you needed:

copylistboxdataandprint.xlsm

The reason i asked about the way that you where populating the list, if you where using an array or other methods this may be an *** about way of doing things.

Try the other responce, Cheers for cutting my grass. Ill just go back behind my rock. Kidding.

Please Login or Register  to view this content.

This is a simple loop., The way it works is using a variable to store the number of items that have been populated in the list,this number is retirved be using listbox.listcount. Though rember that the placement of the listbox stars at 0 and not 1. Thats why the varaible is -1 and the loop starts at 0.
Then its just a matter of changing the cell.value and using the printout function to print the sheet.

.............

This works perfect, the only thing I need it to do now is print to the appropriate sheet. How do i amke it print to Sheet 2, Cell b1? Thanks, you are awesome i spent hours searching this!

edit:

so with this code:

Formula:

Please Login or Register  to view this content.

it only prints out the LAST name on my listbox2. if i have 5 names on there, it will print out the last name 5 times instead of doing every name. why is that?

a oversight in the loop change to .Sheets(2).Range("A1").Value = ListBox2.List(X)
the variable x is the changing number allowing the loop to change +1 each time and lstqty is in your case a constant of 4

i see you have changed the code to print sheet 2 though if you want to only print a selected cell, try recording a macro manually and see what it outputs, from there you will see a line that will say something like .printrange or allong those lines and use use this in the above code

a oversight in the loop change to .Sheets(2).Range("A1").Value = ListBox2.List(X)
the variable x is the changing number allowing the loop to change +1 each time and lstqty is in your case a constant of 4

i see you have changed the code to print sheet 2 though if you want to only print a selected cell, try recording a macro manually and see what it outputs, from there you will see a line that will say something like .printrange or allong those lines and use use this in the above code\

Please Login or Register  to view this content.