Previous Topic Next Topic

How do I Copy Two Cell Ranges to New Blank 2

Closed
monocat Posts 1 Registration date Sunday April 12, 2009 Status Member Last seen April 13, 2009 - Apr 13, 2009 at 02:20 PM
mubashir aziz Posts 190 Registration date Sunday April 12, 2009 Status Member Last seen February 16, 2010 - Apr 13, 2009 at 11:58 PM
Hi All- a newbie,

I've been trying to figure this out since yesterday through Excel forums, but to no avail.

This is my basic table I currently have.

Col1 Col2 Col3 Col4 Col5 Col6 Col7
Item1 24 2.00 48 1.50 96 1.00
Item2 24 3.00 48 2.50 96 2.00

I want to be able to use a macro and do the following for everyrow in the Worksheet. Basically copy two different ranges and paste in new rows.

Col1 Col2 Col3
Item1 24 2.00
Item1 48 1.50
Item1 96 1.00
Item2 24 3.00
Item2 48 2.50
Item3 96 2.00

Any help is appreciated.
Related:

1 response

Answer 1 / 1
mubashir aziz Posts 190 Registration date Sunday April 12, 2009 Status Member Last seen February 16, 2010 165
Apr 13, 2009 at 11:58 PM
Below macro will copy First 3 column of Sheet1 in Sheet 2 .... you can change selection as per your requirements .....


Sub copy_three_col()
'
' This macro will select first 3 column of sheet 1and then copy to Sheet2
'
Columns("A:C").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Range("D13").Select


End Sub
0