Página 1 de 1
Botão localizar textos
Enviado: 27 Nov 2015 às 10:36
por thefrey
Olá galera, bom dia!
Preciso criar um botão para localizar os nomes dos meus clientes em todas as planilhas.
Tentei gravar uma macro com o atalho Ctrl+L para abrir a janela de localizar do excel, mas não funcionou.
Obrigado!
Botão localizar textos
Enviado: 27 Nov 2015 às 11:07
por Parkeless
Não sei se entendi muito bem... você quer uma lista com todos os clientes?
Pra bolar algo assim, teríamos que saber de onde retirar essa informação, e onde colocar.
Você consegue postar a planilha?
Botão localizar textos
Enviado: 27 Nov 2015 às 11:35
por thefrey
Não preciso criar uma lista não, é coisa simples.. é do mesmo jeito da pesquisa normal do excel (Ctrl+L), so que eu quero um botão na planilha pra acionar o comando localizar, e quando a nuvem abrir, digitar o texto que quero localizar nas planilhas.. tentei criar uma macro desse mesmo comando de localizar mas não deu certo.
Exemplo:
Botão localizar textos
Enviado: 27 Nov 2015 às 22:04
por Parkeless
Tenta isso:
Código: Selecionar todosSub Busca_through_planilhas()
Dim aba As Worksheet
Dim procura As Range
Dim Valor_procurado As String
Valor_procurado = "João"
For Each aba In Worksheets
On Error Resume Next
Set procura = aba.Cells.Find(What:=Valor_procurado, After:=Cells.Range("a1"), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
procura.Worksheet.Activate
procura.Activate
If ActiveCell = Valor_procurado Then: Exit Sub
Next aba
Acho que compliquei um pouco mais do que devia kk, mas funciona
Re: Botão localizar textos
Enviado: 28 Nov 2015 às 00:15
por thefrey
Valeu irmão! Só não tou identificando onde é pra inserir o código... É na pasta de trabalho ou na plan?
Botão localizar textos
Enviado: 28 Nov 2015 às 11:32
por Parkeless
Você colaria em um módulo normal, e associaria a macro a um botão de busca
Mas vai precisar definir melhor qual é o critério de busca - se entendi certo o que você quer,vai precisar buscar o critério no conteúdo de uma célula
Botão localizar textos
Enviado: 28 Nov 2015 às 13:58
por thefrey
Funcionou, mas não é bem isso. Deixa eu explicar melhor... Eu preciso de um botão que abra uma pequena janela (tipo useform ou algo parecido) que localize um texto/nome que eu digite nessa janela e que quando eu apertar um botão localizar, faça uma varredura na pasta de trabalho até encontrar a plan que contenha esse texto. É bem igual ao sistema de buscas padrão do Ecxel (Crtl+L), só que eu não consegui gravar a macro somente apertando Crtl+L do sistema de buscas padrão.
Esse código que você me enviou, não tem a opção de eu digitar o texto a ser pesquisado em todas as plans da pasta.
É esse mesmo esquema padrão de localizar do excel mostrada aqui na imagem abaixo:
Botão localizar textos
Enviado: 29 Nov 2015 às 18:26
por Parkeless
Como eu disse, você precisa definir o critério de busca ._.
Se você quer que o critério seja inserido através de uma janela, ele pode ser um inputbox
Troca a linha:
Por
Código: Selecionar todosValor_procurado = application.inputbox("Insira aqui o valor a ser procurado.")
O código passa por cada aba da planilha, procurando o Valor_procurado e, quando encontra, ativa a aba e seleciona a célula (assim como o botão localizar do Excel faria)
Botão localizar textos
Enviado: 30 Nov 2015 às 12:06
por thefrey
Showww.. era isso mesmo que eu queria! Obrigado!