Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate unique data to move to unique worksheets
Here is what I'm trying to do:
I've pulled over data from an AS/400 system to an excel worksheet. Is there a way to automate excel somehow to take, let's say, the information from individual account numbers and put the data for those account numbers on individual tabs or sheets within one workbook? So if I had 4 account numbers with 500 lines of data for each, is there a way to get excel to indentify those unique acct numbers and move them into their own worksheets so that instead of all the information on one sheet, it would now be on 4. Thanks for your help. Rob |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate unique data to move to unique worksheets
It can be done. Are the account numbers in column A with header row as
follows: Acount Number (row 1) 11111 11111 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate unique data to move to unique worksheets
Yes, exactly
"Joel" wrote: It can be done. Are the account numbers in column A with header row as follows: Acount Number (row 1) 11111 11111 . . . 11111 22222 22222 . . . 22222 33333 33333 . . . 33333 44444 44444 . . . 44444 "Rob C" wrote: Here is what I'm trying to do: I've pulled over data from an AS/400 system to an excel worksheet. Is there a way to automate excel somehow to take, let's say, the information from individual account numbers and put the data for those account numbers on individual tabs or sheets within one workbook? So if I had 4 account numbers with 500 lines of data for each, is there a way to get excel to indentify those unique acct numbers and move them into their own worksheets so that instead of all the information on one sheet, it would now be on 4. Thanks for your help. Rob |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate unique data to move to unique worksheets
See
http://www.rondebruin.nl/copy5.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Rob C" wrote in message ... Yes, exactly "Joel" wrote: It can be done. Are the account numbers in column A with header row as follows: Acount Number (row 1) 11111 11111 . . . 11111 22222 22222 . . . 22222 33333 33333 . . . 33333 44444 44444 . . . 44444 "Rob C" wrote: Here is what I'm trying to do: I've pulled over data from an AS/400 system to an excel worksheet. Is there a way to automate excel somehow to take, let's say, the information from individual account numbers and put the data for those account numbers on individual tabs or sheets within one workbook? So if I had 4 account numbers with 500 lines of data for each, is there a way to get excel to indentify those unique acct numbers and move them into their own worksheets so that instead of all the information on one sheet, it would now be on 4. Thanks for your help. Rob |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate unique data to move to unique worksheets
Sub movetonewpage()
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column Set HeaderRange = Range(Cells(1, "A"), Cells(1, LastCol)) ThisWsName = ActiveSheet.Name RowCount = 2 Firstrow = RowCount Do While Cells(RowCount, "A") < "" If Cells(RowCount, "A") < Cells(RowCount + 1, "A") Then Set CopyRange = Range(Cells(Firstrow, "A"), Cells(RowCount, "A")) NewWSName = CStr(Cells(RowCount, "A")) Worksheets.Add After:=Sheets(ThisWsName) ActiveSheet.Name = NewWSName Sheets(ThisWsName).Activate HeaderRange.Copy Destination:=Sheets(NewWSName).Range("A1") CopyRange.EntireRow.Copy Destination:=Sheets(NewWSName).Range("A2") Firstrow = RowCount + 1 End If RowCount = RowCount + 1 Loop End Sub "Rob C" wrote: Yes, exactly "Joel" wrote: It can be done. Are the account numbers in column A with header row as follows: Acount Number (row 1) 11111 11111 . . . 11111 22222 22222 . . . 22222 33333 33333 . . . 33333 44444 44444 . . . 44444 "Rob C" wrote: Here is what I'm trying to do: I've pulled over data from an AS/400 system to an excel worksheet. Is there a way to automate excel somehow to take, let's say, the information from individual account numbers and put the data for those account numbers on individual tabs or sheets within one workbook? So if I had 4 account numbers with 500 lines of data for each, is there a way to get excel to indentify those unique acct numbers and move them into their own worksheets so that instead of all the information on one sheet, it would now be on 4. Thanks for your help. Rob |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Filer for unique records and return all column data for unique rec | Excel Discussion (Misc queries) | |||
How can I automate creating a sheet for a unique value that is bla | Excel Programming | |||
Need to automate unique identifier | Excel Worksheet Functions | |||
Combine data from 2 worksheets using unique identifier | Excel Worksheet Functions | |||
Unique and duplicate data between 2 Excel worksheets | Excel Worksheet Functions |