Como fazer fórmulas com PROCV em VBA

[@edson11nunes]

Bom dia, parabéns pela forma de explicar. Como fazer para fazer o PROCV em UserForm? Para trazer o resultado da base dados para à TextBox.

[@mprinformatica]

Olá Edson, Acabei de fazer um exemplo simples do que você precisar e coloquei para você baixar no Github: github.com/cctanaka/PROCV-no-VBA

[@edson11nunes]

@@mprinformaticaNão consegui acessar o arquivo,.

[@mprinformatica]

Clica no link para abrir o site do github. Depois clica com o botão direito do mouse no arquivo PROCV.xlsm e escolha salvar link como

[@racapitalinvestimentos7920]

Perfeito a explicação! Mas no caso de uma planilha externa e for procv de várias colunas? Obrigado

[@mprinformatica]

Olá. Para fazer a busca em outro arquivo, adicione o caminho do arquivo da mesma forma que se faz no Excel. POr exemplo: Range("d2").Formula = "=VLookup(C2, [arquivo.xlsx]Tabela!$A$4:$B$7, 2, 0)" Se tiver que fazer vários procvs em várias colunas, faça todas as fórmulas na primeira linha e depois mude a área da cópia para algo assim: Range("D2:G2").copy e mude a área da colagem (no Offset) para algo assim: Range("D2", Range("C1").End(xlDown).Offset(0, 4)).PasteSpecial Se você precisa fazer desse tipo de automação com PROCV, veja se o Power Query não é melhor: kzbin.info/www/bejne/e6auqZymgNCHa7M

[@dk1909]

aleluia, achei alguem que soube explicar o provc no VBA sem enrolação.

[@mprinformatica]

Obrigado, Douglas!

[@carlosmaffei3279]

Parabéns pela simplicidade e objetividade na explicação. Me ajudou muito!

[@mprinformatica]

Fico contente com isso. Sucesso!

[@edsonmatheus2598]

Offset e sempre desloca para direita, ou tbm vai para esquerda?

[@mprinformatica]

Olá Edson. Offset desloca para as quatro direções - para direita e para baixo com valores positivos, para cima e para a esquerda com valores negativos.

[@eziorealestate1585]

PARABÉNS, UMA DIDÁTICA SIMPLES E PERFEITA

[@mprinformatica]

Obrigado Imperio Distribuidora.

[@manoelvitor1910]

Muito bom

[@mprinformatica]

Valeu Manoel!

[@leonardoaugusto5989]

Cara você é 10! Parabéns.

[@mprinformatica]

Valeu Leonardo, seu comentário é 11!

[@sidneisoaressantos3202]

Muito obrigado por compartilhar seus conhecimentos!!

[@mprinformatica]

Agradecemos o seu apoio, Sidnei.

[@carolinabarros9416]

Perfeita sua explicação simples e direta!! parabéns! eu assisti outros vídeos e dão a volta ao mundo.. Muito obrigada!!

[@mprinformatica]

Que bom que ajudou, @Carolina Barros! Bons estudos e sucesso!

[@palomafaria1036]

Excelente. muito bem explicado!

[@mprinformatica]

Obrigado @Paloma Faria

[@xboxbrasil5323]

Opa, gostaria de saber se teria como fazer esse comando procv puxando a informação de um arquivo TXT. Executo o comando e me tras o valor que eu quero do txt, e se eu tiver outro arquivo txt coloque o novo resultado na linha de baixo.

[@mprinformatica]

Olá ProGamePlay. A melhor solução para o seu caso é usar o Power Query, sem sombra de dúvidas. Veja esse vídeo aqui do canal: kzbin.info/www/bejne/aKO3f4imgqiUipY

[@arthursantiago8294]

Tu salvou a minha vida ❤❤❤❤❤

[@mprinformatica]

Hahaha, nem tanto.

[@MrRhainer]

The best

[@mprinformatica]

