View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
u473 u473 is offline
external usenet poster
 
Posts: 184
Default Compare & align 2 cols of Employee Names in sorted alpha order withVBA

The following solution came from an earlier post. I would like to
implement it with VBA,
and print the list of Newcomers and Missing
..
How to space out mismatches of 2 similar columns while keeping like
cells aligned ?
For example, how do I convert a worksheet containing (in columns A and
B):
..
A *A
B *B
C *D
D *E
F *G
....

... to ..

A A
B B
C
D D
* * E
F
* * G
..
Newcomers :
E
G
Missing :
C
F
..
Steps
1. Copy n paste source data in cols A and B into col C,
one paste below the other (order immaterial).
Enter a col label in C1, eg: All
..
2. Select col C, click Data Filter Advanced Filter
List range: $C:$C
Check "Copy to another location"
Copy to: $D$1
Check "Unique records only"
Click OK
This extracts a uniques list into col D
..
3. Select col D,
do a Data Sort* Sort by "All" Ascending OK
*continue with current selection
..
4. Then just place in
E2: =IF(ISNUMBER(MATCH(D2,A:A,0)),D2,"")
F2: =IF(ISNUMBER(MATCH(D2,B:B,0)),D2,"")
Select E2:F2, copy down to the last row of data in col D
..
5. Print Newcomers & Missing

Thank you for your help
J.P.