Clase 26

Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 19

Unidad Didáctica: Macros

Ing. Clemente Gustavo Ráez Tito – [email protected]


www.sencico.gob.pe
www.sencico.gob.pe
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 = WsResumen.Cells(Rows.Count, 1).End(xlUp).Row
UltColumna = WsResumen.Cells(2, Columns.Count).End(xlToLeft).Column

Set RngDatos = WsResumen.Range(Cells(2, 1), Cells(UltFila, UltColumna))


RngDatos.Sort key1:=WsResumen.Cells(2,2), order1:=xlAscending, _
Key2:=WsResumen.Range(“F2”), Order2:=xlDescending, Header:=xlYes
End Sub

www.sencico.gob.pe
Sub OrdenaTresCriterios()
'variables
Dim WsResumen As Worksheet
Dim RngDatos As Range
Dim UltFila As Long
Dim UltColumna As Long

Set WsResumen = Worksheets("Resumen")


UltFila = WsResumen.Cells(Rows.Count, 1).End(xlUp).Row
UltColumna = WsResumen.Cells(2, Columns.Count).End(xlToLeft).Column

Set RngDatos = WsResumen.Range(Cells(2, 1), Cells(UltFila, UltColumna))


RngDatos.Sort key1:=WsResumen.Cells(2,2), Order1:=xlAscending, _
Key2:=WsResumen.Range(“B2”), Order2:=xlAscending, _
Key3:=WsResumen.Cells(2,”F”), Order3:=xlDescending, Header:=xlYes
End Sub

www.sencico.gob.pe
www.sencico.gob.pe
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

www.sencico.gob.pe
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

www.sencico.gob.pe
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

www.sencico.gob.pe
Realizar los mismos procedimientos manuales, una vez finalizado detener la grabación, luego
insertar una forma rectangular para asignarle la macro.

www.sencico.gob.pe
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

www.sencico.gob.pe
Agregamos otro botón Borrar filtro y le asignamos la macro creada

www.sencico.gob.pe
www.sencico.gob.pe
De la siguiente tabla de datos, insertar una tabla dinámica

www.sencico.gob.pe
Hacer clic en el menú Insertar, luego tabla dinámica

www.sencico.gob.pe
Empezar a grabar la macro, menú Programador/Grabar macro nombre: Año

www.sencico.gob.pe
Luego detenemos la grabación

www.sencico.gob.pe
Empezar a grabar otra macro, menú Programador/Grabar macro nombre: Proveedor

www.sencico.gob.pe
Detenemos la grabación de la macro.
Para probar presionamos ALT+F8, seleccionamos la macro y clic en Ejecutar

www.sencico.gob.pe
www.sencico.gob.pe

También podría gustarte