Clase 26
Cargado por
FANNYClase 26
Cargado por
FANNYUnidad Didáctica: Macros
Ing. Clemente Gustavo Ráez Tito – craezt@[Link]
[Link]
[Link]
Set (Instrucción)
Sub OrdenaDosCriterios() Asigna una referencia
'variables de objeto a una variable
Dim WsResumen As Worksheet o propiedad.
Dim RngDatos As Range
Dim UltFila As Long
Dim UltColumna As Long
Set WsResumen = Worksheets("Resumen")
UltFila = [Link]([Link], 1).End(xlUp).Row
UltColumna = [Link](2, [Link]).End(xlToLeft).Column
Set RngDatos = [Link](Cells(2, 1), Cells(UltFila, UltColumna))
[Link] key1:=[Link](2,2), order1:=xlAscending, _
Key2:=[Link](“F2”), Order2:=xlDescending, Header:=xlYes
End Sub
[Link]
Sub OrdenaTresCriterios()
'variables
Dim WsResumen As Worksheet
Dim RngDatos As Range
Dim UltFila As Long
Dim UltColumna As Long
Set WsResumen = Worksheets("Resumen")
UltFila = [Link]([Link], 1).End(xlUp).Row
UltColumna = [Link](2, [Link]).End(xlToLeft).Column
Set RngDatos = [Link](Cells(2, 1), Cells(UltFila, UltColumna))
[Link] key1:=[Link](2,2), Order1:=xlAscending, _
Key2:=[Link](“B2”), Order2:=xlAscending, _
Key3:=[Link](2,”F”), Order3:=xlDescending, Header:=xlYes
End Sub
[Link]
[Link]
Para realizar el ejemplo de la tabla siguiente, se requiere codificar de tal forma que permita filtrar
por: Vendedor, Producto, Precio, Cantidad y Ventas
1
De la Forma no
2
automatizada
[Link]
En la opción Rango de la lista: Seleccionar toda la tabla de datos
En la opción Rango de criterios: Seleccionar la tabla donde se evaluará los criterios de búsqueda
Nota: Este proceso se realiza cada vez que se desea hacer un filtro
Para evitar este proceso manual y repetitivo se tendrá que elaborar una Macro
[Link]
De la Forma Creación de la macro con la finalidad de automatizar el ejemplo de filtros, para ello
automatizada nos vamos a grabar macro con el nombre: Filtro y clic en Aceptar
[Link]
Realizar los mismos procedimientos manuales, una vez finalizado detener la grabación, luego
insertar una forma rectangular para asignarle la macro.
[Link]
De la Forma Creamos otra macro: Borrar Filtro
automatizada
Seleccionamos la celda A2:E2 y dar clic con el botón suprimir
Luego en el menú Datos, clic en Opciones Avanzadas, luego clic en Aceptar
Detener grabación
[Link]
Agregamos otro botón Borrar filtro y le asignamos la macro creada
[Link]
[Link]
De la siguiente tabla de datos, insertar una tabla dinámica
[Link]
Hacer clic en el menú Insertar, luego tabla dinámica
[Link]
Empezar a grabar la macro, menú Programador/Grabar macro nombre: Año
[Link]
Luego detenemos la grabación
[Link]
Empezar a grabar otra macro, menú Programador/Grabar macro nombre: Proveedor
[Link]
Detenemos la grabación de la macro.
Para probar presionamos ALT+F8, seleccionamos la macro y clic en Ejecutar
[Link]
[Link]
