Função PROCV via Códigos Excel VBA

[@anacleideflorencio4020]

Show, essa forma de explicar os códigos de maneira mais simples ajuda muito mesmo, seria muito bom se todos os códigos fosse assim simples, não ajuda só em ser rápido, mais ainda questão de conseguir entender melhor. Deus abençoe.

[@CanalSGP]

Obrigado.

[@evertonpeixoto4170]

Professor seu vídeos são ótimos parabéns DEUS o abençoe

[@CanalSGP]

Obrigado.

[@rodrigolonguinhos4846]

Meu caro, eu gostaria muito de te agradecer pela sua generosidade de compartilhar conosco seu conhecimento. Através dos seus vídeos eu já consegui resolver 3 problemas nos meus códigos, que eu não consegui avançar sozinho. Desejo muita prosperidade a você e fica aqui o meu muito obrigado.

[@CanalSGP]

Boa tarde, obrigado, sucesso em seus estudos.

[@negreirosjp5880]

Se passaram dois dias desde a última vez que comentei em um dos seus vídeos que não estava funcionando um procv de um formulário meu, graças a esse vídeo me salvo demais, sem dúvidas meu canal preferido de excel, agradeço demais

[@CanalSGP]

Bom dia, obrigado, sucesso em seus estudos.

[@juanore3036]

Muito Obrigado, me ajudou bastante. Abraços!

[@CanalSGP]

Que bom que ajudou

[@marcoaureliocarvalhodasilv9219]

Top de mais professor, essa vídeo aula vai me ajudar bastante.

[@TrolerGaming]

Muito obrigado pela ajuda!

[@anacleideflorencio4020]

Bom dia, Preciso fazer procv no vba mas de várias células da coluna, mas quero um código que ajude o cálculo ser mais rápido, calcular 1000 linhas por exemplo.

[@CanalSGP]

Boa tarde, se no caso deseja deixar a macro mais rápida, pode desativar algumas funções do Excel, como atualização de tela. Semelhante ao que foi feito no vídeo no link a seguir.kzbin.info/www/bejne/fqW7oZini7KiaK8

[@anacleideflorencio4020]

Bom dia, Tem algum vídeo explicando como retirar a fórmula da celula ou coluna logo após que é colocado a fórmula?

[@CanalSGP]

Boa tarde, não entendi exatamente. No caso deseja deixar apenas um valor sem fórmula?

[@anacleideflorencio4020]

@CanalSGP isso, assim que aplico uma fórmula pelo vba, logo após permanecer só valores

[@CanalSGP]

Boa noite, segue exemplo: celula.value = celula.value

[@francieledellacosta3830]

Excelente vídeo.. e como faço para ele buscar dentro de uma combobox com várias opções os itens que quero para análise? Estes itens quero que fiquem descritos em uma outra textbox. Agradeço desde já se puder me ajudar

[@CanalSGP]

Boa tarde, não entendi exatamente o que deseja fazer, mas para trocar o critério para combobox, basta trocar no ponto em que referenciamos a Textbox1.Text

[@francieledellacosta3830]

@@CanalSGP Olá, continuei assistindo os teus vídeos para buscar mais infos.. e caí no vídeo de Controle de Estoque Aula 02. Isto é quase oq preciso .. ele seleciona e de uma comboBox Lista, e leva o resultado para uma nova ComboBox Produtos. Oq preciso é que em vez da segunda opção ser em forma de lista, preciso que fique no formulário como texto. Oq devo fazer?

[@CanalSGP]

Bom dia, acredito que neste caso, melhor seria fazer um filtro em uma listbox, segue exemplo de filtro: kzbin.info/www/bejne/raqbfYBmrs5ppa8

[@carlosbarauna6283]

Boa noite Luan! Estou tentando fazer a função Vlookup, no entanto está apresentando erro, não roda, Mensagem: "Não é possível obter a propriedade vlookup da classe worksheetFunction", consegue me ajudar? É preciso configurar alguma coisa no vba?

[@CanalSGP]

Boa noite, pela mensagem pode ser referencias, talvez a coluna de retorno esteja fora da área referenciada.

[@santtimusiccr]

Boa noite, Tive um problema pois no meu caso a informação que será usada para procurar é um número e não um texto, tem alguma possibilidade de usar a função procv no vba, mais com números?

[@CanalSGP]

Bom dia, pode adequar o código para trabalhar com texto ou número. Segue link de vídeo sobre este tema. kzbin.info/www/bejne/eGqooZ9qr652aM0

