Copy and Paste row 5- row 9 n number of times
Closed
vic
-
Nov 18, 2014 at 02:05 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Nov 19, 2014 at 01:08 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Nov 19, 2014 at 01:08 AM
Related:
- Copy and Paste row 5- row 9 n number of times
- Gta 5 download apk pc - Download - Action and adventure
- Forza horizon 5 download free - Download - Racing
- Mixcraft 9 free download - Download - Musical production
- Bluestacks 5 - Download - Android emulators
- Saints row 2 cheats - Guide
1 response
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Nov 19, 2014 at 01:08 AM
Nov 19, 2014 at 01:08 AM
your data from 5th row is like this
Row1 x x x x
Row2 y y y y
Row3 z z z z
Row4 a a a a
Row5 b b b b
try this macro
Row1 x x x x
Row2 y y y y
Row3 z z z z
Row4 a a a a
Row5 b b b b
try this macro
Sub test()
Dim r As Range, j As Long, k As Long, dest As Range
Application.ScreenUpdating = False
j = 5
Set r = Range(Range("A5"), Range("A5").End(xlToRight).End(xlDown))
Set dest = Range("A15")
dest.CurrentRegion.Cells.Clear
k = 1
Do
r.Copy dest
k = k + 1
Set dest = dest.Offset(5, 0)
If k = j + 1 Then Exit Do
Loop
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "copying done"
End Sub
