não tem como mesmo ? D:

coloque um exemplo da sua planilha com um exemplo de como vc quer que fique
e para evitar problemas mande ela compactada

Desculpe a demora, o arquivo que eu preciso trabalhar não posso estar enviando, porem fiz esse pequeno exemplo que espero que de para entender, muito obrigado.

Precisa ser com VBA ? Não pode ser com formula ?

Veja um exemplo utilizando as Funções Indice / Menor / SomarProduto / Lin, eu não sou bom com formulas, tirei esta dica do link abaixo :

0095-Simulando PROCV com múltiplos retornos
https://usuariosdoexcel.wordpress.com/2 ... -retornos/

[]s

Mauro, muito boa sua formula, mas infelizmente sim, eu realmente preciso que seja a partir de um modulo.

mesmo assim agradeço sua ajuda.

Mauro, muito boa sua formula, mas infelizmente sim, eu realmente preciso que seja a partir de um modulo.
mesmo assim agradeço sua ajuda.

Korgo, se quer em VBA, e estou supondo que irá digitar em A2 e ter os resultados nas colunas ao lado, não precisaria ser com esta função, poderiamos estar desenvolvendo uma outra rotina para apos digitar em A2 faça a relação da forma que pretende, pelo que vi esta função não tem como utilizar como matricial e funções nao jogam resultado em outras celulas.

Se servir, é só avisar que desenvolvemos.

[]s

Moura, serve sim, agradeço desde já.

olha fiz algo aqui mas enrolei um pouco por querer enfeitar demais

mas acho que dá para vc adaptar facilmente

Sub PROCVM2(ByVal codProcurado, ByVal NomeABA, ByVal CoLRetorno As String, ByVal ColunaListagem As String)

    c1 = Cells(1, CoLRetorno).Column    '--------<<--coluna do valor de retorno do valor
    CoLCod = "E"    '--------------------------------<<--coluna do codigo procurado
    li = 2    '-----------------------------------------<<-----linha onde começa a lista
    i = 2    'primeira linha onde vai listar os valores
    c = Cells(1, CoLCod).Column

    With Sheets(NomeABA)
        lf = .Cells(Rows.Count, CoLCod).End(xlUp).Row    'ultima linha da lista
        For l = li To lf
            If codProcurado = .Cells(l, c).Value2 Then
                Cells(i, ColunaListagem).Value2 = .Cells(l, CoLRetorno).Value2
                
                i = i + 1
            End If
        Next

    End With
End Sub

no caso chama a maco com algo momo isso

Sub listproc()
c = "C" ' coluna onde a macro vai colocar os valores
    lf = Cells(Rows.Count, c).End(xlUp).Row    'ultima linha da lista

    Range(c & 2, c & lf).ClearContents    ' limpa area onde vai a listagem
    Call PROCVM2(Range("a2").Value2, "Plan1", "D", c)
End Sub

depois eu acerto se ninguem aparecer