Copy X Row N Number of Times
Solved/Closed
lionsclaw
Posts
1
Registration date
Tuesday May 20, 2014
Status
Member
Last seen
May 20, 2014
-
May 20, 2014 at 03:00 AM
smiller1712 - Jul 21, 2014 at 10:08 AM
smiller1712 - Jul 21, 2014 at 10:08 AM
Related:
- Copy X Row N Number of Times
- Times attack - Download - Children
- Ocarina of time rom - Download - Action and adventure
- Saints row 2 cheats - Guide
- Computer beeps 3 times - Guide
- Time of day clock stopped - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
552
May 20, 2014 at 11:00 AM
May 20, 2014 at 11:00 AM
Hi Lionsclaw,
The following code will do as requested:
Best regards,
Trowa
The following code will do as requested:
Sub RunMe()
Dim lRow As Long
Dim x, MyCount As Integer
lRow = Range("A1").End(xlDown).Row
For Each cell In Range("A1:A" & lRow)
cell.Copy
MyCount = cell.Offset(0, 1)
Do
x = x + 1
Range("C" & x).PasteSpecial
MyCount = MyCount - 1
Loop Until MyCount = 0
Next cell
Application.CutCopyMode = False
End Sub
Best regards,
Trowa
Jul 21, 2014 at 10:08 AM
Thanks,