Sorting data

[MGrot]

Hello,

I would like to make the custom sort I have set "reapply" when I open, cloese, or save (any will work) the workbook. I currently need to click "reapply" in the sort menu to sort the data, but this spreadsheet will be used by everyone in the office eventually, so I would really like to automate the sorting to prevent any issues down the road. Any help is appreciated!

 

[MGrot]

Re: Looking for help with sorting data Please!

I tried the following, but it is not working. Not sure what I am missing but I recoprded a macro while clicking the reapply function, then used it with the "auto_close" function I found, but it isn't really doiong anything. Maybe i am misssing a command somewhere? Again, any help will be greatly appreciated!

Sub Auto_Close()
'
' sort Macro
' autosort rows based on stage
'


'
ActiveSheet.ListObjects("T_MOR").AutoFilter.ApplyFilter
With ActiveWorkbook.Worksheets("DATA").ListObjects("T_MOR").sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Logit]

Re: Looking for help with sorting data Please!

'You will add the following to the ThisWorkbook module:

Option Explicit


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Your sort macro name here.
End Sub


Private Sub Workbook_Open()
    'Your sort macro name here.
End Sub

'############################################################


'Then in the sheet module where the new data is added, paste this :

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Your sort macro name here.
End Sub

Let's say the name of your sorting macro is :

Sub SortData()
'all of the code in the macro here
End Sub

So what you will have in the above suggested macros is :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    SortData
End Sub

The same holds true for each of the other macros.

 

[MGrot]

Re: Looking for help with sorting data Please!

Thank you for your help!

 

[Logit]

.
You are welcome.