PROCV retorna dados da esquerda ou direita

Planilhas, Arquivos, modelos, exemplos, apostilas, nosso datacenter!

PROCV retorna dados da esquerda ou direita

Mensagempor edilsonfl » Ter Mai 24, 2016 2:10 am

Olá

Estou disponibilizando uma planilha modelo com uma função que criei ( ProcvTotal ), ela é semelhante ao procv original do excel, mas com a vantagem de também poder retornar dados que estejam do lado esquerdo da coluna onda a busca é realizada.

Para retornara dados da esquerda informar um valor negativo ( posição da coluna), se a informação estiver à direita, informar a posição da coluna com um valor positivo.

lembrando que por se tratar de uma macro a planilha deve ser salva no formato .xlsm.

Segue código VBA e planilha com explicação.

Código: Selecionar todos
Function ProcvTotal(Valor_procurado As Variant, Coluna_de_Dados As Range, Posição_do_Retorno As Integer)

Dim y As Long
Dim c As Long
Dim lin_pesquisa As Long

ProcvTotal = "# Ñ/Loc" ' Valor caso não seja encontrado

i = Coluna_de_Dados.Row 'PRIMEIRA LINHA DO INTERVALO
y = Coluna_de_Dados.Rows(Coluna_de_Dados.Rows.Count).Row 'ULTIMA DO INTERVALO
c = Coluna_de_Dados.Column 'Nº da 1ª coluna, coluna de busca

For lin_pesquisa = i To y
    If Cells(lin_pesquisa, c).Value = Valor_procurado Then
       ProcvTotal = Cells(lin_pesquisa, c + Posição_do_Retorno).Value
    Exit For
    End If
   
Next lin_pesquisa

End Function



Procv à esquerda, Procv retorna informação da esquerda, substitui função INDIRETO, Procv melhorado,
Você não está autorizado a ver ou baixar esse anexo.
Quando ajuda for útil dê um clique na mãozinha, isso atribui ponto ao colaborador.
Avatar do usuário
edilsonfl
Membro
Membro
 
Mensagens: 230
Registrado em: Seg Out 14, 2013 2:28 pm
Localização: Recife - Pe
Has thanked: 10 times
Have thanks: 118 times

{ SO_SELECT }

Voltar para Biblioteca

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante