Macro que filtre más de 2 criterios en una columna
Hola otra vez experto queria apreguntarte si hay una forma de filtrar una misma columna de datos por 3 criterios actualmente solo puedo filtrar las filas que contienen en la columna 26 la palabra SE que se refiere a servicio y CO que es consultoría necesito agregar un filtro mas para filtrar las obras OB y luego todo esto junto seleccionarlo y copiarlo a otra hoja.Este es el codigo que utilizo actualmente probe usando Operator:=xlAnd y no se puede. Espero tus comentarios.
Saludos
Sub FiltrarHoja1()
Sheets("Hoja1").Select
Range("A1").Select
ActiveCell.Offset(65535, 0).Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(0, 57).Select
Range("A1", ActiveCell).Select
Selection.AutoFilter Field:=26, Criteria1:="=SE", Operator:=xlOr, Criteria2:="=CO"
Range("A1").Select
ActiveCell.Offset(65535, 0).Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(0, 57).Select
Range("A1", ActiveCell).Select
Selection.Copy
Sheets("Hoja2").Select
Range("a1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("a1").Select
End Sub
Saludos
Sub FiltrarHoja1()
Sheets("Hoja1").Select
Range("A1").Select
ActiveCell.Offset(65535, 0).Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(0, 57).Select
Range("A1", ActiveCell).Select
Selection.AutoFilter Field:=26, Criteria1:="=SE", Operator:=xlOr, Criteria2:="=CO"
Range("A1").Select
ActiveCell.Offset(65535, 0).Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(0, 57).Select
Range("A1", ActiveCell).Select
Selection.Copy
Sheets("Hoja2").Select
Range("a1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("a1").Select
End Sub
1 Respuesta
Respuesta de paramisolo
1