none
PROCV Valor seguinte RRS feed

  • Pergunta

  • Bom dia,

    Gostaria que quando o procv não encontra o valor procurado me desse o valor seguinte da tabela, e não o valor máximo.

    Isto é possivel?

    Obrigado

    segunda-feira, 27 de junho de 2011 09:58

Respostas

  • Boa noite!!

    Veja se te atende...

     

    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

     

     

     

    Att..


    zinho
    terça-feira, 28 de junho de 2011 00:00