Hi everyone, hopefully someone can help with this question....

I have a cell, B4, that contains a drop down list of names (from a
validation list), when a name is selected, other selected cells in the
workbook change as they are based on a vlookup. This then changes the 2
charts on the same page.

What I would like to do is allow the user to click a button and spool
thru all the names in the list and print each one automatically.
Can this be done using VBA? If so, how do I go about it ?

Thanks again, lots of love, Amy xx


--
AmyTaylor
------------------------------------------------------------------------
AmyTaylor's Profile: http://www.excelforum.com/member.php...o&userid=20970
View this thread: http://www.excelforum.com/showthread...hreadid=508886

Is the list typed in or is it located on a range on the worksheet. For the
Latter

assume the source of the list is Z20:Z30 on the active page
Further assume the cell with the data validation is B9

The code would then be something like


Private Sub CommandButton1_Click()
Dim rng as Range, cell as Range
set rng = Range("Z20:Z30")
for each cell in rng
Range("B9").Value = cell
activesheet.Printout
Next
End Sub

--
Regards,
Tom Ogilvy

"AmyTaylor" wrote
in message ...

Hi everyone, hopefully someone can help with this question....

I have a cell, B4, that contains a drop down list of names (from a
validation list), when a name is selected, other selected cells in the
workbook change as they are based on a vlookup. This then changes the 2
charts on the same page.

What I would like to do is allow the user to click a button and spool
thru all the names in the list and print each one automatically.
Can this be done using VBA? If so, how do I go about it ?

Thanks again, lots of love, Amy xx


--
AmyTaylor
------------------------------------------------------------------------
AmyTaylor's Profile:
http://www.excelforum.com/member.php...o&userid=20970
View this thread: http://www.excelforum.com/showthread...hreadid=508886

Dear Tom, that is exactly what I was after, except my list was based on
a validation list on another sheet with the defined name
"ListOfNames".

Thanks again.

Amy xx


--
AmyTaylor
------------------------------------------------------------------------
AmyTaylor's Profile: http://www.excelforum.com/member.php...o&userid=20970
View this thread: http://www.excelforum.com/showthread...hreadid=508886

Assume the ListofNames is on Sheet3

Private Sub CommandButton1_Click()
Dim rng as Range, cell as Range
set rng = Worksheets("Sheet3").Range("ListofNames")
for each cell in rng
Range("B9").Value = cell
activesheet.Printout
Next
End Sub

--
Regards,
Tom Ogilvy


"AmyTaylor" wrote
in message ...

Dear Tom, that is exactly what I was after, except my list was based on
a validation list on another sheet with the defined name
"ListOfNames".

Thanks again.

Amy xx


--
AmyTaylor
------------------------------------------------------------------------
AmyTaylor's Profile:
http://www.excelforum.com/member.php...o&userid=20970
View this thread: http://www.excelforum.com/showthread...hreadid=508886

Tom, thanks for your reply - that is brilliant !
Love Amy xx


--
AmyTaylor
------------------------------------------------------------------------
AmyTaylor's Profile: http://www.excelforum.com/member.php...o&userid=20970
View this thread: http://www.excelforum.com/showthread...hreadid=508886