none
Replicar Formula do PROCV no Excel VBA RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa Noite, Amigos

    Pessoal estou com uma duvida no código abaixo.

    Eu preciso que o meu PROCV seja executado uma linha após a outra e pare quando o valor procurado for "nulo / em branco"

    No código abaixo ele faz a seleção de J2:J4 porém nesse caso a J4 seria uma variável onde quero que vá até o final do arquivo.

        Range("J2").Select 'selecionei a celula J2
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],SEGMENTACAO.xlsx!C1:C4,4,0)" 'Na célula ativa executar o PROCV
    Selection.AutoFill Destination:=Range("J2:J4"), Type:=xlFillDefault

    Muito grato se puderem ajudar,

    JhonnyPaula

    sexta-feira, 26 de janeiro de 2018 01:17
    |

Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Olá Jhonny,

    Eu costumo criar uma variável onde eu obtenho o número da linha onde ele deve parar e depois eu coloco no autofill.

    Segue o código abaixo:

            

        Dim linhas As Double

        'Obtém a quantidade de linhas
        linhas = Range("J2").End(xlDown).Row

        Range("J2").Select 'selecionei a celula J2
        ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],SEGMENTACAO.xlsx!C1:C4,4,0)"

        'Na célula ativa executar o PROCV
        Selection.AutoFill Destination:=Range("J2:J" & linhas)

    Espero que Ajude.

    Márcio Diniz

    Linkedin Marcio Diniz

    sexta-feira, 26 de janeiro de 2018 02:13
    |