¿Como ocultar Filtro con autofilter?
Alguien me puede colaborar con el autofilter que estoy usando, para que el criterio realizado me lo oculte en vez de mostrarlo; la idea es decir que filtre lo que es diferente al criterio, en este caso de una COLUMNA quiero que oculte los criterios "BORDADOS", "ESTAMPADOS", "ARREGLOS" y todo lo demás lo muestre (son muchas prendas de diferentes nombres, por eso es difícil decir que me filtre dichas prendas ) para publicar como pdf.
De antemano muchas gracias por su colaboración. La subrutina a continuación:
Sub PROCESO5() 'FORMATO CONFECCION
'================= PROCESO FILTRADO CONFECCION ============================
Sheets("PRODUCCIONCOMPLETA").Visible = True
Sheets("PRODUCCIONCOMPLETA").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=Array("ARREGLOS", "BORDADOS", "ESTAMPADOS"), _
Operator:=xlFilterValues
Sheets("PRODUCCIONCOMPLETA").Visible = True
ActiveSheet.PageSetup.CenterHeader = "&C&B&14 PRODUCCION CONFECCION"
Sheets("PRODUCCIONCOMPLETA").Range("G1:H1").Interior.ColorIndex = 13
Sheets("PRODUCCIONCOMPLETA").Range("G1:H1").Font.ColorIndex = 13
nbreLibro = "CONFECCION" & "_" & Sheets("PRODUCCIONCOMPLETA").Range("E1") & "_" & Sheets("PRODUCCIONCOMPLETA").Range("F1")
ruta = "C:\Users\CLV-01\Dropbox\CL_0001\sPROD_1718\PRODUCCION LOCAL18\"
Ruta2 = "C:\Users\CLV-01\Desktop\Produccion\"
Sheets("PRODUCCIONCOMPLETA").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ruta & nbreLibro & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("PRODUCCIONCOMPLETA").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Ruta2 & nbreLibro & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveSheet.PageSetup.CenterHeader = "&C&B&14 PRODUCCION COMPLETA"
Sheets("PRODUCCIONCOMPLETA").Range("G1:H1").Interior.ColorIndex = 30
Sheets("PRODUCCIONCOMPLETA").Range("G1:H1").Font.ColorIndex = 30
Sheets("PRODUCCIONCOMPLETA").Activate
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Sheets("PRODUCCIONCOMPLETA").Visible = False
End Sub
1 respuesta
Ya encontré la solución me di cuenta de que las palabras terminan en "LOS" y "DOS", por lo cual cambie el sentido y utilice un comodín. De esta manera como solo deja utilizar dos criterios fue perfecto para solucionar el inconveniente. En mi caso en la columna ninguna otra palabra tiene ese terminado.
Selection.AutoFilter Field:=4, Criteria1:=("<>*LOS"), Operator:=xlAnd, Criteria2:=("<>*DOS"), _
Operator:=xlFilterValues
