LOCALIZAR AVANÇADO 2 – SUBSTITUIR

Bom dia pessoal, alterei um pouco o formulário de localizar em várias planilhas sem ter que selecionar todas para isso. Agora ele localiza também pelo mesmo intervalo em todas as planilhas, como por exemplo se foi selecionado o intervalo B:B ele irá localizar em todas as planilhas no intervalo B:B.

Outra funcionalidade foi a inserção de Substituir Tudo em todas as planilhas,  sendo pela mesma seleção em todas as planilhas, ou seja, se selecionou o intervalo A1:G10 ele irá substituir apenas neste intervalo de cada planilha.


//
//

//
//

Importar Arquivo

Ao invés de criarmos as funcionalidades implantadas, vamos importar o arquivo do formulário criado para o Localizar avançado 2.

  1. Faça o download do arquivo Substituir Avançado.
  2. Descompacte os arquivos (frmPesquisaAvancada.frx e frmPesquisaAvancada.frm) em uma pasta de sua preferência.
  3. Clique na guia Desenvolvedor do Excel, clique em Visual Basic e selecione a guia do projeto.
  4. Clique com o botão direito no projeto VBAProject(PERSONAL.XLSB).
  5. Selecione a opção Importar Arquivo.
  6. Na pasta que segue selecione o arquivo descompactado frmPesquisaAvancada.frm.

Pronto! O arquivo está importado.

Para chamá-lo você pode usar a procedure abaixo que deve ser adicionada a um módulo do PERSONAL.XLSB:

Sub gsLocalizarAvancado() frmPesquisaAvancada.Show End Sub
  • Salve e retorne ao Excel.
  • Clique no botão Macro e selecione PERSONAL.XLSB!gsLocalizarAvancado.
  • Clique no botão Opções e associe a CTRL+SHIFT+L.

Agora quando você pressionar estas teclas irá aparecer a tela de localizar e substituir avançado.

Localizar Avançado 2
Localizar Avançado 2

Obrigado pela leitura, espero que o post tenha sido interessante, e que sirva de bom exemplo de estudo para o VBA.

Marcos Rieper

//
//

//
//


Marcos Rieper

Pai, marido, professor e consultor em Excel.

Obrigado por ler este artigo, este blog foi criado para difundir o conhecimento em Excel à todos.

Divulgamos novos artigos nas redes sociais, basta clicar nos ícones abaixo.

Excel não precisa ser complicado

Assine nossa newsletter e receba dicas práticas para dominar o excel