Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Busca com critérios em várias colunas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
pathfinder73



Mensagens : 30
Data de inscrição : 24/08/2012

MensagemAssunto: Busca com critérios em várias colunas   Sex Ago 24, 2012 11:05 pm

Boa tarde,

Numa pasta de trabalho tenho uma planilha Plan1, com 5 colunas, e mais de 1.000 linhas, em nenhuma linhas todos valores são iguais.
Na planilha Plan2, um campo busca uma informação na planilha se, e somente se, os campos das 4 colunas de Plan1 forem iguais aos da linha de Plan2.

Como fazer isso? VBA? A função BDEXTRAIR não dá para ser usada, pois precisaria de um linha de rótulo, o que não tem como fazer.

Um exemplo da situação que quero corrigir está nesse modelo: <sendspace.com/file/ium15n>

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Busca com critérios em várias colunas   Dom Ago 26, 2012 7:14 pm

Boa tarde!!

Tente..

Código:
Option Explicit


Public MyVal As String

Sub SuperFIND()
'Author:    Jerry Beaucaire
'Date:      8/13/2010
'Summary:  Searches all sheets for any text string, activates when found
Dim ws      As Worksheet
Dim vFIND  As Range

StartOver:
MyVal = Application.InputBox("Digite o nome", "Procura em todas as Planilha", MyVal, Type:=2)
If MyVal = "Falso" Then Exit Sub
On Error Resume Next

    For Each ws In Worksheets
        Set vFIND = ws.Cells.Find(MyVal, LookIn:=xlValues, LookAt:=xlPart)
        If Not vFIND Is Nothing Then
            ws.Activate
            vFIND.Select
            Set vFIND = Nothing
            Exit Sub
        End If
    Next ws
   
MsgBox "Não foi encontrado"
GoTo StartOver

End Sub
What a Face
Voltar ao Topo Ir em baixo
Ver perfil do usuário
pathfinder73



Mensagens : 30
Data de inscrição : 24/08/2012

MensagemAssunto: Re: Busca com critérios em várias colunas   Seg Ago 27, 2012 12:27 am

Alexandre, consegui fazer a pesquisa usando a função SOMARPRODUTO(). Como o campo que eu queria achar era numérico, inserindo os dados das outras colunas, filtrou o dado que eu queria.

alexandrevba escreveu:
Boa tarde!!

Tente..

Código:
Option Explicit


Public MyVal As String

Sub SuperFIND()
'Author:    Jerry Beaucaire
'Date:      8/13/2010
'Summary:  Searches all sheets for any text string, activates when found
Dim ws      As Worksheet
Dim vFIND  As Range

StartOver:
MyVal = Application.InputBox("Digite o nome", "Procura em todas as Planilha", MyVal, Type:=2)
If MyVal = "Falso" Then Exit Sub
On Error Resume Next

    For Each ws In Worksheets
        Set vFIND = ws.Cells.Find(MyVal, LookIn:=xlValues, LookAt:=xlPart)
        If Not vFIND Is Nothing Then
            ws.Activate
            vFIND.Select
            Set vFIND = Nothing
            Exit Sub
        End If
    Next ws
   
MsgBox "Não foi encontrado"
GoTo StartOver

End Sub
What a Face
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Busca com critérios em várias colunas   Seg Ago 27, 2012 1:12 am

Boa noite!

Que bom que resolveu!!! Laughing

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Busca com critérios em várias colunas   Hoje à(s) 10:14 pm

Voltar ao Topo Ir em baixo
 
Busca com critérios em várias colunas
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Somar valores com base em dois critérios
» [Resolvido]Soma em campo texto usando critérios
» [Resolvido]Consulta com dois critérios usando SeImed
» [Resolvido]Consulta entre duas datas mas com 5 datas como critérios
» Problemas sérios com o motor de busca do google

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Intermediário :: Excel Intermediário-
Ir para: