Copy range and formats to new Workbook

Hi,

does any one now how copy range A1:T33 to a new workbook with all it's
format
ColumnWidth, Rowheight and colours etc.
It should be run from a commandbutton

AHA
Ole_

The easiest way (in my opinion, of course) would be to copy the sheet and
clear the unwanted data

Private Sub CommandButton1_Click()
Me.copy
activesheet.Range("34:65536").EntireRow.Delete
activesheet.Range("V:IV").EntireColumn.Delete
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\MyFolder\Newfile.xls"
Application.DisplayAlerts = True
End Sub

--
Regards,
Tom Ogilvy



"ole_" <[email protected]> wrote in message
news:[email protected]...
> Hi,
>
> does any one now how copy range A1:T33 to a new workbook with all it's
> format
> ColumnWidth, Rowheight and colours etc.
> It should be run from a commandbutton
>
> AHA
> Ole_
>
>

Yes, but my problem is that there is 13 comamandbuttons and some other code
that i dont want to be
transfered to the new woorkbook.

"Tom Ogilvy" <[email protected]> skrev i en meddelelse
news:#[email protected]...
> The easiest way (in my opinion, of course) would be to copy the sheet and
> clear the unwanted data
>
> Private Sub CommandButton1_Click()
> Me.copy
> activesheet.Range("34:65536").EntireRow.Delete
> activesheet.Range("V:IV").EntireColumn.Delete
> Application.DisplayAlerts = False
> ActiveWorkbook.SaveAs "C:\MyFolder\Newfile.xls"
> Application.DisplayAlerts = True
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "ole_" <[email protected]> wrote in message
> news:[email protected]...
> > Hi,
> >
> > does any one now how copy range A1:T33 to a new workbook with all it's
> > format
> > ColumnWidth, Rowheight and colours etc.
> > It should be run from a commandbutton
> >
> > AHA
> > Ole_
> >
> >
>
>

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

--
Regards,
Tom Ogilvy

"ole_" <[email protected]> wrote in message
news:%[email protected]...
> Yes, but my problem is that there is 13 comamandbuttons and some other
code
> that i dont want to be
> transfered to the new woorkbook.
>
> "Tom Ogilvy" <[email protected]> skrev i en meddelelse
> news:#[email protected]...
> > The easiest way (in my opinion, of course) would be to copy the sheet
and
> > clear the unwanted data
> >
> > Private Sub CommandButton1_Click()
> > Me.copy
> > activesheet.Range("34:65536").EntireRow.Delete
> > activesheet.Range("V:IV").EntireColumn.Delete
> > Application.DisplayAlerts = False
> > ActiveWorkbook.SaveAs "C:\MyFolder\Newfile.xls"
> > Application.DisplayAlerts = True
> > End Sub
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> >
> > "ole_" <[email protected]> wrote in message
> > news:[email protected]...
> > > Hi,
> > >
> > > does any one now how copy range A1:T33 to a new workbook with all it's
> > > format
> > > ColumnWidth, Rowheight and colours etc.
> > > It should be run from a commandbutton
> > >
> > > AHA
> > > Ole_
> > >
> > >
> >
> >
>
>

Hi,

How do i modify this code below to copy 4 different sheets in same workbook
to "C:\MyFolder\Newfile.xls"
all with the same criteries.

AHA.
Ole

"Tom Ogilvy" <[email protected]> skrev i en meddelelse
news:#[email protected]...
> 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
>
> --
> Regards,
> Tom Ogilvy