Bir makroyu döngü haline nasıl getirebilirim

[mumillica]

Arkadaşlar merhaba
Aşağıdaki hazır makro kodunu 100 kere döngü haline getirmek istiyorum nasıl yapabilirim
6 yazan yerler 100 e kadar gidecek


ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC1,Sayfa2!R3C1:R200C13,Sayfa1!R4C,0)"
Range("B6").Select
Selection.AutoFill Destination:=Range("B6:M6"), Type:=xlFillDefault
Range("B6:M6").Select
Selection.Copy
Sheets("Netten-Brüte").Select
Range("M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.Run "'Brütten-Nete-Netten-Brüte-Ücret.xlsm'!Brut"
Sheets("Sayfa1").Select
Range("B6").Select
ActiveCell.FormulaR1C1 = _
"=+VLOOKUP(R3C1,'Netten-Brüte'!R2C1:R14C13,Sayfa1!R4C,0)"
Range("B6").Select
Selection.AutoFill Destination:=Range("B6:M6"), Type:=xlFillDefault
Range("B6:M6").Select
Selection.Copy
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M6").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B7").Select

 

[ÖmerBey]

Merhaba, deneyiniz...

For a = 6 To 100
    ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC1,Sayfa2!R3C1:R200C13,Sayfa1!R4C, 0)"
    Range("B" & a).AutoFill Destination:=Range("B" & a & ":M" & a), Type:=xlFillDefault
    Range("B" & a & ":M" & a).Copy
    Sheets("Netten-Brüte").Select
    Range("M3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
    'Application.Run "'Brütten-Nete-Netten-Brüte-Ücret.xlsm'!Brut"
    Sheets("Sayfa1").Select
    Range("B" & a).FormulaR1C1 = _
    "=+VLOOKUP(R3C1,'Netten-Brüte'!R2C1:R14C13,Sayfa1!R4C,0)"
    Range("B" & a).AutoFill Destination:=Range("B" & a & ":M" & a), Type:=xlFillDefault
    Range("B" & a & ":M" & a).Copy
    Range("B" & a).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("M" & a).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B" & a + 1).Select
Next

 

[mumillica]

teşekkürler