Conditional Formatting and ordering even maybe ?

[pantsmonkey]

Guys I have this sheet

It has 2 seperate groups each get a certain amount of force out per month.

I update the numbers daily but because they keep jockying for position the totals on the right hand side get all messed up.

I need a total sum of anything with TMS in on cell and RACM in the other ?

And if when I changed the numbers of each individual consultant it would re-rank them automatically that would be badass but that might be hard im not sure.

cheers[/img]

 

[tactps]

To get "TMS"
=sumif($B$2:$B$20,"=TMS",$C$2:$C$20)

To rank:
Press Alt-F11
Double click on the sheet in the left pane.
In the right pane, paste this:

Private Sub Worksheet_Change(ByVal Target As Range)
if target.column = 3 then
ReturnSpot = ActiveCell.Address
Columns("A:C").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range(ReturnSpot).Select
end if
End Sub

 

[pantsmonkey]

Both of those work Awesome Many thanks but I cannot undo changes that I do ?

I was testing it by chucking in random numbers and I cannot CTRL Z the updates is this a limitation of the VB editor or can I update it ?


Thanks again.

 

[tactps]

Once you have sorted, you can't undo the changes.

Perhaps you should just sort manually when you are done.