En Excel puedes realizar un filtrado de datos totalmente personalizado, lo único que debes de tener son los criterios que deseas aplicar a la información, en esta ocasión te mostrare un filtro con macros, donde podrás usar varios criterios y con un solo click filtrar los datos.

Filtrar datos en Excel es una de las grandes funcionalidades que esta potente herramienta tiene, pero para poder hacer filtros con macros es aún mejor, sigue leyendo hacia abajo y aprende como trabajan las macros con tan solo unas líneas de código.

Para utilizar este Filtro con macros en Excel, lo primero que debemos tener es una base de datos como la de la imagen siguiente;

Como se muestra en esta imagen primero tenemos los encabezados y los campos de los criterios luego la base de datos de donde comenzaremos a realizar los filtros y por ultimo tenemos dos botones, el de color verde será para realizar el filtro después de que hayas colocado los criterios y el botón rojo será para limpiar los campos de los criterios y para restaurar la lista de los clientes y mostrarla.

Código Utilizado para los Filtros:

Creamos este código para el botón de color verde;

Private Sub FBuscar_Click()

Luego especificamos el rango de la base de datos activamos el filtro avanzado;

Range(“A5:G1048576”).AdvancedFilter Action:=xlFilterInPlace,

Decimos cuales seran los campos de los criterios.

CriteriaRange:=Range(“A2:G3”), Unique:=False

End Sub

Este codigo sera para el boton de color Rojo;

Private Sub LCampos_Click()

Desactivamos la actualization de la Pantalla:

Application.ScreenUpdating = False

Especificamos el rango de los criterios para limpiar y volver a ejecutar otro filtro;

Range(“A3:G3”).ClearContents

Con esta Linea mostramos de Nuevo todos los datos que hayamos filtrado.

ActiveSheet.ShowAllData

activamos la actualization de la Pantalla

Application.ScreenUpdating = True

Mensaje de confirmación de que hemos limpiados los campos de los criterios y restaurado la base de datos;

MsgBox “Campos Limpios y Lista Restaurada”, vbInformation, “Filtro por Criterios”

End Sub

Pero para que tenga una idea de este ejemplo te invito a que te descargues este ejemplo abajo te dejare el link de descarga.


Categorías: Código VBA

0 comentarios

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

×

En que podemos Ayudarte!

Correo de Contacto Directo:

contacto@macroexcelvba-ag.com

aguirre429_16@hotmail.com

      

× ¡Saludos! En que podemos Ayudarte?