Usar casillas de verificación como filtro

[MAARIA]

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

[nachobm]

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.

[MAARIA]

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

[nachobm]

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...