MACRO FILTROS RÁPIDOS : PARA USO EN CUENTAS CONTABLES O CENTROS DE COSTO

Bueno otra Vez para aportar una macro, de filtros rapidos la forma como trabaja es con filtros a travez de Visual Basic ,utilizando un rango de datos y textbox ;puede filtrar por varios criterios solo se antepone el " * "  y la palabra a buscar si dicha palabra es una parte de palabra  entre dos Asteriscos.

CODIGO BASE 

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    [b2].Value = TextBox1.Text & IIf(TextBox1.Text = "", "", "*")
    filtrar
End Sub

Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    [c2].Value = TextBox2.Text & IIf(TextBox2.Text = "", "", "*")
    filtrar
End Sub

Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    [d2].Value = TextBox3.Text & IIf(TextBox3.Text = "", "", "*")
    filtrar
End Sub

Private Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    [e2].Value = TextBox4.Text & IIf(TextBox4.Text = "", "", "*")
    filtrar
End Sub

Private Sub filtrar()
    Application.ScreenUpdating = False
    [BDF].AdvancedFilter 1, [CRIT]
    Application.ScreenUpdating = True
End Sub


Básicamente el código se ejecuta de la siguiente manera , encima de celdas para criterio de filtros se han superpuesto Textbox los cuales al soltar una tecla o dejar de escribir en ellos ejecutan el valor en la Celda y llaman a la macro filtro para poder ejecutarlo en los Rangos BDF la base de datos , y CRIT que corresponde a los criterios.

Espero les sirva para algun proyecto que esten trabajando o para implementarlo como en caso de la empresa que laboro los centros de costo.

Descargar archivo

Leoalv_19@hotmail.com