Filtros Avanzados con Fórmulas

Facil y rapido

Haz tu trabajo con mucha rapidez y de manera más sencilla.

Ponte en contacto.

Soporte

Resuelve todas tus dudas y recibe la mejor asesoría en en los proyectos que desarrolles.

¡Contáctanos!

Reportes

Desempéñate mejor en tus tareas con nuestros reportes en Excel.

¡Te decimos como lograrlo!

Después de un par de meses sin publicar algo nuevo en el blog, me he establecido el objetivo de ser más constante en la publicación de entradas.

En ésta entrada les compartiré un archivo utilizado la herramienta del Filtro Avanzado combinado con unas cuantas líneas de código.

El Filtro Avanzado es una herramienta muy poderosa, con ella podemos filtrar datos con criterios muy sencillos hasta criterios muy complejos que el filtro tradicional no nos lo permitiría.

Este ejemplo se trata de que al ingresar una parte del texto que contenga cualquier celda de la base de datos, éstas se visualicen y las que no cumplan con el criterio se oculten.

La fórmula que hace el cálculo del criterio se encuentra en la celda B2. La fórmula hace el cálculo en función al texto que se ingrese en la celda C2 para filtrar con éste criterio las columnas sombreadas de amarillo.

Descargar archivo .xls

Módulo estándar:

'****************************************'
' Email: obed.cruz@exceltrabajaporti.com '
' www.exceltrabajaporti.com              '
'****************************************'

Sub MostrarTodo()
 On Error Resume Next
  ActiveSheet.ShowAllData
End Sub

Módulo Hoja1:

'****************************************'
' Email: obed.cruz@exceltrabajaporti.com '
' www.exceltrabajaporti.com              '
'****************************************'

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$2" Then
    [B5:M12].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[B1:B2]
  End If
End Sub