Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
i need help
i have 6 columns of data, A3:A550, B3:B550, C3:C550, D3:D550,E3:E550 AND J3:J550, they are in a sheet called GRAD (2), I want o copy and past these data in to sheet2 . but i want the data in each row to be copied 4 times so i will have 6 colums of data 2200 rows down. hope some one can help -- covi2k2 ------------------------------------------------------------------------ covi2k2's Profile: http://www.excelforum.com/member.php...o&userid=28078 View this thread: http://www.excelforum.com/showthread...hreadid=475839 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
i need help
This should do it. Change the references as needed. Also I only got 2192
rows because the ranges start with a3. Sub CopyAndPaste() Sheets("sheet1").Range("A3:E550").Copy Sheets("sheet2").Range("A1").PasteSpecial Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "A").End(xlUp)(2) destRng1.PasteSpecial Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "A").End(xlUp)(2) destRng1.PasteSpecial Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "A").End(xlUp)(2) destRng1.PasteSpecial Application.CutCopyMode = False Sheets("sheet1").Range("J3:J550").Copy Sheets("sheet2").Range("F1").PasteSpecial '<change the destinations as needed Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "F"). _ End(xlUp)(2) 'change row letter as needed destRng1.PasteSpecial Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "F"). _ End(xlUp)(2) 'change row letter as needed destRng1.PasteSpecial Set destRng1 = Sheets("sheet2").Cells(Rows.Count, "F"). _ End(xlUp)(2) 'change row letter as needed destRng1.PasteSpecial Application.CutCopyMode = False End Sub "covi2k2" wrote: i have 6 columns of data, A3:A550, B3:B550, C3:C550, D3:D550,E3:E550 AND J3:J550, they are in a sheet called GRAD (2), I want o copy and past these data in to sheet2 . but i want the data in each row to be copied 4 times so i will have 6 colums of data 2200 rows down. hope some one can help -- covi2k2 ------------------------------------------------------------------------ covi2k2's Profile: http://www.excelforum.com/member.php...o&userid=28078 View this thread: http://www.excelforum.com/showthread...hreadid=475839 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
i need help
you could use a copy/paste macro 4 times.something like this
for i=1 to 4 x=cells(rows.count,"a").end(xlup).row+1 range("a3:e5550,j3:j550)").copy range("a"&x) next -- Don Guillett SalesAid Software "covi2k2" wrote in message ... i have 6 columns of data, A3:A550, B3:B550, C3:C550, D3:D550,E3:E550 AND J3:J550, they are in a sheet called GRAD (2), I want o copy and past these data in to sheet2 . but i want the data in each row to be copied 4 times so i will have 6 colums of data 2200 rows down. hope some one can help -- covi2k2 ------------------------------------------------------------------------ covi2k2's Profile: http://www.excelforum.com/member.php...o&userid=28078 View this thread: http://www.excelforum.com/showthread...hreadid=475839 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
i need help
I knew there had to be an easier way
"Don Guillett" wrote: you could use a copy/paste macro 4 times.something like this for i=1 to 4 x=cells(rows.count,"a").end(xlup).row+1 range("a3:e5550,j3:j550)").copy range("a"&x) next -- Don Guillett SalesAid Software "covi2k2" wrote in message ... i have 6 columns of data, A3:A550, B3:B550, C3:C550, D3:D550,E3:E550 AND J3:J550, they are in a sheet called GRAD (2), I want o copy and past these data in to sheet2 . but i want the data in each row to be copied 4 times so i will have 6 colums of data 2200 rows down. hope some one can help -- covi2k2 ------------------------------------------------------------------------ covi2k2's Profile: http://www.excelforum.com/member.php...o&userid=28078 View this thread: http://www.excelforum.com/showthread...hreadid=475839 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|