Usuário com melhor resposta
pesquisa excel com macros

Pergunta
-
Respostas
-
Pesquisa todas as células de todas as planilhas
Private Sub CommandButton1_Click() Pesquisa = InputBox("Informe o valor a ser pesquisado", "Pesquisar Valores") If Pesquisa = "" Then Exit Sub For Each plan In Worksheets Set x = plan.Cells.Find(what:=Pesquisa) If Not x Is Nothing Then firstAddress = x.Address Do plan.Select x.Select MsgBox "Texto encontrado na célula " & x.Address & Chr(10) & "Planilha: " & plan.Name & _ Chr(10) & "Texto: " & x.Text Set x = plan.Cells.FindNext(x) Loop While Not x Is Nothing And x.Address <> firstAddress Else MsgBox "Texto não encontrado na planilha " & plan.Name End If Next End Sub
Não se esqueça de marcar como respondida se solucionar..
Até..- Sugerido como Resposta Dandilos quarta-feira, 11 de fevereiro de 2009 13:06
- Marcado como Resposta clezio_sicoobmtms.coop.br quarta-feira, 18 de fevereiro de 2009 00:40
Todas as Respostas
-
Pesquisa todas as células de todas as planilhas
Private Sub CommandButton1_Click() Pesquisa = InputBox("Informe o valor a ser pesquisado", "Pesquisar Valores") If Pesquisa = "" Then Exit Sub For Each plan In Worksheets Set x = plan.Cells.Find(what:=Pesquisa) If Not x Is Nothing Then firstAddress = x.Address Do plan.Select x.Select MsgBox "Texto encontrado na célula " & x.Address & Chr(10) & "Planilha: " & plan.Name & _ Chr(10) & "Texto: " & x.Text Set x = plan.Cells.FindNext(x) Loop While Not x Is Nothing And x.Address <> firstAddress Else MsgBox "Texto não encontrado na planilha " & plan.Name End If Next End Sub
Não se esqueça de marcar como respondida se solucionar..
Até..- Sugerido como Resposta Dandilos quarta-feira, 11 de fevereiro de 2009 13:06
- Marcado como Resposta clezio_sicoobmtms.coop.br quarta-feira, 18 de fevereiro de 2009 00:40
-
Eai cara tudo bem...Gostaria de saber se tu tem disponível a planílha mostrando como funcionna esta tua macro, pois estou implantando uma ferramenta de pesquisas através de planilha para encontrar os catalogos na empresa onde trabalho, se puder me mandar, meu e-mail é claudir89@bol.com.brE se precisar de alguma coisa que eu possa ajudar, é só falar.valeu