Automatic sorting

[greg7468]

Hi all.
Is there a way I can get my total data to automatically sort in descending order so as I fill in data into say B3(5 in the table below) the sheet updates accordingly.

---A---B---Total
---2---1----3
---2---5----7

should automatically sort to

---A---B---Total
---2---5----7
---2---1----3

it doesn't matter what order they are in if there are 2 totals that are the same as long as they are sorted in descending order.

Thanks for any help.

[jetted]

Hi Greg

You can amend this code to work for your needs

Private Sub Worksheet_Change(ByVal Target As Range)

rowcount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
'you can change the column here change from d to whatever
Range("a1:" & "d" & rowcount).Select
'you can change the sort column here change from d to whatever
'you can change also if there is heater here form Header:=xlNo to Header:=xlYes
Selection.Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Range("a1").Select

End Sub

[greg7468]

Thank you for that, it works perfecly up to a point.

My data is slightly more complicated than the original post.

Some of my data comes from pasted links to other cells in seperate sheets in the workbook.

If I change anything on the summary sheet other than the linked cells the auto sort works great.

When I change cells in the other sheets the linked ones on the summary sheet change but the auto sort does not calculate.

I hope this is clear.

Can anyone help me a little bit further.

Cheers.

[greg7468]

is there no way to fix this?

[jetted]

Hi Greg

I was away for a bit, I was reading your comment and it is not clear to me what you want. Can you post a sample of what you have and what you would like the macro to do.

Thanks
Denis

[greg7468]

Denis, thanks for replying.

In my original post

the data for column A is put in directly on that sheet (sheet 1)

the data for column B comes from links to cells in sheet 2.

When I alter the cells in sheet 1 the macro works fine and autosorts.

When I alter the cells in sheet 2 the linked cells in sheet 1 change but the auto sort does not kick in.

edit: I have just realised that when I change the cells in sheet 2, sheet 1 will not auto sort until I have edited any other cell. How do I get it to autosort straight away likeit does when you change the data in sheet 1.
I have attached a file showing what is happening.

Hope this makes it a bit clearer.

[jetted]

Hi Greg

See attached spreadsheet, I hope it meet your requirements

Thanks
Denis