Ordenar datos excel 2016 automáticamente, cuando se actualizan los datos
Tengo una dificultad para ordenar automáticamente los datos de un fichero de mayor a menor en un fichero y que el campo principal por el que se ordenan sea " TOTAL AMIGOS" .
1 Respuesta
Respuesta de Dante Amor
1
Prueba lo siguiente. En un módulo pon esta macro
Sub Macro1()
'Por.Dante Amor
With ActiveWorkbook.Worksheets("RESULTADO").Sort
.SortFields.Clear
.SortFields.Add _
Key:=Worksheets("RESULTADO").Range("AL13:AL39"), _
SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
.SetRange Worksheets("RESULTADO").Range("A12:AN39")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End SubEn los eventos de Thisorkbook pon esta macro
Private Sub Workbook_SheetCalculate(ByVal Sh As Object) 'Por.Dante Amor Application.EnableEvents = False Application.ScreenUpdating = False Call Macro1 Application.ScreenUpdating = True Application.EnableEvents = True End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
