Related:
- VBA Copy/Paste fixed range a number of times
- Excel vba copy paste range another workbook - How-To - Excel
- Excel vba copy paste range loop ✓ - Forum - Excel
- Excel vba copy paste range another worksheet ✓ - Forum - Excel
- Excel vba find string in range and return row number - How-To - Excel
- Vba copy paste data below the last used row - How-To - Excel
1 reply
TrowaD
- Posts
- 2670
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- October 22, 2020
Hi Srinivas,
Give the following code a try:
Best regards,
Trowa
Give the following code a try:
Sub RunMe()
Dim x, dRow, Counter As Integer
Counter = InputBox("How many times would you like to paste?:")
dRow = 7
Range("A2:A6").Copy
For x = 1 To Counter
Range("A" & dRow).PasteSpecial
dRow = dRow + 5
Next x
Application.CutCopyMode = False
End Sub
Best regards,
Trowa
Thanks for the Help. Works like a champ.
I need to stop the code after 200 rows(40 times to copy A1:A5). Please help.
- Posts
-
2670
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- October 22, 2020
446For that a few minor changes are needed:
Sub RunMe() Dim x, dRow, Counter As Integer Counter = 39 dRow = 6 Range("A1:A5").Copy For x = 1 To Counter Range("A" & dRow).PasteSpecial dRow = dRow + 5 Next x Application.CutCopyMode = False End SubBest regards,
Trowa
Sorry for the delayed response. I was on field visit. Thank you very much. this is what I really need. Once again thank you for your time and help.
- Posts
-
2670
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- October 22, 2020
446