Repeating Macro

[MIOMY]

Hello,

I cannot program. I tried to make a macro and succeeded.

But I would want to repeat the macro until the end of numbers in the table.

Can you help me?

Here is the macro:



Sub Tulostuskollilappu()
'
' Tulostuskollilappu Makro
'


'

Range("A9").Select
ActiveCell.FormulaR1C1 = "=Taul1!R[-7]C"
Range("A10").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
Range("A9").Select
ActiveCell.FormulaR1C1 = "=Taul1!R[-6]C"
Range("A10").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False





End Sub

 

[ranman256]

like this?

for i = 9 to 6 step -1

Range("A9").Select
ActiveCell.FormulaR1C1 = "=Taul1!R[-" & i & "]C"
Range("A10").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, IgnorePrintAreas:=False

next