David DK

Alguma posição de ajuda, Conseguir uma previa de solução, pela o power query, porém se tiver uma maneira por macro, seria de grande ajuda para processos futuros.

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

Boa tarde, Estou tentando enviar as planilhas resumidas de exemplo, mas não tem outra opção a não a de inserir anexo existente. adicionado 7 minutos depois Como não achei a opção de enviar a mídia pelo o fórum. coloquei em um site de armazenamento https://www.4shared.com/archive/4C9fB2LRba/Planilhas_de_Ex.html Desde já agradeço à compreensão. @CasaDoHardware

Bom dia, Estou tentando consolidar várias planilhas que foram criadas por tabelas dinâmicas, para uma base única. já deixei a base de títulos todos padronizados, utilizei formulas e tinha dado certo, porém a planilha fica muito pesada para enviar por e-mail, gostaria de uma solução que possa ser mais eficaz como por exemplo macro, pois a medida que a dinâmica atualizar, poderia rodar a macro para atualizar a base geral. adicionado 33 minutos depois Observação, O software que trabalho é o Office 2016.

Ok, Muito Obrigado, Funcionou perfeitamente.

Gostaria de um auxilio onde realizei a gravação de uma macro, em que a irei utilizar o filtro, e na utilização desse filtro, selecionar na coluna E, tudo que for diferente de vazio(Field:=5), o mesmo realizou o filtro até a linha 544 e estava com $ na mesma, porém essa planilha é atualizada constantemente e em outra vez que utilizar a macro, já será outra linha do final da seleção do filtro. com isso a macro não obedece. Sub Limpar_DIF_Vazios() ' ' Limpar_DIF_Vazios Macro ' ' Selection.AutoFilter ActiveSheet.Range("A1:E544").AutoFilter Field:=5, Criteria1:="<>" Rows("5:5").Select Range(Selection, Selection.End(xlDown)).Select Rows("5:5000").Select Selection.Delete Shift:=xlUp Range("B1").Select Selection.AutoFilter Cells.Select ActiveSheet.Range("A1:E5000").RemoveDuplicates Columns:=1, Header:=xlYes Range("A1").Select End Sub