Sub Filter()
'Grupo Ing. Sistemas
'*****************************************************************************************************'
'Ing. Industrial
'*****************************************************************************************************'
Sheets("Data").Select
Range("Datos[[#Headers],[ID]]").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFilter Field:=5, Criteria1:="*Ing. Industrial*" _
, Operator:=xlAnd
Sheets("Ing. Sistemas").UsedRange.ClearContents
Sheets("Data").UsedRange.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Ing. Sistemas").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Data").Select
Range("Datos[[#Headers],[ID]]").Select
ActiveSheet.ListObjects("Datos").AutoFilter.ShowAllData
'*****************************************************************************************************'
'Sistemas
'*****************************************************************************************************'
'Posicionarme en la ultima fila vacia y pegar los datos del segundo filtro?
Sheets("Data").Select
Range("Datos[[#Headers],[ID]]").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFilter Field:=5, Criteria1:="*Sistemas*" _
, Operator:=xlAnd
Sheets("Data").UsedRange.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Ing. Sistemas").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Data").Select
Range("Datos[[#Headers],[ID]]").Select
ActiveSheet.ListObjects("Datos").AutoFilter.ShowAllData
'*****************************************************************************************************'
'Base de Datos
'*****************************************************************************************************'
Sheets("Data").Select
Range("Datos[[#Headers],[ID]]").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFilter Field:=5, Criteria1:="*Bases de Datos*" _
, Operator:=xlAnd
Sheets("Data").UsedRange.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Ing. Sistemas").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Data").Select
Range("Datos[[#Headers],[ID]]").Select
ActiveSheet.ListObjects("Datos").AutoFilter.ShowAllData
'*****************************************************************************************************'
'Todas las anteriores
'*****************************************************************************************************'
Sheets("Data").Select
Range("Datos[[#Headers],[ID]]").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFilter Field:=5, Criteria1:="*Todas las anteriores*" _
, Operator:=xlAnd
Sheets("Data").UsedRange.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Ing. Sistemas").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Data").Select
Range("Datos[[#Headers],[ID]]").Select
ActiveSheet.ListObjects("Datos").AutoFilter.ShowAllData
End Sub