Repeat Macro

Hello every one! I need help to repeat a macro. Down you can see that I repeated it manually 3 times. Only two things change every time the macro is repeated: The second line (every tim...

excel

Formulas and Functions

Macros and VBA

JKPieterse

Mar 05, 2018

I suspect something along these lines:

Sub Demo()
    Dim lOffset As Long
    For lOffset = 0 To 500 Step 5
        Sheets("DataBase").Range("A2:E130").Offset(0, lOffset).Copy
        Sheets("CopyHere").Range("A3").PasteSpecial _
                Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Sheets("CopyHere").Range("N2:Y2").Copy
        Sheets("Salvation").Range("B" & Sheets("Salvation").Rows.Count).End(xlUp).Offset(1).PasteSpecial _
                Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next
End Sub

Bill Zarvalias

Copper Contributor

Mar 05, 2018

Dear Jan Karel Pieterse,

I cant thank you enough! It worked!

Just for the record (to those who may find this post useful in the future) it only repeats the macro 100 times. But if you change:

For lOffset = 0 To 500 Step 5

For lOffset = 0 To 2500 Step 5

You are ready to go!

P.S

This macro was needed as a part of a research for my thesis (Heart Failure Patients - New diagnostic tools). When I compete it, I am going to reply to you back, because I am going to write your name on the thanks page of my thesis as a contributor to my research! Thank you again!

JKPieterse

Silver Contributor

Mar 06, 2018

You're welcome! And apologies about the wrong endpoint of the loop. I wish you success finishing your thesis!

Forum Discussion

Repeat Macro

Resources