Obrigado pelo apoio @MrRhainer

[@andrepayjao]

Bom dia, gostaria de parabenizar pelo vídeo e explicação, como seria possivel agregar a função "SEERROR" nesta programação, pois consegui programar a planilha que eu precisava com a sua ajuda, porem gostaria de quando não houver informações a serem apresentada com a busca ele não apareça com "=N/D", inserindo manualmente a formula na planilha eu consigo, porem não consigo inserir na programação com a função "IFERROR", pois sem programação eu apenas insiro o SEERROR antes do Procv e no final do procv adiciono ;""... ja adicionando o IFERROE nesta mesma estrutura não da certo, desde já muito obrigado!!!

[@mprinformatica]

Olá @Andre Payjão. NO código VBA, altere a linha da fórmula para: Range("D2").Formula = "=IFERROR(VLOOKUP(C2, Tabela!$A$4:$B$7, 2, 0), """" )" Note que foi necessário usar 4 aspas na função SEERRO (IFERROR), porque as aspas são usadas para fechar a propriedade fórmula, e para anular essa condição de fechamento e usar o famoso "" dentro da fórmula, temos que dobrar o número de aspas. Por que foi feito assim? Porque os desenvolvedores da Microsoft quiseram!

[@deforceh]

Boa noite, como poderia fazer para encontrar até a última linha contendo dados? No meu caso não tenho uma coluna definindo o número de linhas, para cada arquivo que fizer o PROCV será com linhas distintas, podem ter menos ou mais (OBS, até o momento fiz como no video), porém está indo até a última linha da planilha, o que fica enorme pois está puxando até linhas sem dados e da vários erros

[@mprinformatica]

Olá Deforceh. Para achar a última linha escolha uma coluna que tenha dados até a última linha da sua tabela. Suponha que essa coluna seja a G. Além disso, considere que a coluna onde vai o PROCV é a coluna L, e os dados começam na célula L2. Então o último comando (aquele que copia até o final) pode ser assim: Range("L2", Range("G1048576").End(xlup).Offset(0, 5)).Pastespecial onde xlup é um L (XLUP), e não um número 1. 5 (usado no offset) é o número de colunas entre a coluna G e a coluna L

[@deforceh]

@@mprinformatica Não está dando certo, no meu caso tenho uma macro que importa txt, e importo dois txt com dados, e tenho um botão que faz o PROCV entre eles. O Resultado sai na planilha(ENCERRAMENTO) e faz o PROCV na planilha1 e planilha2, puxando resultado para a (ENCERRAMENTO) porém fiz pelo código do vídeo e está indo até a ultima linha da planilha, e não até a ultima que contém dados, ficando em linhas infinitas o ("Não Encontrado") do SEERRO

[@mprinformatica]

@@deforceh Acho que você não testou a modificação que enviei no último comentário? Com essa modificação não há como preencher até o final. Em tempo, esse tipo de processamento que você faz, desde 2015 é melhor que seja feita com o Power Query. Dá uma olhada nos vídeos do canal sobre importação de arquivos de texto e Procv com Power Query. Depois disso você talvez não queira mais ver o VBA para esse tipo de importação. : )

[@deforceh]

@@mprinformatica não entendi muito bem a modificação que disse pra fazer, veja bem: quero que a macro cole esse PROCV na A3 da planilha "ENCERRAMENTO", Range("A3").Formula = "=VLOOKUP('Planilha1'!R[-2]C,'Planilha1'!R[-2]C:R[66]C,1,FALSE)" , esse procv pega o primeiro valor da planilha 1, até ai está rodando, mas como poderia fazer agr para fazer o autopreenchiemento até a ultima linha que tem dados?

[@deforceh]

OBS: na minha tabela, da planilha "ENCERRAMENTO", não tem nenhum dado em nenhuma das colunas, ela tem que puxar esses dados da Planilha 1 e Planilha 2 utilizando PROCV