[@Noemydecamargo]

O meu Vlookup está funcionando, mas está pegando apenas o valor da primeira linha e quando digito o sgundo nome ele retorna o primeiro novamente.

[@CanalSGP]

Bom dia, provavelmente tenha errado nas referências a tabela.

[@gustavoguidetti88]

Preciso fazer um procv na minha Userform que faça assim: reconheça o item da listbox, marque o valor do item na coluna medida e quando o usuario preencher a quantidade ele mostre o total da multiplicação , e que isso aconteça de forma automatica toda vez que eu inserir um novo cadastro no listbox

[@CanalSGP]

Boa tarde, acredito que vai mudar apenas a captura do critério, que vai pegar da listbox, restante da fórmula continua igual.

[@negreirosjp5880]

Boa tarde gostaria de saber se tem como usar esse código para datas tbm, por algum motivo quando faço a busca a data vem toda errada

[@CanalSGP]

Boa tarde, por data acredito que não da certo, porque a data para o computador é número.

[@negreirosjp5880]

@@CanalSGP mas não é possível por exemplo Eu puxar uma data de uma célula para uma textbox por meio de algum código e quando ela entrar nessa textbox se formatar para o formato de data dnv?

[@CanalSGP]

Boa noite, talvez seja o caso de fazer um filtro entre datas .

[@negreirosjp5880]

@@CanalSGP boa noite, consegui por meio de um vídeo seu com aquele código Dim Data as Fate, obrigado viu

[@CanalSGP]

Que bom que conseguiu.

[@elisangelaoliveira9246]

teria alguma função que pegasse um valor no meio de uma tabela exemplo na posição f7, e comparasse com um valor na coluna a7

[@CanalSGP]

Bom dia, pode utilizar uma condição If. If Planilha1.Range("F7").value = Planilha1.Range("A7").value Then COLOQUE AQUI O QUE DESEJA FAZER SE FOR IGUAL End if

[@negreirosjp5880]

O meu não sei pq não funciona, aparece erro 1004, Não é possível obter a propriedade Vlookup da classe WorksheetFunction

[@CanalSGP]

Boa tarde, geralmente este erro ocorre quando não é encontrado o critério procurado ou a referência a posição está fora da área informada.

[@erivan57]

Como usar função indice e corresp usando vba de planilha1 para planilha2

[@CanalSGP]

Bom dia, não fiz vídeo sobre estas funções ainda.

[@SENTANDODEDONOXDOUBER]

Parabéns pelo vídeo e pela aula! Gostaria de saber se é possível que esta planilha faça o PROCV de um número de RG ou CPF para buscar outros dados da planilha. Por exemplo: Ao digitar um número de RG na Textbox1, mostrar na Textbox2 o nome relacionado ao RG, na Textbox3 o nome da mãe ou do pai ou outras informações. Obrigado e mais uma vez parabéns pelo vídeo!

[@CanalSGP]

Bom dia, obrigado, muda pouco a lógica pra buscar por número, segue exemplo. Dim N1 As Double N1 = TextBox5 Nome = Application.WorksheetFunction.VLookup(N1, Sheets("Plan1").Range("B4:F1000"), 2, False) TextBox1 = Nome

[@SENTANDODEDONOXDOUBER]

@@CanalSGP Executei os comandos informados na planilha e deu certo! O PROCV reconheceu o número digitado na Textbox como número e não como texto. Mais uma vez muitíssimo obrigado pela explicação, e meus parabéns por esta maravilhosa inciativa de compartilhar conosco os seus conhecimentos.

[@danielmcway]

@@CanalSGP Nossa, ajudou demais. Obrigado!

[@CanalSGP]

Que bom

[@BDVL]

Gostaria de receber esta planilha...

[@CanalSGP]

Boa noite, solicite a planilha nos contatos do site do canal, link na descrição do vídeo.

[@1valdecir]

Professor... Seria possível fazer assim: A pessoa selecionar dois valores em uma lista suspensa em campos distintos e retornar uma resposta em um terceiro campo? Por exemplo: Informação nr1: Selecione a dimensão do produto Informação nr2: Selecione a cor do produto Resposta automática: Produto tal

[@CanalSGP]

Boa tarde, não fiz procedimento semelhante ainda, não sei dizer se é possível.

[@andressamachadobarbosafern8860]

A minha está dando erro igual ao que apareceu quando vc escreveu o nome errado, mas o meu está certinho pq puxa de uma combobox, e mesmo assim dá o erro... o que pode ser?

