Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy sheets with content into same workbook
Hi,
I want to build a macro in which 6 particular sheets are copied (with content, formulas and pivottables) and put at the end of the workbook. The problem with recording is that the original sheets can differ from sheet name on each update of the database because of a macro that looks at a certain cell of that particular sheet and than renames accordingly (after updating the pivot). Today the sheet name can be 6a- CELL- SRMS-AD and the next time 6a- NUT -SRMS-AD. At recording it looks like this, but this is not working for me. Any help??? Sub multiplysheets() ' multiplysheets Macro ' Macro recorded 27-3-2007 by Karata01 Sheets(Array("6a- Cell-SRMS-AD YTD", "6b- Cell-SRMS-AD-CUS YTD", _ "6c- Cell-SRMS-AD-CUS YTD", "6d- Cell-SRMS-A-P-C YTD", "6e- Cell-Enduse YTD", _ "6f- Cell-SRMS-cntry YTD")).Select Sheets("6f- Cell-SRMS-cntry YTD").Activate Sheets(Array("6a- Cell-SRMS-AD YTD", "6b- Cell-SRMS-AD-CUS YTD", _ "6c- Cell-SRMS-AD-CUS YTD", "6d- Cell-SRMS-A-P-C YTD", "6e- Cell-Enduse YTD", _ "6f- Cell-SRMS-cntry YTD")).Copy Befo=Sheets(53) End Sub Thanks in advance |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy sheets with content into same workbook
A macro can only copy particular sheets if they can be identified in some
way - by name, position, content, selection, etc. Once you can lay out the rules for identifying the sheets a macro can be written to use it. -- Jim "A. Karatas" wrote in message ups.com... | Hi, | | I want to build a macro in which 6 particular sheets are copied (with | content, formulas and pivottables) and put at the end of the workbook. | The problem with recording is that the original sheets can differ from | sheet name on each update of the database because of a macro that | looks at a certain cell of that particular sheet and than renames | accordingly (after updating the pivot). Today the sheet name can be | 6a- CELL- SRMS-AD and the next time 6a- NUT -SRMS-AD. | At recording it looks like this, but this is not working for me. Any | help??? | | | Sub multiplysheets() | ' multiplysheets Macro | ' Macro recorded 27-3-2007 by Karata01 | | Sheets(Array("6a- Cell-SRMS-AD YTD", "6b- Cell-SRMS-AD-CUS YTD", _ | "6c- Cell-SRMS-AD-CUS YTD", "6d- Cell-SRMS-A-P-C YTD", "6e- | Cell-Enduse YTD", _ | "6f- Cell-SRMS-cntry YTD")).Select | Sheets("6f- Cell-SRMS-cntry YTD").Activate | Sheets(Array("6a- Cell-SRMS-AD YTD", "6b- Cell-SRMS-AD-CUS YTD", _ | "6c- Cell-SRMS-AD-CUS YTD", "6d- Cell-SRMS-A-P-C YTD", "6e- | Cell-Enduse YTD", _ | "6f- Cell-SRMS-cntry YTD")).Copy Befo=Sheets(53) | End Sub | | Thanks in advance | |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy sheets with content into same workbook
So, for example, can I not use the sheetnumbering as seen in VBA.
sheet 15(6a-CELLblablabla). Sheet 15 doesn't change (the name does). Or is it possible to give a particular cell in a sheet a value and let a macro search the workbook and each time it finds the value copy the complete sheet??? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy all sheets to a new workbook | Setting up and Configuration of Excel | |||
Copy several sheets from one workbook into another at the same tim | Excel Discussion (Misc queries) | |||
copy workbook sheets? | Setting up and Configuration of Excel | |||
Copy 1-4 sheets to a new workbook | Excel Programming | |||
copy 3 sheets & save them into new workbook | Excel Programming |