Macro para ordenar automáticamente de manera ascendente o descendente un tabla en base a un determinada columna

0



 Código:


Private Sub Worksheet_Change(ByVal Target As Range)

Dim w As Worksheet, t As ListObject, c As ListColumn


Set w = ThisWorkbook.Worksheets("")

Set t = w.ListObjects("")

Set c = t.ListColumns("")


If Not Intersect(Target, c.DataBodyRange) Is Nothing Then

With t.Sort

.SortFields.Clear

.SortFields.Add2 Key:=c.DataBodyRange, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

t.ShowAutoFilter = False

End If

End Sub

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel