Filtrar campos con CheckBox desde Formulario

[nolramzaid]

Hola estimados.

Tengo una tabla en la cual realizo diferentes acciones desde un formulario, en este punto pretendo filtrar a travez de un CheckBox desde un formulario 3 campos de una columna, esto lo he logrado con el siguiente código

Private Sub rojo_Click()

If rojo.Value = True Then
ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3, Criteria1:="rojo"
Else
ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3
End If

End Sub

 

Private Sub CheckBox29_Click()

If CheckBox29.Value = True Then
ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3, Criteria1:="amarillo"
Else
ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3
End If

End Sub

 

Private Sub CheckBox30_Click()
If CheckBox30.Value = True Then
ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3, Criteria1:="verde"
Else
ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3
End If
End Sub

 

Sin embargo una vez cierro el formulario y lo vuelvo a cargar el formulario el filtro desaparece, así como el check del CheckBox en el formulario, así mismo no he podido reproducir el evento que se logra con el filtro de Excel donde podemos seleccionar varios campos para filtrar. a mi me ocurre que si selecciono uno, luego orto y otro, el filtro se va aplicando al ultimo que seleccione.

Agradeciendo sus comentarios y  apoyo les saludo.

 

 

 

[chernan5]

deberias subir un archivo de ejemplo para probar

[nolramzaid]

Cherna5

En adjunto el ejemplo solicitado.

Como puedes ver, para las columnas ocultas he logrado que el checkbox recuerde su estado cuando cierro y vuelvo a cargar el fomulario, mediante varias instrucciones como la siguiente

If Columns("q:q").EntireColumn.Hidden = False Then CheckBox18.Value = True

No lo he logrado para el caso de que la columna "B" que el checkbox recuerde su estado si hay algún filtro.

Salu2

 

 

 

PRUEBA 21092016.xlsm