client added by date added how many added before 'date added' george james 1/10/10 12:00 PM answer here should be 0 royale james 1/11/10 2:00 PM answer here should be 1 walt james 1/11/10 12:00 PM answer here should be 2 aj john 1/13/10 4:00 PM answer here should be 0 justin james 1/14/10 9:00 AM answer here should be 3 tam john 1/15/10 10:00 AM answer here should be 1client george royale walt aj justin tam added by james james james john james john date added 1/10/10 12:00 PM 1/11/10 2:00 PM 1/11/10 12:00 PM 1/13/10 4:00 PM 1/14/10 9:00 AM 1/15/10 10:00 AM how many added before 'date added' answer here should be 0 answer here should be 1 answer here should be 2 answer here should be 0 answer here should be 3 answer here should be 1
Cells.Select Selection.Sort _ Key1:=Range("B2"), Order1:=xlAscending, _ Key2:=Range("C2"), Order2:=xlAscending, _ Key3:=Range("A2"), Order3:=xlAscending, _ Header:=xlYes, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal, _ DataOption3:=xlSortNormal lrow = 2 AddedByName = Cells(lrow, 2) addCount = -1 Do While Cells(lrow, 1) <> "" If (AddedByName <> Cells(lrow, 2)) Then addCount = -1 AddedByName = Cells(lrow, 2) End If addCount = addCount + 1 Cells(lrow, 4) = addCount lrow = lrow + 1 Loop
DON'T MISS