Paste Special values from individual columns - vba

[pandora1234]

Hi I have to copy values from columns A, D and E from one worksheet to the same columns in another worksheet. I want to use vba as its a fiddly process otherwise. It would be easier to copy the whole range of data initially from A to F, but then click a button on the second worksheet to paste special the selected column values into the second worksheet. Any ideas how I could do this? I'm using excel 2007, and would assign the macro to the quick toolbar at the top. Thanks

 

[venkat1926]

data in sheet1 like this

Sheet1

*	A	B	C	D	E	F
1	14	15	90	88	48	61
2	22	57	8	47	16	81
3	98	32	22	65	68	16
4	94	34	41	45	65	97
5	4	44	40	68	13	37
6	13	18	76	28	54	81
7	85	41	98	96	46	35
8	65	52	52	13	6	65
9	35	9	89	22	20	30

<colgroup><col style="font-weight:bold; width:30px; "><col style="width:64px;"><col style="width:64px;"><col style="width:64px;"><col style="width:64px;"><col style="width:64px;"><col style="width:64px;"></colgroup><tbody>
</tbody>

Excel tables to the web >> Excel Jeanie HTML 4




try this macro and SEE SHEET2

Sub test()
Dim col(1 To 3), j As Long
Worksheets("sheet2").Cells.Clear
col(1) = "A"
col(2) = "D"
col(3) = "E"




With Worksheets("sheet1")
For j = 1 To 3
Range(.Cells(1, col(j)), .Cells(1, col(j)).End(xlDown)).Copy
With Worksheets("sheet2")
.Cells(1, j).PasteSpecial
End With
Next j
End With
End Sub