Busca com critérios em várias colunas

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

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>

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

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

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

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

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

Boa noite!

Que bom que resolveu!!! Laughing

Att

» Busca de dados com varios criterios
» Busca de Dados com varios Critérios
» Copiar e agrupar linhas de colunas iguais em novas colunas
» Somases com criterios
» sorteio com critérios