Boa tarde chimizo

Vc postou a tua dúvida na maioria dos fóruns e ao mesmo tempo. Esse procedimento é errado.
Vc deve postar primeiro em um fórum e aguardar a resposta e se a resposta demorar e vc postar em outro fórum, deve informar que postou também em outro fórum. Deve tb postar o link do tópico do outro fórum.

Vc deu tiro para todos os lados, mas não se deu conta que isso atrapalha, pois nos fóruns todos são voluntários e acabamos perdendo tempo respondendo uma questão que já foi respondida em outro fórum, enquanto uma pessoa que realmente necessita fica sem a devida resposta.

Alguns fóruns que vc postou ao mesmo tempo:

http://forum.clubedohardware.com.br/mac ... is/1041146

http://info.abril.com.br/forum/viewtopi ... 277#p54277

http://www.babooforum.com.br/forum/inde ... -resposta/

Um abraço.

Boa tarde!!
Seja bem vindo!!

Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841

Veja se isso te ajuda....

Function PROCVVARIOS(NomePesquisa As String, IntervaloPesquisa As Range, IntervaloRetorno As Range, Ocorrencia As Integer)
Dim Nome
Dim k As Integer, i As Integer
Application.Volatile
    k = 1
    i = 1
    For Each Nome In IntervaloPesquisa
        If Nome = NomePesquisa Then
        If k = Ocorrencia Then PROCVVARIOS = IntervaloRetorno(i, 1)
        k = k + 1
        End If
        i = i + 1
    Next Nome
End Function


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

Ok, perdao Patropi, me empolguei na duvida e nao percebi o que isso afetaria, vou evitar nas proximas vezes