H o l a:
Te anexo una macro, para afinar la macro y dejarla al punto se tienen que adecuar varios detalles:
1. Nombre de la hoja de datos
2. Nombre de la hoja con los criterios.
3. Te propongo que los resultados del filtro queden en la hoja "resultados"
4. En qué fila están los encabezados.
5. El qué fila empiezan los datos.
6. No deben existir encabezados iguales.
7. No deben existir encabezados en blanco.
8. No deben estar combinadas las celdas de los encabezados.
9. El encabezado de la columna que vayas a filtrar, deberás copiarlo a la celda A1 de la hoja "Criterios".
10. Tienes que poner la columna inicial de tus datos (yo puse la columna "A")
11. Tienes que poner la columna final de tus datos (yo puse la columna "B")
12. Pon la macro en un módulo de VBA y asigna la macro a un botón, en la macro tienes que cambiar "base", "criterios", "resultados" "A" y "B" por tus datos.
Sub FiltrarConCriterios()
'Por.Dante Amor
Set h1 = Sheets("base") 'Hoja de datos
Set h2 = Sheets("criterios") 'hoja de criterios
Set h3 = Sheets("resultados") 'hoja de resultados
'
col1 = "A" 'Columna inicial de datos
col2 = "B" 'Columna final de datos
'
h3.Cells.Clear
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
h1.Range(col1 & "1:" & col2 & u1).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=h2.Range("A1:A" & u2), CopyToRange:=h3.Range(col1 & "1:" & col2 & 1), Unique:=False
End Sub
Sigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: FiltrarConCriterios
- Aceptar.
- Para ejecutarla dale click a la imagen.
Si tienes problemas para adaptar la macro a tus datos, entonces describe o pon imágenes de tu información para ver cómo están tus dato y poder actualizar la macro.
O si lo prefieres puedes enviarme tu archivo para que yo lo actualice.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “ulukai2” y el título de esta pregunta.