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)
Por: MARIA ANTONIETA VALENZA COLLADO
13 comentarios
Escriba un comentario →