Ordenar datos con macros - VBA EXCEL

Excel VBA para filtrar y ordenar datos

Desactivación de filtros

 Cuando se trabaja en una base de datos Excel es posible que desee asegurarse de que todos los filtros  estén desactivados. Para ello se iniciará el proceso con dos "if". Por ejemplo, con una base de datos a partir de la celda A1  ejecutaremos 2 sentencias:

Range("A1" ).Select         

          If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter

           If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData

Ordenar los datos

Ejemplos:

- La siguiente macro de Excel funciona con cualquier tamaño de base de datos  a partir de la celda A1 y funcionará en cualquier versión de       Excel (1997 a 2010).

Sub proFilter()

Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes

End Sub

- Ordenar  datos, considerando  tres campos diferentes.

Sub proFilter()

Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range( _         "B2"), Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, _         Header:=xlYes

End Sub

Ejercicio.

- Aplicaremos el ordenamiento de datos por familias y sub-familias.

(Para mayor visualización de la imagen, hacer click en la misma)

ORDENAR DATOS

Por: MARIA ANTONIETA VALENZA COLLADO