Forum Discussion
Solved
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...
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
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
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
to
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!
- You're welcome! And apologies about the wrong endpoint of the loop. I wish you success finishing your thesis!
