none
Replicar Formula do PROCV no Excel VBA RRS feed

  • Pergunta

  • 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

  • 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