Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Split workbook
MS Office 2000, Windows 2000
Able to split the workbook so each sheet creates a new workbook with the following macro. Public Sub SpitWorkbook() Dim W As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each W In Worksheets ActiveSheet.Copy Cells.Copy Cells.PasteSpecial xlPasteValues Cells(1).Select Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "/" & W.Name ActiveWorkbook.Close Next W Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub However, as each sheet represents an employee I need the employees that report to the same manager copied to the same workbook. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i work on both workbook when using split windows | Excel Discussion (Misc queries) | |||
In a workbook, how do I not have initials split and wrapped? | Excel Discussion (Misc queries) | |||
Separate/Split all the worksheets in a workbook into different fil | Excel Discussion (Misc queries) | |||
Workbook split into two after opening | Excel Discussion (Misc queries) | |||
split data in many workbook | Excel Programming |