Dave My New Macro

[Guest]

Hi!

Thanks for you help. I am still getting a "syntax error" with your
corretions. Can you tell me what this means in plain english. The computer
thinks i'm a pro while i'm only a rookie.

Sub PrintReports9A()
Dim myCell As Range
Dim myrng As Range

With Worksheets("balances04")
set myrng = .range("a9,.cells(.rows.count,"A".end(xlup)) <the error is in
this line>
End With


For Each myCell In myrng.Cell
With Worksheets("STATEMENT")
.Range("C11").Value = myCell.Value
.Range("D24").Value = myCell(1, 2).Value
.Range("J11").Value = myCell(1, 3).Value
.Range("H25").Value = myCell(1, 6).Value
.Range("J32").Value = myCell(1, 13).Value
.Range("J34").Value = myCell(1, 14).Value
.PrintOut
End With
Next myCell

End Sub

Thank you

Julian

 

[Dave Peterson]

Either I messed up or you messed up with some typos!

With Worksheets("balances04")
Set myrng = .Range("a9", .Cells(.Rows.Count, "A").End(xlUp))
End With

Sometimes it's better to copy and paste from the newsgroup post than to retype
the code.

 

[Guest]

Thanks I'll try to copy and paste your original Sub.

I'll let you know what happens. By the way, what are you doing up this early.

Julian

 

[Guest]

Dave I copied and pasted but the error message says Expected: List Seproator
or )
with the "A" highlighted. See below.

Sub PrintReports9A()
Dim myCell As Range
Dim myrng As Range

With Worksheets("balances04")
Set myrng = .Range("A9,.Cells(.Rows.Count,"A").End(xlup)) <Error is here>
End With


For Each myCell In myrng.Cell
With Worksheets("STATEMENT")
.Range("C11").Value = myCell.Value
.Range("D24").Value = myCell(1, 2).Value
.Range("J11").Value = myCell(1, 3).Value
.Range("H25").Value = myCell(1, 6).Value
.Range("J32").Value = myCell(1, 13).Value
.Range("J34").Value = myCell(1, 14).Value
.PrintOut
End With
Next myCell

End Sub

Sorry if i blew it

Julian

 

[Dave Peterson]

You're dropping a double quote:

With Worksheets("balances04")
Set myrng = .Range("a9", .Cells(.Rows.Count, "A").End(xlUp))
End With

The A9 is surrounded by double quotes: "a9"

and I didn't notice this before, but you have another typo:

For Each myCell In myrng.Cell
should be
For Each myCell In myrng.Cells

(add an S to CellS)

 

[Guest]

Thanks, I am a typo Champ. I'll let you know

Julian

 

[Guest]

BINGO It works. Thank you, Thank you, Thank you.

I can now use this as a Sub of other massive lists that need to be printed
out individually.

Thanks again

Julian

 

[Guest]

BINGO It works. I can now use this for other massive lists that need to be
printed out individually.

Thanks again,

Julian

 

[Dave Peterson]

You're welcome.

BINGO It works. I can now use this for other massive lists that need to be
printed out individually.

Thanks again,

Julian