Copy all result and put them all together in the next columns

[motilulla]

Hello,</SPAN></SPAN>

Data column "C" and columns D:F got results what I want copy all results of columns D:F and put them together in the columns H:I as shown in the example below</SPAN></SPAN>

Book1
	A	B	C	D	E	F	G	H	I	J
1
2
3
4
5			Num	n1	n2	n3		n1	n2	n3
6			0	0	1	1		0	1	1
7			1	1	1	1		1	1	1
8			0	1	13	2		1	13	2
9			0					2	13	3
10			0					2	78	11
11			0					3	78	13
12			0					3	286	28
13			0					4	286	54
14			0					4	715	118
15			13	2	13	3
16			12
17			11
18			10
19			9
20			8
21			7
22			6
23			5
24			4
25			3
26			2
27			1
28			0	2	78	11
29			0
30			0
31			0
32			0
33			0
34			0
35			0
36			0
37			0
38			0
39			11	3	78	13
40			10
41			9
42			8
43			7
44			6
45			5
46			4
47			3
48			2
49			1
50			0	3	286	28
51			0
52			0
53			0
54			0
55			8	4	286	54
56			7
57			6
58			5
59			4
60			3
61			2
62			1
63			0	4	715	118
64			0
65			0
66			0
67			0
68			0
Sheet2

Thanks In Advance </SPAN></SPAN>
Using version 2000</SPAN></SPAN>

Regards,</SPAN></SPAN>
Moti</SPAN></SPAN>

 

[Fluff]

If the values in cols D:F are constants (not formulas) try

Sub Motilulla()
   Range("D:F").SpecialCells(xlConstants).Copy Range("H5")
End Sub

 

[rpaulson]

try this.

Sub do_it()


For r = 6 To Cells(Rows.Count, "D").End(xlUp).Row
If Cells(r, "D") <> "" Then

lr = Cells(Rows.Count, "H").End(xlUp).Row + 1

Range(Cells(lr, "H"), Cells(lr, "J")).Value = Range(Cells(r, "D"), Cells(r, "F")).Value
End If
Next r
End Sub

Ross

 

[motilulla]

If the values in cols D:F are constants (not formulas) try

Sub Motilulla()
   Range("D:F").SpecialCells(xlConstants).Copy Range("H5")
End Sub

Fluff, yes it works as you declare with values. But in this case column "D" results are generated by the formula. So it highlight the range in VBA</SPAN></SPAN>

Thank you for your help and time </SPAN></SPAN>

Kind Regards,</SPAN></SPAN>
Moti </SPAN></SPAN>

 

[motilulla]

try this.

Sub do_it()


For r = 6 To Cells(Rows.Count, "D").End(xlUp).Row
If Cells(r, "D") <> "" Then

lr = Cells(Rows.Count, "H").End(xlUp).Row + 1

Range(Cells(lr, "H"), Cells(lr, "J")).Value = Range(Cells(r, "D"), Cells(r, "F")).Value
End If
Next r
End Sub

Ross

rpaulson, code worked perfect! As request.</SPAN></SPAN>

Thank you for your help and time </SPAN></SPAN>

Kind Regards,</SPAN></SPAN>
Moti</SPAN></SPAN>

 

[Fluff]

Glad we could help & thanks for the feedback