Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy range and formats to new workbook
Hi,
How do i modify this code below to copy 4 different sheets in same workbook to another workbook and 4 new sheets, the new workbook is called "C:\MyFolder\Newfile.xls" all with the same criteries as down below. Private Sub CommandButton1_Click() Workbooks.Add Application.Activeworkbook.Worksheets(1).Name = "Other" With Application.ActiveWorkbook.Worksheets("Other") me.cells.copy Destination:=.Range("A1") .Range("34:65536").EntireRow.Delete .Range("V:IV").EntireColumn.Delete Application.DisplayAlerts = False .Parent.SaveAs "C:\MyFolder\Newfile.xls" Application.DisplayAlerts = True End With End Sub AHA Ole -- Jeg beskyttes af den gratis SPAMfighter til privatbrugere. Den har indtil videre sparet mig for at få 41 spam-mails. Betalende brugere får ikke denne besked i deres e-mails. Hent den gratis her: www.spamfighter.dk |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to copy only values and formats of worksheets to new workbook | Excel Worksheet Functions | |||
Copy range and formats to new Workbook | Excel Programming | |||
Copy Cells formats to another workbook | Excel Programming | |||
Copy worksheet values and formats into another workbook | Excel Programming | |||
Copy a range of cells in an unopened workbook and paste it to the current workbook | Excel Programming |