Bom dia!!!
Veja se essa função via VBA pode te ajudar.
Com o excel aberto aperte as teclas Alt + F11 para ir até o Editor VB.
Depois Alt+ I para inserir um modulo, copie o código abaixo e cole no modulo.
Vá para excel e digite =PROCVMÚLTIPLO....
Function PROCVMÚLTIPLO(NomePesquisa As String, IntervaloPesquisa As Range, IntervaloRetorno As Range) As String
Dim Valor, Nome
Dim k As Integer
Application.Volatile
k = 1
For Each Nome In IntervaloPesquisa
If Nome = NomePesquisa Then
Valor = IntervaloRetorno(k, 1)
PROCVMÚLTIPLO = PROCVMÚLTIPLO & Valor & "; "
End If
k = k + 1
Next Nome
PROCVMÚLTIPLO = Left(PROCVMÚLTIPLO, Len(PROCVMÚLTIPLO) - 2)
End Function
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 09/01/2012 11:31 am