1) I have a report in sheet 1 that is populated by data in another sheet
using vlookup.
2) I have a range name = "list" (in sheet 1 as well, which lists ticker
symbol)
3) I would like the macro to loop through all the names in the "list" range
and print the reports.

Also for purposes of this ex/ I would like each name copied to cell A1, as
the vlookup keys off A1 to update the report, cycling through the list and
printing each report. -- Thanks

"Lightjag" wrote:

1) I have a report in sheet 1 that is populated by data in another sheet
using vlookup.
2) I have a range name = "list" (in sheet 1 as well, which lists ticker
symbol)
3) I would like the macro to loop through all the names in the "list" range
and print the reports.

Ok the macro below cycles throught the list but only prints when it gets to
bottom of list. What should I change to get it to print each time is cycles
throught the list? Tks


Sub printinfo()
Dim n As Integer
n = 1
Do
Application.Goto Reference:="list"
ActiveCell.Offset(n + 1, 0).Select
Selection.copy
Application.Goto Reference:="ticker"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SelectedSheets.PrintOut
Loop Until IsEmpty(ActiveCell.Offset(0, 1))
End Sub

"Lightjag" wrote:

Also for purposes of this ex/ I would like each name copied to cell A1, as
the vlookup keys off A1 to update the report, cycling through the list and
printing each report. -- Thanks

"Lightjag" wrote:

1) I have a report in sheet 1 that is populated by data in another sheet
using vlookup.
2) I have a range name = "list" (in sheet 1 as well, which lists ticker
symbol)
3) I would like the macro to loop through all the names in the "list" range
and print the reports.

Any ideas?

"Lightjag" wrote:

Ok the macro below cycles throught the list but only prints when it gets to
bottom of list. What should I change to get it to print each time is cycles
throught the list? Tks


Sub printinfo()
Dim n As Integer
n = 1
Do
Application.Goto Reference:="list"
ActiveCell.Offset(n + 1, 0).Select
Selection.copy
Application.Goto Reference:="ticker"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SelectedSheets.PrintOut
Loop Until IsEmpty(ActiveCell.Offset(0, 1))
End Sub

"Lightjag" wrote:

Also for purposes of this ex/ I would like each name copied to cell A1, as
the vlookup keys off A1 to update the report, cycling through the list and
printing each report. -- Thanks

"Lightjag" wrote:

1) I have a report in sheet 1 that is populated by data in another sheet
using vlookup.
2) I have a range name = "list" (in sheet 1 as well, which lists ticker
symbol)
3) I would like the macro to loop through all the names in the "list" range
and print the reports.

Hi
In first sub n is not being incremented. Put in
n = n+1
after the printout line.
Don't know what you want in your second question. What is a name? What
does "vlookup keys off A1" mean?
regards
Paul
On Mar 13, 6:18*pm, Lightjag
wrote:
Any ideas?

"Lightjag" wrote:
Ok the macro below cycles throught the list but only prints when it gets to
bottom of list. What should I change to get it to print each time is cycles
throught the list? Tks

Sub printinfo()
* * *Dim n As Integer
* * *n = 1
* * *Do
* * *Application.Goto Reference:="list"
* * *ActiveCell.Offset(n + 1, 0).Select
* * *Selection.copy
* * *Application.Goto Reference:="ticker"
* * *Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
* * * * :=False, Transpose:=False
* * *ActiveWindow.SelectedSheets.PrintOut
* * *Loop Until IsEmpty(ActiveCell.Offset(0, 1))
End Sub

"Lightjag" wrote:

Also for purposes of this ex/ I would like each name copied to cell A1, as
the vlookup keys off A1 to update the report, cycling through the list and
printing each report. -- Thanks

"Lightjag" wrote:

1) I have a report in sheet 1 that is populated by data in another sheet
using vlookup.
2) I have a range name = "list" (in sheet 1 as well, which lists ticker
symbol)
3) I would like the macro to loop through all the names in the "list" range
and print the reports.

Ok I made the change, but it still only prints the last item in the list
(instead of printing each item in the list). Vlookup is just not the issue
here, as it is just updating the report based on the value in cell A1.

" wrote:

Hi
In first sub n is not being incremented. Put in
n = n+1
after the printout line.
Don't know what you want in your second question. What is a name? What
does "vlookup keys off A1" mean?
regards
Paul
On Mar 13, 6:18 pm, Lightjag
wrote:
Any ideas?

"Lightjag" wrote:
Ok the macro below cycles throught the list but only prints when it gets to
bottom of list. What should I change to get it to print each time is cycles
throught the list? Tks

Sub printinfo()
Dim n As Integer
n = 1
Do
Application.Goto Reference:="list"
ActiveCell.Offset(n + 1, 0).Select
Selection.copy
Application.Goto Reference:="ticker"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SelectedSheets.PrintOut
Loop Until IsEmpty(ActiveCell.Offset(0, 1))
End Sub

"Lightjag" wrote:

Also for purposes of this ex/ I would like each name copied to cell A1, as
the vlookup keys off A1 to update the report, cycling through the list and
printing each report. -- Thanks

"Lightjag" wrote:

1) I have a report in sheet 1 that is populated by data in another sheet
using vlookup.
2) I have a range name = "list" (in sheet 1 as well, which lists ticker
symbol)
3) I would like the macro to loop through all the names in the "list" range
and print the reports.