select a range, copy it to a new sheet
For the VBA gurus.
I have a data table, 500,000 rows, in XL 2007. A colleague wants this data put into XL 2000. My take: write VBA code which splits the 500,000 rows into 10 tabs of 50,000 rows each. Then save the document in XL 2000 format and send to my colleague My problem: I don't know how to do that. Dave -- Brevity is the soul of wit. |
select a range, copy it to a new sheet
Hi Dave
Try this one on a copy of your workbook Sub test() Dim I As Long Dim ws As Worksheet Dim main As Worksheet Set main = ActiveSheet For I = 1 To 500000 Step 50000 Set ws = Worksheets.Add main.Rows(I).Resize(50000).EntireRow.Copy ws.Range("A1") Next I End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Dave F" wrote in message ... For the VBA gurus. I have a data table, 500,000 rows, in XL 2007. A colleague wants this data put into XL 2000. My take: write VBA code which splits the 500,000 rows into 10 tabs of 50,000 rows each. Then save the document in XL 2000 format and send to my colleague My problem: I don't know how to do that. Dave -- Brevity is the soul of wit. |
All times are GMT +1. The time now is 11:37 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com