Dave My New Macro

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
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.
 
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
 
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
 
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)
 
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
 
BINGO It works. I can now use this for other massive lists that need to be
printed out individually.

Thanks again,

Julian
 
Back
Top