none
Localizar valores para fazer VLOOKUP - VBA RRS feed

  • Pergunta

  • Pessoa, boa tarde.

    Estou desenvolvendo um código para fazer o seguinte:

    1. Identificar o nome do fornecedor numa frase (coluna A, da aba chamada "Base")

    2. Após identificar o fornecedor (são vários), faço um VLOOKUP na aba "Dados" com a razão social completa.

    Por exemplo, na célula A2 identifico o "FULANO" e faço um PROCV em B2 para que traga o nome completo como "FULANO DE TAL". Normalmente a frase está como "TÍTULO DE FULANO NF 0000" ou "PAGAMENTO REALIZADO A FULANO NF 1111". Fiz o comando abaixo, mas só funciona se estiver escrito apenas exatamente o primeiro nome, como "FULANO".

    Se alguém puder ajudar, agradeço.

    Sub PesquisaMultipla_3()

    Dim cell As Range
    Dim fornecedor As String
    Dim linFinal As Long

    linFinal = Cells(Rows.Count, 1).End(xlUp).Row

        For Each cell In Range("A2:A" & linFinal).Offset(0, 1)
            fornecedor = cell.Offset(0, -1)
            cell.Value = Application.VLookup(fornecedor, Planilha2.Range("A:B"), 2, 0)
        Next cell

    End Sub
    domingo, 7 de abril de 2019 15:21