locked
PESQUISA EXCEL UTILIZANDO MACRO RRS feed

  • Pergunta

  • Companheiros,
     
    como eu poderia fazer um macro dentro de uma planilha excel 2007 que procure palavras dentro de toda minha planilha(plan1,plan2)

    um abraco a todos
    sexta-feira, 6 de fevereiro de 2009 23:24

Todas as Respostas

  • Não ficou claro para mim que navegação você espera, mas um dos caminhos para fazer o que você precisa é usar o método AutoFilter, por meio do qual você consegue aplicar critérios OR em várias colunas ao mesmo tempo.
    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    sexta-feira, 6 de fevereiro de 2009 23:38
    Moderador
  • companheiro Claudio,

    veja: tenho um form onde o usuario vai digitar o nome que quer procurar em uma (plan1) exemplo: "teste"  ai vai ter uma mensagem se existe ou nao o nome teste na plan1 entende?

    obrigad0

    sábado, 7 de fevereiro de 2009 16:17
  • peguei a funcao
    Code Snippet

    Sub Pequisar()
    Pesquisa = InputBox("Informe o valor a ser pesquisado", "Pesquisar Valores")
    If Pesquisa = "" Then Exit Sub
    Set x = Worksheets(1).Cells.Find(what:=Pesquisa)
        If Not x Is Nothing Then
            x.Select
            MsgBox "Texto encontrado na célula " & x.Address & Chr(10) & "Texto:" & x.Text
        Else
            MsgBox "Texto não encontrado"
        End If
    End Sub


    so que nao to sabendo tambem onde colocar esta funcao coloquei um botao COMMANDBUTTON no click dele mais da erro
    sábado, 7 de fevereiro de 2009 16:34
  • Pesquisa por 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 

    Qualquer dúvida post denovo....
    Se solucionar não se esqueça de marcar como respondida...
    Até..
    segunda-feira, 9 de fevereiro de 2009 10:56
  • Amigo Evangelista apesar de ser um tópico muito antigo, espero que possa responder:

    Como faço para modificar esta macro e mandar pesquisa apenas em uma planilha?

     

    Obrigado

    sexta-feira, 14 de janeiro de 2011 15:45
  • Olá,

    Não testei, mas a princípio seria assim (mude o nome da Planilha para o nome desejado):

     

    Private Sub CommandButton1_Click()
      Pesquisa = InputBox("Informe o valor a ser pesquisado", "Pesquisar Valores")
      If Pesquisa = "" Then Exit Sub
      Set plan = Sheets("Nome_da_Planilha")
        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
    End Sub

     


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    segunda-feira, 17 de janeiro de 2011 22:54
  • Amigo Benzadeus está redondo a macro!

    Não querendo abusar da boa vontade, teria como inserir comando de se caso houver mais de uma palavra igual que pare na primeira. Explico como n planilha tem nomes de rua repetidos eu dou ok e ele continua buscando a té me mostrar todas. Fui claro?

     

    ABS  e obrigado!!!!!!!!!!!!!!!!!!!

    terça-feira, 18 de janeiro de 2011 17:31
  • Benzadeus e EvantelistaLion,

    Teria como fazer a busca (no caso de procurar em todas as planilhas) apenas em planilhas em exibição (excluindo ocultas)?

     

    Se sim, como seria?

    quinta-feira, 5 de maio de 2011 16:44