ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Excel 2007 to Excel 2003 (Split data to sheets) (https://www.excelbanter.com/excel-discussion-misc-queries/116427-excel-2007-excel-2003-split-data-sheets.html)

BCLivell

Excel 2007 to Excel 2003 (Split data to sheets)
 
Hi all-

I have a file in excel 2007 format that has 2214 colums and I need to put
into a format that can work with excel 2003. But my biggest barrier is excel
2003's colum limit.

Essentailly, I need a simple way to cut and past every 250 columns into a
seperate sheet.

Thank you!



Bernard Liengme

Excel 2007 to Excel 2003 (Split data to sheets)
 
It is only 10 cut and pastes
Working out and testing a VBA solution would take longer
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"BCLivell" wrote in message
...
Hi all-

I have a file in excel 2007 format that has 2214 colums and I need to put
into a format that can work with excel 2003. But my biggest barrier is
excel
2003's colum limit.

Essentailly, I need a simple way to cut and past every 250 columns into a
seperate sheet.

Thank you!





Ron de Bruin

Excel 2007 to Excel 2003 (Split data to sheets)
 
You can try this one

Sub test()
Dim Aws As Worksheet
Dim ws As Worksheet
Dim I As Long

Set Aws = ActiveSheet

For I = 1 To 2500 Step 250
Set ws = Worksheets.Add
ws.Name = I & " to " & I + 249
Aws.Columns(I).Resize(, 250).Copy ws.Range("A1")
Next I

End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"BCLivell" wrote in message ...
Hi all-

I have a file in excel 2007 format that has 2214 colums and I need to put
into a format that can work with excel 2003. But my biggest barrier is excel
2003's colum limit.

Essentailly, I need a simple way to cut and past every 250 columns into a
seperate sheet.

Thank you!






All times are GMT +1. The time now is 07:00 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com