ایجاد حلقه تکرار برای ماکرو

[younes672]

سلام
دوستان برای ماکروی ذیل یه حلقه تکرار میخوام اضافه کنم که این ماکرو به تعداد مشخصی مثلا 200 بار تکرار کند.

Sub Macro1()
'
' Macro1 Macro
'

'
Range("C2:H11").Select
Range("H2").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E5:F6").Select
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B10").Select
End Sub

[iranweld]

با سلام

در صورتیکه بخواهید از یک سلول تعداد تکرار را دریافت کند

Sub Macro1()

AA=RANGE("C1").VALUE

For i = 1 To AA

Range("C2:H11").Select
Range("H2").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E5:F6").Select
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B10").Select

Next

End Sub