Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
I Need a Macro to Sort out a Large Database . . .
I have a delimma.
I have downloaded a large database that I need to sort according to medical record number. The data comes in the following form: Col A Col B Col C . . . Col P Acct # MR # Dr ID # . Data Item(s) 001 123 # . . . abc 002 123 # . . . .abc 003 125 # . . . .abc 004 125 # . . . abc 005 125 # . . . abc All of the account numbers are different and refer to each patient visit. All of the Medical Record Numbers are unique to the patient and do not change. The list is sorted by account number and by date. I need to, by MR# (if they match), take the next account number and move it the right of the matching MR#'s data above it. If the next medical number does not match, I need to go to the next line and move the following data by MR number. The list, when sorted, would look like: Col A Col B Col C . . . Col P Col Q Col R Col S . . . Col P Col Q . . Acct # MR # Dr ID # . Item(s) Acct # MR # Dr ID # . Item(s) Acct# 001 123 # . . . abc 002 123 # . .. . .abc -- . . . 003 125 # . . . .abc 004 125 # . .. . abc 005 . . . Sometimes the MR# can be repeated up to 5 times with different account numbers for all MR#. Luckily each set of account numbers is grouped together by MR Number, so a "For Each I, next I" would work well. It's the matching numbers and deleting the empty lines that has my brain all confused. If anybody has already tackled a similar problem, I would love to see how you did it. Thanks again for all the help you guys give me. WillRn |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Querying Large Database | Excel Discussion (Misc queries) | |||
large database with multiple rows | Excel Worksheet Functions | |||
Compare and Filter Out Large Database | Excel Worksheet Functions | |||
Navigating a large database? | Excel Discussion (Misc queries) | |||
Pulling data out of a large database | Excel Discussion (Misc queries) |