Como extrair registro sem critérios por meio do VBA

Anonim

Neste artigo, aprenderemos como extrair registros sem critérios por meio do VBA no Microsoft Excel.

Vamos dar um exemplo para entender como podemos colocar o filtro e selecionar os critérios e, em seguida, realizar a ação necessária:-

Temos dados no intervalo A: colunas G, em que a coluna A contém o nome, a coluna b contém o endereço, a coluna C contém a cidade, a coluna D região, a coluna E o país, a coluna F o número do telefone e a coluna G contém os critérios.

Queremos escrever a macro para colocar o filtro e, em seguida, filtrar os dados de acordo com Não contém dados na coluna G e, em seguida, excluir os dados Não contém. Em seguida, remova o filtro e mostre todos os dados.

Para extrair o registro com os critérios Not, siga as etapas abaixo:

  • Abra a página VBA pressione a tecla Alt + F11
  • Insira um módulo
  • Em seguida, vá novamente ao menu inserir e clique em procedimento, onde obterá o procedimento caso não saiba como deve ser iniciado o macro
  • Escreva o código abaixo mencionado:
Sub Delete_NotEligible () ActiveSheet.Range ("$ A $ 1: $ G $ 15"). Campo do AutoFiltro: = 7, Criteria1: = "" Linhas ("2:12"). Selecione Seleção.Delete Shift: = xlUp Range (" B1 "). Selecione Selection.AutoFilter End Sub 
  • Para executar o código, pressione a tecla F5 no teclado.
  • Os dados serão filtrados e, de acordo com os critérios definidos, os dados filtrados serão excluídos.

Explicação do código:

  • Definimos o intervalo de dados do cabeçalho para colocar o filtro com critérios de células não em branco na coluna de elegibilidade
  • Defina no código para selecionar a linha e, em seguida, excluirá toda a linha
  • No final, abra o filtro

Desta forma, podemos colocar o filtro com base em critérios específicos e, em seguida, excluir os dados.

Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.

Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail