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.

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

Marcos Rieper

//
//

//
//