Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert copied cells to a different workbook
Helo
I have this code (see code below) and it works fine for me. Now I want to alter it so the sheet it copys rows to (sheet "ALL"), is in a diferent workbook (lets say "workbook2" which is on my desktop. How do I alter the code below? and does workbook2 have to be open when I run the macro? (i'd rather have it saved to without opening it if possible but this is not critical) Sheets("EXPORT").Select lr = Cells(Rows.Count, "b").End(xlUp).Row Range("a1:iv" & lr).copy Sheets("ALL").Select Rows("1:1").Select Selection.Insert Shift:=xlDown |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert copied cells to a different workbook
Using your code style and assuming the active wb is wb1:
Workbooks(1).Sheets("EXPORT").Select lr = Cells(Rows.Count, "b").End(xlUp).Row Range("a1:iv" & lr).copy Workbooks(2).Sheets("ALL").Select Rows("1:1").Select Selection.EntireRow.Insert Shift:=xlDown "steven" wrote: Helo I have this code (see code below) and it works fine for me. Now I want to alter it so the sheet it copys rows to (sheet "ALL"), is in a diferent workbook (lets say "workbook2" which is on my desktop. How do I alter the code below? and does workbook2 have to be open when I run the macro? (i'd rather have it saved to without opening it if possible but this is not critical) Sheets("EXPORT").Select lr = Cells(Rows.Count, "b").End(xlUp).Row Range("a1:iv" & lr).copy Sheets("ALL").Select Rows("1:1").Select Selection.Insert Shift:=xlDown |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert copied cells to a different workbook
Workbook 2 should be open.
"steven" wrote: Helo I have this code (see code below) and it works fine for me. Now I want to alter it so the sheet it copys rows to (sheet "ALL"), is in a diferent workbook (lets say "workbook2" which is on my desktop. How do I alter the code below? and does workbook2 have to be open when I run the macro? (i'd rather have it saved to without opening it if possible but this is not critical) Sheets("EXPORT").Select lr = Cells(Rows.Count, "b").End(xlUp).Row Range("a1:iv" & lr).copy Sheets("ALL").Select Rows("1:1").Select Selection.Insert Shift:=xlDown |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert copied cells to a different workbook
Will this help?
Sheets("EXPORT").Select lr = Cells(Rows.Count, "b").End(xlUp).Row Range("a1:iv" & lr).copy Dim Wb2 As Workbook Set Wb2 = Workbooks.Open(C:\Documents and Settings\YourUserName\Desktop\Worbook2.xls Sheets("ALL").Select Rows("1:1").Select Selection.Insert Shift:=xlDown Wb2.Close True Regards, Alan "steven" wrote in message ... Helo I have this code (see code below) and it works fine for me. Now I want to alter it so the sheet it copys rows to (sheet "ALL"), is in a diferent workbook (lets say "workbook2" which is on my desktop. How do I alter the code below? and does workbook2 have to be open when I run the macro? (i'd rather have it saved to without opening it if possible but this is not critical) Sheets("EXPORT").Select lr = Cells(Rows.Count, "b").End(xlUp).Row Range("a1:iv" & lr).copy Sheets("ALL").Select Rows("1:1").Select Selection.Insert Shift:=xlDown |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
cannot insert cells copied from one workbook to another | Excel Discussion (Misc queries) | |||
Insert copied cells | Excel Worksheet Functions | |||
Insert Copied Cells? | Excel Discussion (Misc queries) | |||
Insert Copied Cells? | Excel Programming | |||
insert copied cells | Excel Discussion (Misc queries) |