Need help for VBA duplicate data.

[motilulla]

Using Excel 2010

Hello,

Here below is a piece of code I have broken my head but cannot get it work the way I want.

I have some set of data in the range A2:C6 which I want to duplicate them in the row 20, 25, 30 and 35… code is working only for row 20 plese need help how can it be set for next to 25, 30, and for 35 row

Sub DuplicateData()
 
  For i = 2 To 5 Step 1
    Cells(i, 1).Resize(2, 3).Copy
 
    Cells(20, 1).PasteSpecial xlValues 'code write only in row 20 i want to next data to write in row 25,30 and 35
 
  Next
  Application.CutCopyMode = False
 
End Sub

Thank you.

Regards,
Moti

 

[Joe4]

Try this:

Sub DuplicateData()
      
  Dim i As Long
 
  Range("A2:C6").Copy
  
  For i = 20 To 35 Step 5
    Cells(i, 1).PasteSpecial xlValues 'code write only in row 20 i want to next data to write in row 25,30 and 35
  Next
  
  Application.CutCopyMode = False
 
End Sub

 

[motilulla]

Try this:

Sub DuplicateData()
     
  Dim i As Long
 
  Range("A2:C6").Copy
 
  For i = 20 To 35 Step 5
    Cells(i, 1).PasteSpecial xlValues 'code write only in row 20 i want to next data to write in row 25,30 and 35
  Next
 
  Application.CutCopyMode = False
 
End Sub

Hello Joe4, I tried the code my code was duplicating step 2 results in the row 20 & 21 but next step 2 were going in to same 20 & 21 row I need my code work as below example.

Excel Question.xls
	A	B	C	D
1	n1	n2	n3
2	1	12	27
3	5	22	32
4	9	13	19
5	12	15	37
6	6	11	25
7
8
9
10
11
12
13
14
15
16
17
18
19
20	1	12	27
21	5	22	32
22
23
24
25	5	22	32
26	9	13	19
27
28
29
30	9	13	19
31	12	15	37
32
33
34
35	12	15	37
36	6	11	25
37
38
Sheet2

Thank you.

Regards,
Moti

 

[Joe4]

Yes, you had a discrepancy in your original post. You said:

I have some set of data in the range A2:C6 which I want to duplicate them in the row 20, 25, 30 and 35

but it looks like you really meant C3, not C6.

That is a simple change:

Sub DuplicateData()
    
  Dim i As Long
 
  Range("A2:C3").Copy
 
  For i = 20 To 35 Step 5
    Cells(i, 1).PasteSpecial xlValues 'code write only in row 20 i want to next data to write in row 25,30 and 35
  Next
 
  Application.CutCopyMode = False
 
End Sub

 

[motilulla]

Yes, you had a discrepancy in your original post. You said:

but it looks like you really meant C3, not C6.

That is a simple change:

Sub DuplicateData()
  
  Dim i As Long
 
  Range("A2:C3").Copy
 
  For i = 20 To 35 Step 5
    Cells(i, 1).PasteSpecial xlValues 'code write only in row 20 i want to next data to write in row 25,30 and 35
  Next
 
  Application.CutCopyMode = False
 
End Sub

Hello Joe4, it is duplicating only row results cells “A2:C3” (4 times in the rows below.)

Please check my example sheet

I want the Cells “A2:C3” must go in to A20:C21,

And next Cells “A3:C4” must go in Cells A25:C26,

And next Cells “A4:C5” must go in Cells A30:C31,

And next Cells “A5:C6” must go in Cells A35:C36.

Thank you.

Regards,
Moti

 

[Joe4]

Oh, sorry I misunderstood.
I think you only need your past line updated from your original code:

Sub DuplicateData()
      
  Dim i As Long
 
  For i = 2 To 5
    Cells(i, 1).Resize(2, 3).Copy
    Cells((i * 5) + 10, 1).PasteSpecial xlValues 'code write only in row 20 i want to next data to write in row 25,30 and 35
  Next
  
  Application.CutCopyMode = False
 
End Sub

 

[motilulla]

Oh, sorry I misunderstood.
I think you only need your past line updated from your original code:

Sub DuplicateData()
     
  Dim i As Long
 
  For i = 2 To 5
    Cells(i, 1).Resize(2, 3).Copy
    Cells((i * 5) + 10, 1).PasteSpecial xlValues 'code write only in row 20 i want to next data to write in row 25,30 and 35
  Next
 
  Application.CutCopyMode = False
 
End Sub

Hello Joe4, great this did the trick worked as I required thank you for your kind help for solving my issue.

Have a good day and Good Luck,

Kind Regards,
Moti

 

[Joe4]

You are welcome.
Glad I was able to help!