Macro Help

N

Needy Novice

I am new to Excel Macros, but not to Excel. I want to write a macro that
will copy the VALUES in a row to row A1, then print the range "Print", return
to the next row in the worksheet and do it again.

When I recorded my macro, it keeps returning to the first row I copied and
does not go down to the next row and repeat the action.
 
D

Dave Peterson

Maybe something like:

option explicit
sub testme01()

dim FirstRow as long
Dim LastRow as long
Dim iRow as long

with worksheets("sheet1")
firstrow = 2
lastrow = .cells(.rows.count,"A").end(xlup).row
for irow = firstrow to lastrow
.rows(irow).copy
.range("a1").pastespecial paste:=xlpastevalues
.range("Print").printout Preview:=true
next irow
end with

end sub
 
N

Needy Novice

You are the best Dave! This worked!! Thanks for your time; I really
appreciate it.
 
Top