EXCELeINFO

EXCELeINFO add-in 2.3.1 – replanteando el filtro rápido

by · 4 March, 2012

Les dejo una modificación que realicé al apartado de Datos > Filtro rápido… la cual comprende:

  • Identifica si lo ingresado es texto o númerico (en el caso de los números, filtra sólos los completos).
  • Detecta el rango en uso y permite que podamos elegir a qué columna queremos aplicarle el filtro.

Imagen

image

'--------------------------------------------------------------------------------------
' Module    : Módulo1
' Author    : Sergio A Campos H
' Date      : 03/04/2011
' Modifies    : 03/03/2012
' Purpose   : Filtro rápido
'---------------------------------------------------------------------------------------

Sub EXCELeINFOFiltro()
    On Error Resume Next
    If frmFiltroRapido.txtCriterio.Value <> "" Then
        If frmFiltroRapido.chkInicio.Value = True Then
            Criterio = frmFiltroRapido.txtCriterio.Value & "*"
        Else
            If IsNumeric(frmFiltroRapido.txtCriterio.Value) Then
                Criterio = frmFiltroRapido.txtCriterio.Value
            Else
                Criterio = "*" & frmFiltroRapido.txtCriterio.Value & "*"
            End If
        End If
        ColFiltrar = frmFiltroRapido.ComboBox1.ListIndex + 1
        ActiveCell.CurrentRegion.AutoFilter Field:=ColFiltrar, Criteria1:=Criterio, Operator:=xlAnd
    Else
        Criterio = ""
        Selection.AutoFilter
    End If
End Sub

:: Descarga el ejemplo

:: Descargar EXCELeINFO add-in 2.3.1

Tags:

You may also like...