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_" wrote in message
...
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" skrev i en meddelelse
...
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_" wrote in message
...
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_" wrote in message
...
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" skrev i en meddelelse
...
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_" wrote in message
...
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" skrev i en meddelelse
...
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