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.
- Faça o download do arquivo Substituir Avançado.
- Descompacte os arquivos (frmPesquisaAvancada.frx e frmPesquisaAvancada.frm) em uma pasta de sua preferência.
- Clique na guia Desenvolvedor do Excel, clique em Visual Basic e selecione a guia do projeto.
- Clique com o botão direito no projeto VBAProject(PERSONAL.XLSB).
- Selecione a opção Importar Arquivo.
- 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
//
//
//
//
