Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copying Sheets
I have this code
Workbooks.Open Filename:=Range("C1").Value Sheets("Sheet1").Select Selection.Copy ActiveWorkbook.Close SaveChanges:=False Windows("Book1.xls").Activate Sheets("Sheet2").Select ActiveSheet.Paste The cod looks at the path in C1 and opens the file listed there. I then copies Sheet1 i that workbook. It should then paste it int Book1.xls but doesm't. Any ideas what's wrong -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copying Sheets
its ok i've done it again. I should do this before I post I know.
Workbooks.Open Filename:=Range("C1").Value ActiveWindow.WindowState = xlNormal Sheets("Sheet2").Select Sheets("Sheet2").Copy Befo=Workbooks("Book1.xls").Sheets(1) Sheets("Sheet1").Select ActiveWindow.WindowState = xlMaximized MsgBox ("Completed Copying") End Su -- Message posted from http://www.ExcelForum.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copying Sheets
Maybe reading the answers you get would be a good thing too.
-- Regards, Tom Ogilvy "ianripping " wrote in message ... its ok i've done it again. I should do this before I post I know. Workbooks.Open Filename:=Range("C1").Value ActiveWindow.WindowState = xlNormal Sheets("Sheet2").Select Sheets("Sheet2").Copy Befo=Workbooks("Book1.xls").Sheets(1) Sheets("Sheet1").Select ActiveWindow.WindowState = xlMaximized MsgBox ("Completed Copying") End Sub --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copying Sheets | Excel Discussion (Misc queries) | |||
Copying sheets | Excel Worksheet Functions | |||
Copying Sheets | Excel Worksheet Functions | |||
Copying Sheets | Excel Discussion (Misc queries) | |||
copying sheets | Excel Discussion (Misc queries) |