Hola,

Necesito hacer un filtro por medio de casillas de verificación, para que el usuario pueda elegir uno o más criterios, estuve buscando en internet y cree un código basada en algunos que vi pero no me funciona. Se los pego a ver si alguien me puede ayudar. (Tengo 4 columnas con 16 registros, la primera columna es el criterio q quiero filtrar)

Sub Search_Click()

Application.ScreenUpdating = False

If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False

M = Array("", "Hub", "Flange", "Segment")

For x = 1 To 3

If Controls("Hub,Flange,Segment" & x).Value = False Then M(x) = ""

Next

ActiveSheet.Range("$A$2:$e$20").AutoFilter , _

Field:=16, _

Criteria1:=Array(M(1), M(2), M(3)), _

Operator:=xlFilterValues

Application.ScreenUpdating = True

End Sub

De verdad que me urge hacer esto y agradecería muchísimo su ayuda

P.D. Se que tal vez no es el foro, pero de causalidad saben si este mismo código lo puedo utilizar en access?

De nuevo muchísimas gracias

Hola maaria,

No estoy seguro si lo que necesitas debe estar en un Formulario o en una hoja, esto es para un botón en una hoja :

Dim m(4) As String

Dim x As Integer

Application.ScreenUpdating = False

ActiveSheet.AutoFilterMode = False

m(0) = ""

m(1) = "Hub"

m(2) = "Flange"

m(3) = "Segment"

For x = 1 To 3

    If ActiveSheet.OLEObjects("CheckBox" & x).Object.Value = False Then

        m(x) = ""

    End If

Next

ActiveSheet.Range("A1:P20").AutoFilter Field:=16, Criteria1:=m, Operator:=xlFilterValues

Application.ScreenUpdating = True





[/CODE]

El rango "A1:P20" tendrás que adaptarlo a tus necesidades.

Cambié el código por el que me escribiste pero sigue sin realizar la búsqueda

Sería interesante que subas una archivo de ejemplo, tal y como tu lo tienes.

- - - - - Mensaje combinado - - - - -

Si son 4 columnas, y la primera es la "A" entonces Field:=1 y range("A1 : D16"), pero si subes un ejemplo mejor...