Boa tarde,
Estou criando uma macro, onde a mesma irá filtrar a coluna B, e trazer tudo que for diferente (<>) de "Reclamação improcedente", "Reclamação procedente", porém na hora ao informar o o operador logico "<>" (diferente) o mesmo só dar erro de sintaxe.
essa é a forma padrão sem o operador logico
Sub Classificar_Limpar()
Dim linha As Long
linha = Range("A" & Rows.Count).End(xlUp).Row
Selection.AutoFilter
ActiveSheet.Range("A1:E" & linha).AutoFilter Field:=2, Criteria1:=Array( _
"Reclamação improcedente", "Reclamação procedente"), Operator _
:=xlFilterValues
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("2:3000").Select
Selection.Delete Shift:=xlUp
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("A1:E & linha").RemoveDuplicates Columns:=1, Header:=xlYes
Range("A1").Select
End Sub
Estava tentando colocar o operador nessa linha
ActiveSheet.Range("A1:E" & linha).AutoFilter Field:=2, Criteria1:="<>" & Array( _
"Reclamação improcedente", "Reclamação procedente"), Operator _
:=xlFilterValues
Base teste.XLSX