Esta macro nos permitirá filtrar datos de columnas y además hacer un segundo filtro, ya que como veras existen varios medios para hacer filtros avanzados y manuales pero en esta ocasión, haremos filtro con Listas Combinadas o mejor conocidas como “ComboBox”, nos permitirá filtrar utilizando los criterios indicados en la parte de arriba de cada cuadro de lista, y si aún no conoces de este filtro pues acá te dejare detalladamente las macros utilizadas en este ejemplo, no dejes de visitar esta página porque siempre estamos compartiendo temas muy interesantes sobre Excel – VBA y además los Ejemplos y Aplicativos, donde de forma clara y sencilla te explicaremos.

Descripción de cada Campo o Criterio según la número del 1 al 10:

  1. Digita el número del Cliente para realizar el Filtro.
  2. Digita el Nombre del Cliente, recuerda que esta validado para buscar lo que hayas escrito ya sea al principio, en medio o al final del Nombre del Cliente.
  3. Digita una Fecha Inicial a filtrar.
  4. Digita una fecha final para iniciar la búsqueda.
  5. Digita el País o Regino del Cliente.
  6. Digita un Importe mínimo a buscar.
  7. Digita un Importe máximo para iniciar la búsqueda.
  8. y  9-   Digita el dato a buscar ya sea que lo encuentre al principio, en medio o al final de cada palabra.

Y por último con el botón “10”, cuando  le haya dado Click, borrara automáticamente todos los valores ingresados en los criterios y te mostrara la lista completa para volver a iniciar una nueva búsqueda.

Código del Criterio NOMBRE DEL CLIENTE:

En el Objeto CMNOMBRE que es ComboBox de Nombre Cliente, y en el Evento CHANGE, tenemos esta macro en el cual te detallare cada Línea:

Nombre del ComboBox;

Private Sub CMNOMBRE_Change()

Selecciono el Autofiltro de la columna “2” e ingreso dato en el criterio “Nombre del Cliente”, e ingresara datos de tipo texto, con los asterisco lo estoy validando para que me busque ya sea al principio, en medio o al final del Nombre.

Selection.AutoFilter Field:=2, Criteria1:=CStr(“*” + CMNOMBRE.Text) + “*”

Ahora digo Si el criterio “Nombre del Cliente” esta vacío, entonces.

If CMNOMBRE.Text = “” Then

Quitare el autofiltro de la columna “2”, y volveré a mostrar todos los datos de esa columna.

Selection.AutoFilter Field:=2

End If

Cierro la Macro;

End Sub

Filtro con ComboBox o Listas Combinadas en Excel con Macros VBA es Totalmente GRATIS, si lo deseas obtener solo sigue los Siguientes pasos en orden:

1. Comparte esta Publicación.

2. Invita a visitar esta Pagina a tus Amigos/as, Compañeros/as y personas que usan Excel.

3. y Listo Descarga el Archivo GRATIS. Pulsando el botón de abajo.


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?