[@CanalSGP]

Boa tarde, talvez se o critério for número pode acontecer o erro 1004. Segue link de vídeo neste sentido. kzbin.info/www/bejne/eGqooZ9qr652aM0

[@andressamachadobarbosafern8860]

@@CanalSGP muito obrigada! Consegui fazer seguindo o vídeo do link 🙌🏻

[@CanalSGP]

Que bom.

[@marceloknisshengst869]

Oi amigo, eu estou tendo problemas na linha "Set EDV = .Find(cx_produto.Value, Looking:=xlValue, Lookat:=xlWhole)", fico recebendo a mensagem : Erro em tempo de execução '448': Arguemento nomeado não localizado... poderia me ajudar?

[@CanalSGP]

Bom dia, tente definir a variável no início do procedimento: Dim EDV

[@anacleideflorencio4020]

Bom dia, testei da mesma forma que passou mas mesmo assim não retorna o valor procurado ficam todos em branco,

[@CanalSGP]

Bom dia, se o critério de pesquisa for número pode não encontrar.

[@anacleideflorencio4020]

@CanalSGP letra com numero, mas descobrir que só aparecia nas texbox se eu não coloca-se não para a texbox por exemplo: Em vez de colocar texbox1 = item ,tenho que deixa só texbox1

[@anacleideflorencio4020]

@CanalSGP tem algum vídeo explicando como alterar font e cores na barra de título do formulário?

[@CanalSGP]

Neste sentido não tenho vídeo ainda, pelo menos não fiz esta personalização até o momento.

[@douglascgoulart79]

Aula muito boa, parabéns! Mas eu gostaria se houver a possibilidade de estar fazendo uma vídeo aula gerando um arquivo PDF baseado na pesquisa. Forte abraço e aguardo respostas!

[@CanalSGP]

Bom dia, obrigado, vou estudar essa possibilidade.

[@nataciooliveira7628]

Oi bom dia, eu adoro os seu vídeos, são todos muito excelentes e bem dinâmicos. Mas eu estou tendo uma dificuldade toda vez que eu vou adicionar um objeto ActiveX Control VBA no Excel ou no formulário (userform). Quando é no Excel aparece uma mensagem tipo: " não é possível inserir o objetivo Excel", e no formulário aparece outra " o controle não está habilitado" ou algo do tipo. Você poderia me ajudar?

[@CanalSGP]

Bom dia, obrigado, qual controle está tentando adicionar?

[@nataciooliveira7628]

@@CanalSGP Olá, obrigado por me responder. Eu estava tentando adicionar no Excel uma caixa de listagem, uma caixa de combinação, e no ambiente VBA, uma listview, uma listbox e uma scrollbar. E só dar erro... Me ajuda, por favor.

[@nataciooliveira7628]

Muito obrigado pela atenção e pela resposta. Lhe desejo muito sucesso, fica com Deus.

[@michellleitao-recife]

Poxa eu tentei aqui e digitei o código exatamente igual, sendo que minha TextBox1 tem nome DescricaoEPI e a Textbox2 tem o nome CodigoEPI. Eu criei a variável com o nome Codigo e inserir a função abaixor: Application.WorksheetFunction.VLookup(DescricaoEPI, Sheets("EstoqueEPI").Range ("B6:I1000"), 8, False) Primeiro ele deu esse erro: Era esperado: Separador de Lista ou ) Aí revisei, vi que tava faltando aspas nas celulas B6:I1000 Agora ele ta dando o erro: Erro de tempo de execução '1004' Não é possível obter a propriedade VLookup da classe WorksheetFunction O nome da planilha que quero buscar o resultado é "EstoqueEPI" Me ajuda por favor!!!

[@CanalSGP]

Boa noite, mas o critério que está usando é número ou texto?

[@iza1292]

O MEU FICA DANDO ERRO TEMPO DE EXECUÇÃO 1004 - já fiz e refiz diversas vezes e não vai. quando não é esse erro é o 9. If OPERAÇÃO_1.Text = vbNullString Then Exit Sub Codigo = Application.WorksheetFunction.VLookup(OPERAÇÃO_1.Text, Sheets("operações").Range("A1:C1000"), 1, 0) TextBox79.Text = Codigo

[@CanalSGP]

Boa tarde, deixe seu e-mail que envio a planilha da aula.

[@iza1292]

@@CanalSGP [e-mail] porém se eu faço numa pasta de trabalho nova da certo, mas na do meu projeto continua dando esse erro. Obrigada

