Auto sorting

[Jon Lap]

Is there a way to have an excel worksheet automatically sort the data everytime new data is entered. I have daily purchase logs that 9 users fill in throughout the day as they make purchases. I would like to have it sorted by pur. amt automatically.
Thanks for your help
Jon

 

[jimrward]

look at the worksheet_change event, you may have to disable events within the procedure and enable at the end of the procedure to keep it from continuously looping

 

[Peter_SSs]

Is there a way to have an excel worksheet automatically sort the data everytime new data is entered. I have daily purchase logs that 9 users fill in throughout the day as they make purchases. I would like to have it sorted by pur. amt automatically.
Thanks for your help
Jon

Further to what has already been said, see if this helps:

http://www.mrexcel.com/forum/showthread.php?t=326884

 

[Jon Lap]

Hi Stu,
I am getting a run time error after I type in any cell after copying and pasting the code you provided.

The columns I am working with are B and E:
Col B is for client name
Col C is for description
Col D is for pur. amt
Col E for buyer initials

The data I am trying to sort begins on Row 9. The first 8 rows are fancy titles and such.

Perhaps you have an email address I can send the sheet to?
Thanks for your response.
Jon

 

[jimrward]

can you copy and paste your code you have thus far for your worksheet event

 

[Jon Lap]

Hi
I don't have any code as of yet, that I'm aware of.
Thx

 

[jimrward]

the code that you copied from link that peter provided

 

[Jon Lap]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("P")) Then
With Intersect(ActiveSheet.UsedRange, Columns("B:P"))
.Sort Key1:=Range("P2"), Order1:=xlDescending, Header:=xlYes
End With
End If
End Sub

thanks

 

[jimrward]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("E")) Then
With Intersect(ActiveSheet.UsedRange, Columns("B:E"))
.Sort Key1:=Range("D9"), Order1:=xlDescending, Header:=xlYes
End With
End If
End Sub

I am just guessing at the above to adjust for your data

 

[Jon Lap]

Hi Jim
That change in code does not seem to help. Still getting a run time error. And the sort is not happening automatically.
Wondering if I am taking the correct steps?
I right click the tab, then view code, the paste your code in the box that appears, then close that page.
Thanks
Jon