Hi All,
I am trying to create an auto sort for my worksheet. Another user was kind enough to create the macros formula for me pasted at the bottom of this post. His macros formula did exactly what I wanted it to do. The problem is that I am trying to share this document in Microsoft Skydrive, or Google Docs, or some other cloud-based sharing platform, and neither Skydrive nor Google Docs will allow me to open a macros enabled document. The problem I was initially trying to solve was:
As each person on my team makes modifications to a row on this sheet, they will also change Column A to the number assigned to the person responsible for the next step of the process. Each time any entry in Column A is is changed, I would like the whole sheet to sort automatically (least to greatest or vice versa, it does not matter) The idea is that all projects waiting on input from each person will be grouped together automatically so each person can easily see where their time needs to be spent. The information in each row is tied together and must be kept together, and when all data is input, there will be about 130 rows.
Thank you for your help!
Previous Macros developed:
Private Sub Worksheet_Change(ByVal Target As Range)
'Do nothing if more than one cell is changed or content deleted
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Column = "1" Then
If IsNumeric(Target) Then
'Stop any possible runtime errors and halting code
On Error Resume Next
Application.EnableEvents = False
Range("A2").Select
''' Recorded Macro '''
ActiveWorkbook.Worksheets("BMR Export").Sort.SortFields.Add Key:=Range("A2") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("BMR Export").Sort
.SetRange Range("A2:AR12")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.EnableEvents = True
On Error GoTo 0
End If
End If
End Sub
Bookmarks