[@canaldoe-commerce1116]

Boa, mas como eu faço para ao invés de buscar um valor específico, ela buscar a última linha da coluna ?

[@CanalSGP]

Bons estudos.

[@canaldoe-commerce1116]

@@CanalSGP Entendi, é q o q preciso realmente é buscar primeiro um valor na horizontal e a partir desse valor buscar o último valor da coluna, Exemplo: Buscar CAIXA 15 (Numa sequencia horizontal, caixa 1,caixa 2 e etc) E embaixo desses títulos estaria o código de cada item e a descrição do mesmo. Depois que achasse a caixa, procurasse o último código da coluna e somasse +1 para obter o próximo código já automatizado. (O novo código estaria em um textbox dentro de um userform que está em outra planilha para cadastrar os itens) pensei em mesclar as fórmulas "PROCH" + "PROCV" mas não tenho idéia de como fazer.. se me desse uma luz seria de grande ajuda.

[@joaocarlosjanuario9188]

@@canaldoe-commerce1116 Entendi o que precisas. Acrescente mais uma coluna como um guia, para retornar a linha, começando pelo número 2 (porque a linha 1 é o cabeçalho GUIA, se houver), somando 1. Então a tabela que conterá os dados de procura na horizontal seria: caixa1 ...a caixa15, ok?! E a tabela de procura na vertical, se iniciará na coluna de busca, até a NOVA coluna de GUIA. Desta forma a fórmula ficaria assim, exemplo: PROCH(valor procurado=caixa5; _TBHOR;PROCV(valor procurado na vertical; _TBVER;17(1col vr procurado+15caixas+1guia);0 (verdadeiro da vertical));0 (verdadeiro da horizontal)). Desta forma ela LOCALIZA, qual coluna na HORIZONTAL está a Caixa5 e pela procura VERTICAL, ele localiza qual número da linha está o CÓDIGO PROCURADO. Proceda assim que dá certo. Há também como usar as funções combinadas ÍNDICE x CORRESP.

[@July12445]

Acho que estou fazendo algo errado, mas não consigo identificar:(

[@CanalSGP]

Bom dia, qual mensagem de erro retorna.

[@negreirosjp5880]

Consegue me ajudar com esse código de cadastro de usuários múltiplos sem repetição por favor? Por algum motivo só está dando Usuário já cadastrado no primeiro, no segundo em diante ele permite cadastrar repetido, meu código é assim caso alguém saiba resolver fico agradecido Sheets("Users").Activate linha = Range("A1").End(xlDown).Row + 1 lin = 2 While lin < linha If Cells(lin, 1) = TextBox1.Value Then MsgBox ("Nome já cadastrado.") TextBox1 = "" TextBox2 = "" Exit Sub Else Sheets ("Users").Select vz = Range("A1").End(xlDown).Row + 1 Cells(vz, 1) = TextBox1.Value Cells(vz, 2) = TextBox2.Value MsgBox ("Usuário Cadastrado com Sucesso.") Unload Me Exit Sub End If lin = lin + 1 Wend End Sub

[@CanalSGP]

Boa noite, teste mudar a linha de código a seguir. If Cells(lin, 1).Text = TextBox1.Text Then

[@negreirosjp5880]

@@CanalSGP pior que ainda vai, desculpa te pertubar com isso é pq n sei onde procurar resposta mais, agradeço dms por me responder viu se souber algo q eu posso fazer por favor me diga

[@CanalSGP]

Bom dia, talvez seja erro de referência a coluna da planilha onde constam os nomes.

[@anacleideflorencio4020]

E mesmo depois de ter feito os cálculos, no próxima vez ele venha calcular só onde tem celulas vazias, e não calcule os que já foram calculados,

[@CanalSGP]

Boa tarde, se esta utilizando um laço, talvez um if dentro do laço para verificar se a célula esta vazia.

[@anacleideflorencio4020]

Estou usando : With plan Do loop If

[@anacleideflorencio4020]

@CanalSGP em qual quer pasta ou no módulo ele fica rodando sem trazer o valor

[@anacleideflorencio4020]

@@CanalSGP está assim: With plan5 Do Linha = linha + 1 If .cells(linha,18).value =""then Procv Loop until .Cells( linha,3).value "" End if End with End sub

[@CanalSGP]

Bom dia, o que vi foi um erro de digitação na variável linha. Linha = linha + 1 'Errado linha = linha + 1 'Certo