none
pesquisa excel com macros RRS feed

  • Pergunta

  •  ola amigos,

    como eu posso fazer um macro que pesquise palavras dentro de uma pasta de trabalho no excel ou apenas na plan1, ou plan2 ou todas

    um abraco
    sexta-feira, 6 de fevereiro de 2009 23:13

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
    segunda-feira, 9 de fevereiro de 2009 10:59

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
    segunda-feira, 9 de fevereiro de 2009 10:59
  • 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.br
    E se precisar de alguma coisa que eu possa ajudar, é só falar.
    valeu
    domingo, 30 de agosto de 2009 21:04