#1   Report Post  
Posted to microsoft.public.excel.misc
 
Posts: n/a
Default Adding Sheets

I have a Summary Workbook & sheet in a folder. Currently this workbook
looks for "additional" workbooks in the same folder and opens each up
copies the data and paste into the summary workbook. These "additional"
workbooks are named a1,a2,a3 etc...and can vary from month to month. It
can go up to 15 "additional" workbooks.
What I am having to do now manually is this; open my summary workbook
add or delete the new sheets that I name with the same name, ie. a1,
a2, a3. Then I can run the VBA code to open a1, copy the data and paste
into the summary workbook in sheet a1. How can I go about having it
coded to where it will look for a1 workbook, copy the data, then if
sheet a1 does not exist in the summary workbook, create a1 worksheet
and paste the data? The opposite of this would be if an a14 workbook
does not exist, but in the summary workbook it does, then remove sheet
a14 from the summary workbook.

  #2   Report Post  
Posted to microsoft.public.excel.misc
mrice
 
Posts: n/a
Default Adding Sheets


Detecting workbooks can be done with the dir statement.

If one is missing from your summary, you can use Sheets.Add and then
ActiveSheet.Name

For deleting, you may need to use application.displayalerts = false to
avoid confirmation dialog boxes appearing.


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=544287

  #3   Report Post  
Posted to microsoft.public.excel.misc
 
Posts: n/a
Default Adding Sheets

Martin,

I am not at all sure what, how or where to start on this one. I have
never used the Dir statement. Could you help me out and explain a
little more detail for me?
I typically start out with the code stating something like this:
Sub getdata()
Dim CMAPReport As Workbook
Workbooks.Open Filename:=ThisWorkbook.Path & "\c1.htm"
Cells.Select
Selection.Copy
Windows("CMAP Report.xls").Activate
Sheets("Air Circ. Sidecaps").Select
Cells.Select
ActiveSheet.Paste
With Cells
..MergeCells = False
End With
Columns("B:C").ClearContents
Workbooks("C1").Close SaveChanges:=False

Would I need to re-do this section? or add-in? etc...

Thanks,

Hans

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Macro for adding more sheets Dom Excel Discussion (Misc queries) 1 April 30th 06 06:16 AM
Adding relevant sheets Gavin Ling Excel Worksheet Functions 0 January 4th 06 05:18 PM
adding accross sheets in a workbook Todd Excel Worksheet Functions 3 December 22nd 05 09:38 PM
adding cells in different work sheets dmedina Excel Discussion (Misc queries) 3 October 18th 05 07:24 PM
adding lots of cells from different sheets dodgyone Excel Worksheet Functions 2 September 26th 05 04:23 PM


All times are GMT +1. The time now is 02:31 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"