Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
transfer data? lookup?
Suppose Sheet 1 looks like this:
1 2340 Cash Received Payment 2,000 3578 Accounts Pay Received Payment 2,000 2 4590 Expense Pd. Rent 9,000 2340 Cash Pd. Rent 9,000 Now, on Sheet 2 I want all of the information to be categorized by the account number (ex. 2340) How do I do this???? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
transfer data? lookup?
If I were you, I'd try to arrange these items into rows, using a space in a
row as an identifier: Sub rearrange() Dim curselection As Range Dim i As Integer Set curselection = Range("A1") 'or wherever you start Do While curselection < "" If Not curselection.Offset(1, 0) = "" Then i = 1 Do curselection.Offset(1, 0).Copy Destination:=curselection.Offset(0, i) curselection.Offset(1, 0).EntireRow.Delete i = i + 1 Loop Until curselection.Offset(1, 0) = "" End If curselection.Offset(1, 0).EntireRow.Delete Set curselection = curselection.Offset(1, 0) Loop End Sub Then Select the entire range, and then sort according to...probably Column B... Regards, Ryan--- -- RyGuy "GA85" wrote: Suppose Sheet 1 looks like this: 1 2340 Cash Received Payment 2,000 3578 Accounts Pay Received Payment 2,000 2 4590 Expense Pd. Rent 9,000 2340 Cash Pd. Rent 9,000 Now, on Sheet 2 I want all of the information to be categorized by the account number (ex. 2340) How do I do this???? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
auto transfer data in sheet2 (selected data) | Excel Worksheet Functions | |||
Data transfer | Excel Discussion (Misc queries) | |||
Transfer Excel data into Word, including text box data | Excel Discussion (Misc queries) | |||
How do I use " V Lookup" to transfer data to a new workbook ? | Excel Discussion (Misc queries) | |||
lookup and transfer data | Excel Discussion (Misc queries) |