Notifications
Clear all

procurar texto igual em 2 colunas diferentes

4 Posts
3 Usuários
0 Reactions
924 Visualizações
 Mago
(@mago)
Posts: 0
New Member
Topic starter
 

Estou precisando da ajuda de vcs pois estou tentando procurar mesmo texto em colunas diferentes, exemplo : a1 carlos santos b1 alex carlos c1 carlos, ou seja carlos esta dentro das 2 celulas de pesquisa, ja testei a função exato que busca mais tenho que indexar o carlos para busca,no meu exemplo eu quero verificar se existe um texto igual dentro de 2 celulas, esse pesquisa será incluida em um procv com numeração unica, como referencia.

referencia nome1 nome2 resultado
001 maria santos cruz santos da silva verdadeiro(ou) nome achado

verifiquei varios topicos e nao achei nada que ajude neste assunto
obrigado

 
Postado : 21/07/2015 8:16 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Mago

Seja bem-vindo ao fórum!

Para facilitar anexe uma planilha de exemplo, demonstrando manualmente o resultado esperado.

Apesar da tua explicação, estar meio confusa, pelo que eu entendi, você você irá usar a função PROCV com coringa, sendo que eu mesmo já respondi tópicos sobre o assunto.

[]s

 
Postado : 22/07/2015 5:46 am
(@sandroh)
Posts: 0
New Member
 

Manda uma planilha com o que precisas, não consegui entender.
Primeiro me pareceu que você queria comparar linhas iguais de colunas diferentes, depois falou em procv.

 
Postado : 22/07/2015 6:18 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Função proposta pelo colega JLM do Forum ExcelBr

Function ProcParteDoNome(Cel1 As String, Cel2 As String) As Boolean
    Dim J() As String, L() As String, M1 As Byte, M2 As Byte
    Application.Volatile
    J = Split(WorksheetFunction.Trim(Cel1), " ", , vbTextCompare)
    L = Split(WorksheetFunction.Trim(Cel2), " ", , vbTextCompare)
    ProcParteDoNome = False
    For M1 = 0 To UBound(J)
        For M2 = 0 To UBound(L)
            If J(M1) = L(M2) Then
                ProcParteDoNome = True
            End If
        Next M2
    Next M1
End Function

' Sintaxe de Uso:  =ProcParteDoNome(CélNome1; CélNome2)
 
Postado : 22/07/2015 7:43 am