PROCV CÉLULAS VISÍVEIS

Question

Prezados,

Preciso de ajuda no sentido de identificar como posso utilizar a fórmula PROCV de forma que ela me devolva apenas resultados oriundos de células visíveis.

Grato pela atenção.

Answer 1

Utilize a UDF abaixo:

Function PROCV_VISÍVEIS(pSearchValue As Variant, _

                        pLookupTable As Range, _

                        pReturnIndex As Long) As Variant

    Dim i As Long

    Dim iCell As Range

    Dim Result As Variant

    Dim ReturnRange As Range

    Set ReturnRange = pLookupTable.Columns(pReturnIndex).Cells

    Result = CVErr(xlErrNA)

    For i = 1 To pLookupTable.Columns(1).Cells.Count

        Set iCell = pLookupTable.Columns(1).Cells(i)

        If iCell.Value2 <> pSearchValue Then GoTo Continue

        If iCell.EntireRow.Hidden Then GoTo Continue

        Result = ReturnRange(i).Value2

Continue:

    Next i

    PROCV_VISÍVEIS = Result

End Function

Modo de usar:

=PROCV_VISÍVEIS(D1;A1:B5;2)

Answer 2

Uma solução possível usando uma fórmula matricial (aquelas que precisam ser confirmadas com Ctrl+Shift+Enter simultaneamente)

Dados antes do Filtro

A B C (cabeçalhos na linha 1)

Nome	Teste	Nota
Antonio	Teste1	60
Carlos	Teste1	58
Maria	Teste1	62
Antonio	Teste2	64
Carlos	Teste2	60
Maria	Teste2	56

Em alguma célula vazia (A10 por exemplo) ponha o nome que você está interessado

A10

Antonio

Fórmula matricial em

B10

=ÍNDICE($C$2:$C$7;CORRESP(A10;SE(SUBTOTAL(103;DESLOC($A$2:$A$7;LIN($A$2:$A$7)-LIN($A$2);0;1));$A$2:$A$7);0))

confirme com Ctrl+Shift+Enter

A fórmula retornará 60 (o primeiro valor de Antonio)

Aplique o filtro (por exemplo: selecione apenas Teste2 na coluna B)

Os dados ficam

Nome	Teste	Nota
Antonio	Teste2	64
Carlos	Teste2	60
Maria	Teste2	56

E o resultado em B10, automaticamente, muda para 64 (o primeiro valor visível de Antonio)

Espero que ajude

M.