Olá Luan! Tudo bem? Tenho assistido a vários de seus vídeos e já me ajudou bastante, muito obrigado! Não tenho muito conhecimento em VBA mas estou desenvolvendo uma planilha de controle de clientes para o consultório do meu pai (psicologia). Tudo que ele precisa já está funcionando perfeitamente, menos o campo de Anotações. Eu tenho uma Aba de controle (onde mostra o resumo de cada cliente pesquisado), a aba Base de Dados, etc. Criei um Textbox na guia Controle pra quando puxar a ficha do cliente, abrir a célula de anotações onde ele fará todo o registro da consulta com esse cliente. Na minha Base de Dados, a coluna AC é onde eu defini para ser o campo de anotações. Eu precisaria puxar esse cambo da BD para o Controle quando eu selecionasse esse cliente, meu pai precisaria incluir as informações (e manter as antigas) e salvar automaticamente. Resumindo: Eu preciso puxar a célula AC da BD para uma textbox que está vinculada à pesquisa do cliente, fazer edições nessa textbox, e ela salvar automaticamente na mesma coluna AC. Acho que minha explicação ficou muito confusa kkkkk. Você conseguiria me ajudar? Obrigado!
Bom dia, acompanho sempre os seus posts e esse em especial foi extremanente útil. Era exatamente o que eu buscava e me ajudou imensamente. Obrigado por compartilhar o seu conhecimento!
Luan, parabéns! Acompanho seus vídeos. Sou leiga e estou iniciando no VBA. Estou tentando deixar uma caixa de código vazia sempre que a caixa de descrição for alterada nlistsgem de produtos.
Olá. preciso de ajuda com essa questão: tenho 3 combobox dependentes no form e gostaria que a última combo exibisse em uma caixa de texto uma informação que está na planilha, relacionada a essa combo, você pode me ajudar?
Boa noite! Tenho uma dúvida. E possível colar informações diárias com procv na macro alto preenchimento somente valor. Exemplo tenho uma de preenchimento diário e quero jogar na outra aba para ser preenchimento automático de acordo com o dia
Boa tarde, como é algo bem específico é difícil dizer se é possível. Ou seja, vai precisar montar uma lógica de acordo com o que deseja, etapa por etapa.
Bom dia, obrigado, não testei, mas acredito que este procedimento não vai funcionar na planilha oculta. Mas o código pra ocultar é Application.Visible = False e para reexibir é Application.Visible = True
BOA TARDE, GOSTARIA DE UMA VÍDEO AULA SOBRE CONTROLE DE INVENTÁRIO, SENDO QUE CADASTRANDO ITENS E DANDO BAIXA NOS MESMOS USANDO QR CODE! SE POSSÍVEL EU AGRADEÇO.
Tem alguma opção ou dica, para a célula não ser selecionada ao digitar na textbox. Porque estou usando em uma planilha com vários dados. quando utilizo o codigo a planilha vai la pra cima. Teria alguma dica? E parabéns pelas aulas!!! estou estudando a 1 semana e estou fazendo esse projeto!
Bom dia, pode colocar um comando para selecionar uma célula da parte superior após a pesquisa. Por exemplo: Planilha1.Range("A1").Select E no início do código pode desativar a atualização de tela, não vai perceber a movimentação. Application.Screenupdating = false
Eu estou tendo dificuldades aqui, estou usando duas planilhas, uma é a que contém os dados e na outra é onde tem o userform. Mesmo digitando todo o código corretamente ele da erro na linha "With Worksheets("Planilha2").Range("A:A")", não sei o que pode estar acontecendo, se pode estar relacionado com o fato do userform estar em uma planilha e os dados em outra.
Boa noite! quando aplico esse código dá o seguinte erro: Subscrito fora do intervalo. Ao debugar o código a linha que fica selecionada como erro é essa - With Worksheets("plnProdutos").Range("B:B"). Como corrigir?
Boa Tarde professor ! Mais uma aula bem didática e de conteúdo excelente. Me resta uma dúvida... Tem como eu fazer a busca em uma TextBox e retornar resultado em mais de uma TextBox diferente ? Exemplo : Eu preciso buscar a localização de um material, que tem coordenadas especificas (Estante/Prateleira/Gaveta/Caixa). Tem como
Boa tarde, para carregar mais objetos precisa mudar a posição da coluna. If Not c Is Nothing Then c.Activate TextBox2.Value = c.Offset(0, 1).Value TextBox3.Value = c.Offset(0, 2).Value TextBox4.Value = c.Offset(0, 3).Value Else
Professor funcionou perfeitamente essa explicação mas quanto eu mudo uma aba da planilha ele dá erro no c.activate como faço para continuar funcionando mudando mesmo mudando a aba
Boa noite, este comando precisa ativar a célula, mas tem o procedimento do vídeo no link a seguir, que não precisa estar na aba ativa para pesquisar. th-cam.com/video/mvmEGmeDdgs/w-d-xo.html
Professor, boa noite. E se a palavra que eu quero buscar estiver no meio de outras palavras? Ex: Bruna Laura Santos. Minha procura deve localizar a "Laura". Como eu faço?
Bom dia, pode me ajudar a fazer um PROCV, dentro do formulário userform, onde ao digitar a ordem de produção na caixa_ordem pega o código e descrição na aba Base Ordens, e coloca o dado do código na caixa_código e descrição na caixa _descrição a Base Ordens vai de A:T10000000000 o código está na coluna 8 e descrição na coluna 9.
@@CanalSGP Boa noite! Esse comando está ligado ao botão de comando, como fazer para trazer de forma automática assim que digitar o código na textbox caixa_ordem?
Funcionou perfeitamente. Estou trabalhando com várias abas dentro da mesma planilha, quando digito em minha caixa do VBA para pesquisar ele abre a aba da base de dados. Preciso que ele permaneça na aba onde foi aberto pois a BASE DE DADOS ficará oculta. Qual código uso para permanecer na aba onde o VBA foi aberto?
Bom dia, com este procedimento infelizmente precisa estar na guia dos dados. Para fazer pesquisa sem ativar a guia, vai ser procedimento parecido ao da vídeo aula no link a seguir: th-cam.com/video/9Ef-MqNfoZQ/w-d-xo.html
Boa noite. Seus vídeos estão me ajudando muito. Desde já, muito obrigado. Estou fazendo uma planilha e fiquei com a seguinte dúvida: há como fazer esse procedimento do vídeo sem usar um formulário (fazer com os Textboxes diretamente na planilha do Excel)?
Obrigado, gostaria de saber se é possível ao inserir o código e apertar enter, pular a testbox do nome para uma terceira testbox do meu formulário? já que não vou precisar inserir o nome, desde já, obrigado.
Olá tudo bem. no caso de varias textbox, a partir do código. tenho um formulário de cadastro e através do código, preciso carregar outro formulário. você pode me ajudar? Grato.
@@CanalSGP Olá. Tenho um planilha com nome do cliente, endereço, cnpj, cpf .... quero transportar para um useform. Na sua aula, foi transportado um item. A formula que você usou para um item ok. Não estou conseguindo usar a formula para varios itens. Você pode me ajudar. Grato pelo retorno.
Olá, obrigado, basta chamar o formulário e inserir a seguinte linha de código no evento initialize: Por exemplo: TextboxFuncionario.Value = Activecell.value
Esse vídeo não está funcionando, gostaria de uma explicação para fazer uma planilha de pedidos de compra, no qual seria inserido em um campo o número do pedido e os outros campos preencher com os dados da planilha, e outros campos para que o cliente preencha avisando a quantidade que chegou e o número da nota fiscal. Tentei fazer a listbox para várias colunas e não deu certo.
Bom dia. Seguinte: criei um botão de filtro onde tenho que clicar dentro dele para digitar e filtrar as informações, mas quero atribuir uma tecla de acesso (esquecer o mouse) "exemplo o ENTER" para digitar, como se eu apertasse o F2 para renomear. Como faço para atribuir alguma tecla de acesso (deixar de clicar com o mouse para escrever)? Esses são os comandos do botão criado de filtro: Private Sub MINUTA_Change() If MINUTA.Text "" Then Selection.AutoFilter Field:=4, Criteria1:="=" & MINUTA.Text Else Selection.AutoFilter Field:=4 End If End Sub
Excelente aula, mas eu tenho uma dúvida. E se fosse gerar um arquivo PDF a partir dessa pesquisa, como seria? Pode fazer uma vídeo aula a respeito ou já tem?
Boa noite. não consigo digitar a letra j em textbox! não sei o que ocorre... tenho um excel 365 e meu teclado está funcionando corretamente. Digito tudo dentro de um textbox, menos o j! No seu funciona? sabe o que pode ser?
Muito boa aula. parabéns. Mas queria perguntar: Se tenho um cadastro de nomes e quero pesquisar por nome e que me traga o telefone como resultado, porém tenho duas pessoas com mesmo nome e eu queira colocar uma outra condição tipo o CPF para diferenciar as duas pessoas e ter o resultado correto do telefone. Como ficaria? Desde já Obrigado.
professor o unico erro que esta dando é nesta linha, fiz diversas arquivos e planilha comecei do zero renomeei todos arquivos ate fiz igual sua planilha professor porem nada de funcionar, por favor me ajude onde estou errando? Set C = .Find(TextBox1.Value, LookIn:=x1Values, Lookat:=x1Whole) neta linha que sempre da erro
Professor, consigo criar um UserForme, onde eu consiga (modo pesquisa" e com opção de mandar pra "outro local" e gerar uma impressão? COMO ASSIM FRANCISCO?! KKKK No meu caso, tenho uma planilha "Controle de Frota", tenho formulário de cadastro (aquele criado com vc) onde eu consigo Cadastrar, ok. Mas se eu quiser imprimir essas informações em forma de FICHA o que vc me indica?
PRECISO DE UMA FORÇA AQUI,montei um layout com 20 textbox com várias informações como endereços, códigos de clientes e etc...E quero na verdade preciso que ao digitar em qualquer das texbox apareça a informação das outras 19, tô apanhando muito com isso, podem me ajudar?
Boa tarde, não entendi exatamente sua dúvida, se for para exibir os demais objetos, poderia ser os códigos no evento change da textbox, alterando o visible dos demais para true.
Boa tarde! No meu caso funcionou quase que perfeitamente. Os códigos que uso para busca tem 3, 4 e 5 dígitos. Quando coloco o 1º digito já aparece que o Funcionário não foi encontrado, ai clico em ok e vou fazendo isso até colocar os 3 dígitos. Se ele encontrar o alguma coisa com apenas 3 dígitos não faz a busca no 4º e 5º dígitos. Tem alguma solução para este problema?
@@CanalSGP Boa tarde Professor! Finalmente consegui resolver. Como a minha busca é feita a partir do 3º carácter, coloquei uma condição if para não fazer nada se < 100 como segue: Private Sub tb_Codigo_Produto_Change() If tb_Codigo_Produto = "" Or tb_Codigo_Produto < 100 Then 'Se o tb_Codigo_Produto for igual a nada ou menor que 100, não faça nada tb_Produto_Referencia = "" Else Dim intervalo As Range 'Este intervalo se refere a TABPRODS_D Dim texto As String Dim codigo As Integer Dim mensagem codigo = tb_Codigo_Produto Set intervalo = Planilha6.Range("D5:G46") On Error GoTo Erro pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False) tb_Produto_Referencia = pesquisa 'Pesquisa a Descrição do Produto de acordo com o código digitado na tb_Codigo_Produto3 tb_Produto_Referencia.Enabled = False 'Bloqueia a célula para não poder ser alterada pelo usuário Exit Sub Erro: texto = "Código não localizado!" mensagem = MsgBox(texto, vbOKOnly + vbInformation, "Atenção!!!") tb_Codigo_Produto = "" tb_Produto_Referencia = "" tb_Codigo_Produto.SetFocus Exit Sub End If End Sub Obrigado pela aula, me ajudou muito mesmo.
bom dia meu amigo quero externar os meus sinceros agradecimentos e parabeliza-lo pelo excelente trabalho desenvolvido por você. Mais eu me encontro com uma duvida, como faço para que esse codigo faça a pesquisa de dados em coluna anteriores a que vc tem na sua planilha. a coluna da minha planilha que eu faço a pesquisa é a G eu gostaria de pesquisar tambem nas colunas a,b,c,d,e,f. como posso fazer isso?
Boa tarde, tentei aqui e está dando o erro em tempo de execução '9' Subscrito fora do intervalo o que pode ser? estou digitando o codigo para encontrar produtos que estao cadastrados em uma planilha igual você fez, se puder me ajudar agradeço
Bom dia, tem alguma referência escrita errada, como nome da Guia entre as aspas, nome da textbox ou se estiver utilizando versão Excel 2016 pode ser planilha ao invés de plan: Plan1.Select Plan1.Range("B4").Select With Worksheets("FUNCIONARIOS").Range("B:B") Set c = .Find(TextBox1.Value, LookIn:=xlValues, Lookat:=xlWhole) If Not c Is Nothing Then c.Activate TextBox2.Value = c.Offset(0, 1).Value Else MsgBox "Funcionário não encontrado!", vbInformation, "PESQUISA" TextBox2 = "" End If End With
Boa noite ! Código funciona perfeitamente, porem ao executar ela vai na aba do banco de dados e sai da aba (Tela inicial)? Tem alguma sugestão? Gostaria que não saisse desse aba inicial.
quando eu tento alterar informação o cursor do mause pula para o final exeplo tento incluir uma palavra entre duas em uma textbox , mas na primeira letra digitada o cursor vai para o final
@@CanalSGP Exemplo: Ao escrever, NA TEXTBOX, um Nome de uma pessoa, EX: FULANA DE TAL SICRANA, mas a palavra DE TAL quero editar e colocar a palavra BELTRANA no lugar, dai ocorre o problema, ao apagar a palavra DE TAL e começar a escrever a letra B , de BELTRANA, o cursor dentro da TEXTBOX pula para o final Da ultima palavra, depois da letra A da palavra SICRANA, ex de como ocorre: FULANA B SICRANAELTRANA
No meu caso eu tenho uma ComboBox de Pesquisa, e preciso carregar os dados para outras ComboBox e outras TextBox, editando os dados e depois "salvando" as alterações com um outro botão que criei.
Ola tentei fazer o codigo mais ele não reconhece a plan, ela esta renomeada como CADASTRAR, o campo é uma list box, quando seleciono ele não preenche e apresenta erro voltando a 2 linha com o nome da planilha, desde já muito obrigado Private Sub cbcodigo_Exit(ByVal Cancel As MSForms.ReturnBoolean) Cadastrar.Select Cadastrar.Range("c2").Select With Worksheets("Cadastrar").Range("c:c") Set C = .Find(cbcodigo.Value, LookIn:=xlValues, Lookat:=xlWhole) If Not C Is Nothing Then C.Activate ActiveCell.Offset(0, 1).Select txtnome.Value = ActiveCell.Value Else End If End With End Sub
@@CanalSGP Muito obrigado funcionou, agora ele esta com um bug que estou pesquisando pra resolver, criei uma aba onde coloquei os botões para navegação e quando clico para que ele busque, ele acha cetinho porém ele pula para a aba que esta a base de dados, essa aba vou deixar ocultada, para que nem todos acessem... mais obrigado estou vendo se acho algum video sobre o tema.
Monteu um pre e pos teste em vba no power point. Porem queria que na aba login que montei com textbox1 ( matrícula) no slide , ao digitar a matricula ele fosse busca em uma planinha no excel o nome dele e preenchendo a textbox2 ( nome ) automaticamente
Eu criei um cadastro de visitantes e queria saber se tem como quando eu começar a digitar o nome já ir fazendo a busca nos já cadastrados e assim já preencher os dados e salvar meu whatsapp 12982576792
pessoal a função with worksheets não esta funcionando o vba não roda por que? Private Sub TextBox_MATR_Exit(ByVal Cancel As MSForms.ReturnBoolean) Planilha6.Select Planilha6.Range("A2").Select With Worksheets("Planilha6").Range("A:A") (esta função não esta funcionando o vba crifa ela de amarela o que acontece?) Set C = .Find(TextBox_MATR.Value, LookIn:=X1Values, Lookat:=xlWhole) If Not C Is Nothing Then C.Activate ActiveCell.Offset(0, 1).Select TextBox_NOME.Value = ActiveCell.Value Else MsgBox "MATRICULA NÃO ENCONTRADA", vbInformation, "NOME" End If End With End Sub
@@CanalSGP Inclusão_Geral_Unidade.Select (agora o erro esta aqui ) Inclusão_Geral_Unidade.Range("A2").Select With Worksheets("Inclusão_Geral_Unidade").Range("A:A") Set B = .Find(TextBox_MATR.Value, LookIn:=x1Values, Lookat:=xlWhole) If Not B Is Nothing Then B.Activate ActiveCell.Offset(0, 1).Select TextBox_NOME.Value = ActiveCell.Value Else MsgBox "MATRICULA NÃO ENCONTRADA", vbInformation, "NOME" End If End With
Olá Luan! Tudo bem? Tenho assistido a vários de seus vídeos e já me ajudou bastante, muito obrigado! Não tenho muito conhecimento em VBA mas estou desenvolvendo uma planilha de controle de clientes para o consultório do meu pai (psicologia). Tudo que ele precisa já está funcionando perfeitamente, menos o campo de Anotações. Eu tenho uma Aba de controle (onde mostra o resumo de cada cliente pesquisado), a aba Base de Dados, etc. Criei um Textbox na guia Controle pra quando puxar a ficha do cliente, abrir a célula de anotações onde ele fará todo o registro da consulta com esse cliente. Na minha Base de Dados, a coluna AC é onde eu defini para ser o campo de anotações. Eu precisaria puxar esse cambo da BD para o Controle quando eu selecionasse esse cliente, meu pai precisaria incluir as informações (e manter as antigas) e salvar automaticamente. Resumindo: Eu preciso puxar a célula AC da BD para uma textbox que está vinculada à pesquisa do cliente, fazer edições nessa textbox, e ela salvar automaticamente na mesma coluna AC. Acho que minha explicação ficou muito confusa kkkkk. Você conseguiria me ajudar? Obrigado!
Bom dia, acredito que já tenha entrado em contato pelo WhatsApp do site.
Graças a sua clara explicação, consegui implementar uma rotina de busca entre duas planilhas. Obrigado!
Boa tarde, que bom, sucesso em seus estudos.
Bom dia, acompanho sempre os seus posts e esse em especial foi extremanente útil. Era exatamente o que eu buscava e me ajudou imensamente. Obrigado por compartilhar o seu conhecimento!
Boa tarde, obrigado, sucesso em seus estudos.
Obrigado, essa dica resolveu o meu problema no projeto..
Que bom que ajudou.
Olá Luan, muito boa a aula. Teria como vc fazer uma pesquisa no banco access ao inves da planilha do excel? obrigado
Bom dia, obrigado, tem o procedimento do vídeo no link a seguir. th-cam.com/video/vvyw1laGqwE/w-d-xo.html
Perfeito. Está de parabéns
Muito obrigado
Luan, parabéns! Acompanho seus vídeos. Sou leiga e estou iniciando no VBA. Estou tentando deixar uma caixa de código vazia sempre que a caixa de descrição for alterada nlistsgem de produtos.
Bom dia, obrigado, acredito que um if pode atender a sua necessidade. Ex:
If Textbox.value = empty Then
Textbx2.value = empty
End if
gostei vou levar para meu trabalho
Olá, que bom.
Olá. preciso de ajuda com essa questão: tenho 3 combobox dependentes no form e gostaria que a última combo exibisse em uma caixa de texto uma informação que está na planilha, relacionada a essa combo, você pode me ajudar?
Show de bola, a explicação.. agora e se quiser utilizar com texto, tem como?
Bom dia, obrigado, é o mesmo procedimento, funciona para ambos.
@CANAL SGP Como faço para quando eu digitar o cógido na Userform seja selecionado toda a linha e com uma cor específica?
Boa tarde, talvez trabalhar com o procedimento da vídeo aula no link a seguir. th-cam.com/video/o2hIPp-Ylhs/w-d-xo.html
Boa noite! Tenho uma dúvida.
E possível colar informações diárias com procv na macro alto preenchimento somente valor. Exemplo tenho uma de preenchimento diário e quero jogar na outra aba para ser preenchimento automático de acordo com o dia
Bom dia, exatamente assim não fiz código ainda.
@@CanalSGP mas é possível existe alguma forma? Já perguntei pra várias pessoas e não sabem rsrs.
Boa tarde, como é algo bem específico é difícil dizer se é possível. Ou seja, vai precisar montar uma lógica de acordo com o que deseja, etapa por etapa.
Parabéns, funcionou perfeitamente.Gostaria de saber como faço para não aparecer a planilha, preciso deixar ela oculta .obrigado
Bom dia, obrigado, não testei, mas acredito que este procedimento não vai funcionar na planilha oculta. Mas o código pra ocultar é Application.Visible = False e para reexibir é Application.Visible = True
muito bom Parabéns
Obrigado.
BOA TARDE, GOSTARIA DE UMA VÍDEO AULA SOBRE CONTROLE DE INVENTÁRIO, SENDO QUE CADASTRANDO ITENS E DANDO BAIXA NOS MESMOS USANDO QR CODE! SE POSSÍVEL EU AGRADEÇO.
Boa tarde, vamos estudar possibilidade.
Tem alguma opção ou dica, para a célula não ser selecionada ao digitar na textbox. Porque estou usando em uma planilha com vários dados. quando utilizo o codigo a planilha vai la pra cima. Teria alguma dica? E parabéns pelas aulas!!! estou estudando a 1 semana e estou fazendo esse projeto!
Bom dia, pode colocar um comando para selecionar uma célula da parte superior após a pesquisa.
Por exemplo:
Planilha1.Range("A1").Select
E no início do código pode desativar a atualização de tela, não vai perceber a movimentação.
Application.Screenupdating = false
@@CanalSGP Nossa!!! Muito Obrigado! você é muito fera!
top demais
Obrigado
Após localizar o item procurado, é possível editá-lo pelo userform?
Boa noite, fizemos algo semelhante no formulário do vídeo a seguir. th-cam.com/video/xcw3pN1SbNk/w-d-xo.html
Ola! Consigo fazer isso no word? Preciso que ao selecionar uma opção da Combobox ele preencha com um texto. Obrigada
Boa tarde, não tentei fazer algo assim ainda no word.
Eu estou tendo dificuldades aqui, estou usando duas planilhas, uma é a que contém os dados e na outra é onde tem o userform. Mesmo digitando todo o código corretamente ele da erro na linha "With Worksheets("Planilha2").Range("A:A")", não sei o que pode estar acontecendo, se pode estar relacionado com o fato do userform estar em uma planilha e os dados em outra.
Bom dia, talvez seja o nome da aba, este Planilha2 precisa ser o nome renomeado da aba e não o nome interno do vba.
Boa noite! quando aplico esse código dá o seguinte erro: Subscrito fora do intervalo. Ao debugar o código a linha que fica selecionada como erro é essa - With Worksheets("plnProdutos").Range("B:B"). Como corrigir?
Bom dia, pela mensagem é erro referência, pode ser o nome da guia que esteja com erro.
Boa Tarde professor ! Mais uma aula bem didática e de conteúdo excelente. Me resta uma dúvida... Tem como eu fazer a busca em uma TextBox e retornar resultado em mais de uma TextBox diferente ? Exemplo : Eu preciso buscar a localização de um material, que tem coordenadas especificas (Estante/Prateleira/Gaveta/Caixa). Tem como
Boa tarde, para carregar mais objetos precisa mudar a posição da coluna.
If Not c Is Nothing Then
c.Activate
TextBox2.Value = c.Offset(0, 1).Value
TextBox3.Value = c.Offset(0, 2).Value
TextBox4.Value = c.Offset(0, 3).Value
Else
Percebemos de cara quem realmente é professor. E quem tenta ser.
Obrigado
Professor funcionou perfeitamente essa explicação mas quanto eu mudo uma aba da planilha ele dá erro no c.activate como faço para continuar funcionando mudando mesmo mudando a aba
Boa noite, este comando precisa ativar a célula, mas tem o procedimento do vídeo no link a seguir, que não precisa estar na aba ativa para pesquisar. th-cam.com/video/mvmEGmeDdgs/w-d-xo.html
Professor, boa noite.
E se a palavra que eu quero buscar estiver no meio de outras palavras? Ex: Bruna Laura Santos.
Minha procura deve localizar a "Laura".
Como eu faço?
Bom dia, segue exemplo de vídeo explicativo que acredito que atende sua necessidade: th-cam.com/video/XOYPF4kcgGM/w-d-xo.html
Bom dia, pode me ajudar a fazer um PROCV, dentro do formulário userform, onde ao digitar a ordem de produção na caixa_ordem pega o código e descrição na aba Base Ordens, e coloca o dado do código na caixa_código e descrição na caixa _descrição a Base Ordens vai de A:T10000000000 o código está na coluna 8 e descrição na coluna 9.
Boa tarde, segue link de vídeo sobre a função procv dentro do vba. th-cam.com/video/4jRtQSp39yg/w-d-xo.html
@@CanalSGP Boa noite! Esse comando está ligado ao botão de comando, como fazer para trazer de forma automática assim que digitar o código na textbox caixa_ordem?
Funcionou perfeitamente. Estou trabalhando com várias abas dentro da mesma planilha, quando digito em minha caixa do VBA para pesquisar ele abre a aba da base de dados. Preciso que ele permaneça na aba onde foi aberto pois a BASE DE DADOS ficará oculta. Qual código uso para permanecer na aba onde o VBA foi aberto?
Bom dia, com este procedimento infelizmente precisa estar na guia dos dados. Para fazer pesquisa sem ativar a guia, vai ser procedimento parecido ao da vídeo aula no link a seguir:
th-cam.com/video/9Ef-MqNfoZQ/w-d-xo.html
Boa noite. Seus vídeos estão me ajudando muito. Desde já, muito obrigado. Estou fazendo uma planilha e fiquei com a seguinte dúvida: há como fazer esse procedimento do vídeo sem usar um formulário (fazer com os Textboxes diretamente na planilha do Excel)?
Bom dia, sim é possível, é o mesmo procedimento, apenas colocando os objetos direto na planilha.
Obrigado, gostaria de saber se é possível ao inserir o código e apertar enter, pular a testbox do nome para uma terceira testbox do meu formulário? já que não vou precisar inserir o nome, desde já, obrigado.
Bom dia, pode definir o setfocus da textbox que deseja, por exemplo, Textbox3.setfocus, coloque no evento enter da textbox que deseja.
Olá tudo bem. no caso de varias textbox, a partir do código. tenho um formulário de cadastro e através do código, preciso carregar outro formulário. você pode me ajudar? Grato.
Boa tarde, não entendi exatamente sua dúvida, mas pode acrescentar mais textbox neste formulário.
@@CanalSGP Olá. Tenho um planilha com nome do cliente, endereço, cnpj, cpf .... quero transportar para um useform. Na sua aula, foi transportado um item. A formula que você usou para um item ok. Não estou conseguindo usar a formula para varios itens. Você pode me ajudar.
Grato pelo retorno.
Bom dia, acredito que neste caso vai precisar de um formulário mais avançado: th-cam.com/video/FDwGgMQo3JM/w-d-xo.html
olá, e se um dos códigos tiver "." tipo código 5.1
funciona??
Boa tarde, se a coluna estiver formatada como texto acredito que sim.
Cara, muito bom. A forma de vc passar o assunto é show. Queria saber se tem como e como faço pra abrir esse resultado em outro userform?
Olá, obrigado, basta chamar o formulário e inserir a seguinte linha de código no evento initialize: Por exemplo:
TextboxFuncionario.Value = Activecell.value
Esse vídeo não está funcionando, gostaria de uma explicação para fazer uma planilha de pedidos de compra, no qual seria inserido em um campo o número do pedido e os outros campos preencher com os dados da planilha, e outros campos para que o cliente preencha avisando a quantidade que chegou e o número da nota fiscal. Tentei fazer a listbox para várias colunas e não deu certo.
Bom dia.
Seguinte: criei um botão de filtro onde tenho que clicar dentro dele para digitar e filtrar as informações, mas quero atribuir uma tecla de acesso (esquecer o mouse) "exemplo o ENTER" para digitar, como se eu apertasse o F2 para renomear.
Como faço para atribuir alguma tecla de acesso (deixar de clicar com o mouse para escrever)?
Esses são os comandos do botão criado de filtro:
Private Sub MINUTA_Change()
If MINUTA.Text "" Then
Selection.AutoFilter Field:=4, Criteria1:="=" & MINUTA.Text
Else
Selection.AutoFilter Field:=4
End If
End Sub
Boa Noite! gostaria de saber como faço para digitar em uma célula clicar no botão para pesquisar. Se puder me ensinar agradeço Professor.
Boa tarde, vou estudar essa necessidade.
Boa tarde!
Qual a diferença e qual a melhor opção entre esse e o ProcV no VBA?
Abs
Boa tarde, ambos tem a mesma funcionalidade.
@@CanalSGP sim, mais qual do dois você recomendaria? Pós e Contra heheh
Melhor este código, pode procurar em espaço personalizado.
Excelente aula, mas eu tenho uma dúvida. E se fosse gerar um arquivo PDF a partir dessa pesquisa, como seria? Pode fazer uma vídeo aula a respeito ou já tem?
Boa tarde, vou estudar se é possível fazer algo.
Mto bom! Mas como faço para q a planilha não apareça? , quero apenas o formulário no meu desktop.
Boa tarde! Estou preciso carregar uma comboBox com HH:MM , mas não estou conseguindo,como posso fazer por favor?
show
Obrigado.
Muito obrigado, ajudou muito
Que bom que ajudou
Boa noite.
não consigo digitar a letra j em textbox!
não sei o que ocorre... tenho um excel 365 e meu teclado está funcionando corretamente. Digito tudo dentro de um textbox, menos o j! No seu funciona? sabe o que pode ser?
Bom dia, está funcionando normal, talvez seja algum código que inseriu no seu formalário.
Muito boa aula. parabéns. Mas queria perguntar: Se tenho um cadastro de nomes e quero pesquisar por nome e que me traga o telefone como resultado, porém tenho duas pessoas com mesmo nome e eu queira colocar uma outra condição tipo o CPF para diferenciar as duas pessoas e ter o resultado correto do telefone. Como ficaria? Desde já Obrigado.
Olá, obrigado, vamos estudar essa necessidade, se obtivermos sucesso, gravamos vídeo explicativo.
Obrigado.
professor o unico erro que esta dando é nesta linha, fiz diversas arquivos e planilha comecei do zero renomeei todos arquivos ate fiz igual sua planilha professor porem nada de funcionar, por favor me ajude onde estou errando? Set C = .Find(TextBox1.Value, LookIn:=x1Values, Lookat:=x1Whole) neta linha que sempre da erro
Boa tarde, talvez esteja confundindo o l com um.
.Find(TextBox1.Value, LookIn:=xlValues, Lookat:=xlWhole)
@@CanalSGP professor muito obrigado erra um erro deste mesmo
Professor, consigo criar um UserForme, onde eu consiga (modo pesquisa" e com opção de mandar pra "outro local" e gerar uma impressão?
COMO ASSIM FRANCISCO?! KKKK
No meu caso, tenho uma planilha "Controle de Frota", tenho formulário de cadastro (aquele criado com vc) onde eu consigo Cadastrar, ok.
Mas se eu quiser imprimir essas informações em forma de FICHA o que vc me indica?
Bom dia, acredito que o mais fácil seja enviar os dados para a planilha e gerar um documento pdf para impressão.
PRECISO DE UMA FORÇA AQUI,montei um layout com 20 textbox com várias informações como endereços, códigos de clientes e etc...E quero na verdade preciso que ao digitar em qualquer das texbox apareça a informação das outras 19, tô apanhando muito com isso, podem me ajudar?
Boa tarde, não entendi exatamente sua dúvida, se for para exibir os demais objetos, poderia ser os códigos no evento change da textbox, alterando o visible dos demais para true.
Boa tarde! No meu caso funcionou quase que perfeitamente.
Os códigos que uso para busca tem 3, 4 e 5 dígitos.
Quando coloco o 1º digito já aparece que o Funcionário não foi encontrado, ai clico em ok e vou fazendo isso até colocar os 3 dígitos.
Se ele encontrar o alguma coisa com apenas 3 dígitos não faz a busca no 4º e 5º dígitos.
Tem alguma solução para este problema?
Bom dia, provavelmente colocou os códigos no evento Change da Textbox, mude os códigos para evento exit, que acredito que vai resolver seu problema.
@@CanalSGP Realmente professor. Esqueci de mencionar este detalhe. Eu gostaria que funcionasse no Change que fica muito mais dinâmico.
Neste evento não tem o que fazer, vai executar a cada carácter, pelo menos não sei como resolver.
@@CanalSGP Boa tarde Professor!
Finalmente consegui resolver.
Como a minha busca é feita a partir do 3º carácter, coloquei uma condição if para não fazer nada se < 100 como segue:
Private Sub tb_Codigo_Produto_Change()
If tb_Codigo_Produto = "" Or tb_Codigo_Produto < 100 Then 'Se o tb_Codigo_Produto for igual a nada ou menor que 100, não faça nada
tb_Produto_Referencia = ""
Else
Dim intervalo As Range 'Este intervalo se refere a TABPRODS_D
Dim texto As String
Dim codigo As Integer
Dim mensagem
codigo = tb_Codigo_Produto
Set intervalo = Planilha6.Range("D5:G46")
On Error GoTo Erro
pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
tb_Produto_Referencia = pesquisa 'Pesquisa a Descrição do Produto de acordo com o código digitado na tb_Codigo_Produto3
tb_Produto_Referencia.Enabled = False 'Bloqueia a célula para não poder ser alterada pelo usuário
Exit Sub
Erro:
texto = "Código não localizado!"
mensagem = MsgBox(texto, vbOKOnly + vbInformation, "Atenção!!!")
tb_Codigo_Produto = ""
tb_Produto_Referencia = ""
tb_Codigo_Produto.SetFocus
Exit Sub
End If
End Sub
Obrigado pela aula, me ajudou muito mesmo.
Muito bom.
Bom dia
e se eu tiver mesmo codigo para nomes diferentes ? como faço para baixar ? ai melhor em uma listbox no caso ?
Bom dia, não entendi sua dúvida.
bom dia meu amigo
quero externar os meus sinceros agradecimentos e parabeliza-lo pelo excelente trabalho desenvolvido por você. Mais eu me encontro com uma duvida, como faço para que esse codigo faça a pesquisa de dados em coluna anteriores a que vc tem na sua planilha.
a coluna da minha planilha que eu faço a pesquisa é a G
eu gostaria de pesquisar tambem nas colunas a,b,c,d,e,f.
como posso fazer isso?
Olá, agradecemos, para expandir a pesquisa, altere a linha de código a seguir:
With Worksheets("Plan1").Range("A:F")
Boa tarde, tentei aqui e está dando o erro em tempo de execução '9'
Subscrito fora do intervalo
o que pode ser? estou digitando o codigo para encontrar produtos que estao cadastrados em uma planilha igual você fez, se puder me ajudar agradeço
Bom dia, tem alguma referência escrita errada, como nome da Guia entre as aspas, nome da textbox ou se estiver utilizando versão Excel 2016 pode ser planilha ao invés de plan:
Plan1.Select
Plan1.Range("B4").Select
With Worksheets("FUNCIONARIOS").Range("B:B")
Set c = .Find(TextBox1.Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not c Is Nothing Then
c.Activate
TextBox2.Value = c.Offset(0, 1).Value
Else
MsgBox "Funcionário não encontrado!", vbInformation, "PESQUISA"
TextBox2 = ""
End If
End With
Ao pesquisar o código o sistema emite errro, "Compile Error: Variable not definied", o que fazer perante esse erro?
Boa noite, experimente colocar antes do With a variável C:
Dim C
With
@@CanalSGP Dim C as Integer?
Pode ser somente Dim C
Boa noite !
Código funciona perfeitamente, porem ao executar ela vai na aba do banco de dados e sai da aba (Tela inicial)?
Tem alguma sugestão?
Gostaria que não saisse desse aba inicial.
Boa noite, pode selecionar a planilha desejada, por exemplo, Planilha1.Select no final do código.
E se eu quiser fazer isso para uma planilha que tem um número muito grande de colunas??? Como eu faço? Ai só tem 2
Boa tarde, segue exemplo de formulário de pesquisa com mais campos: th-cam.com/video/4sgezx0aGsc/w-d-xo.html
quando eu tento alterar informação o cursor do mause pula para o final exeplo tento incluir uma palavra entre duas em uma textbox , mas na primeira letra digitada o cursor vai para o final
Bom dia, verifique se os códigos estão no evento change e mude para o exit.
@@CanalSGP Exemplo: Ao escrever, NA TEXTBOX, um Nome de uma pessoa, EX: FULANA DE TAL SICRANA, mas a palavra DE TAL quero editar e colocar a palavra BELTRANA no lugar, dai ocorre o problema, ao apagar a palavra DE TAL e começar a escrever a letra B , de BELTRANA, o cursor dentro da TEXTBOX pula para o final Da ultima palavra, depois da letra A da palavra SICRANA, ex de como ocorre: FULANA B SICRANAELTRANA
Boa noite, neste caso acredito que seja melhor o procedimento do formulário no link a seguir: th-cam.com/video/4sgezx0aGsc/w-d-xo.html
No meu caso eu tenho uma ComboBox de Pesquisa, e preciso carregar os dados para outras ComboBox e outras TextBox, editando os dados e depois "salvando" as alterações com um outro botão que criei.
Bom dia, acredito que neste caso seja melhor um formulário mais avançado, segue link de outro exemplo:th-cam.com/video/FDwGgMQo3JM/w-d-xo.html
Olá o meu também da erro na seleção da planilha
Cadastrar.Range("A2").Select
fiz com os dados de uma combobox oque pode ser ?
Olá, Você está usando o nome renomeado da guia da planilha na linha de código a seguir?
Cadastrar.Range("A2").Select
Se for isso está errado, precisa usar o nome interno do VBA da planilha, por exemplo, Plan1 ou Planilha1, dependendo da versão do Excel.
O nome da planilha que está fora do parenteses, no ambiente VBA.
@@CanalSGP eu coloquei a plan1 e mesmo assim ele continua dando erro
@@CanalSGP meu execel e o 2016
Ola tentei fazer o codigo mais ele não reconhece a plan, ela esta renomeada como CADASTRAR, o campo é uma list box, quando seleciono ele não preenche e apresenta erro voltando a 2 linha com o nome da planilha, desde já muito obrigado
Private Sub cbcodigo_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cadastrar.Select
Cadastrar.Range("c2").Select
With Worksheets("Cadastrar").Range("c:c")
Set C = .Find(cbcodigo.Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not C Is Nothing Then
C.Activate
ActiveCell.Offset(0, 1).Select
txtnome.Value = ActiveCell.Value
Else
End If
End With
End Sub
Olá, na linha dois precisa colocar o nome interno da planilha no VBA.
Ex: Cadastrar.Range("c2").Select - Errado
Plan1.Range("C2").Select - Certo
@@CanalSGP Muito obrigado funcionou, agora ele esta com um bug que estou pesquisando pra resolver, criei uma aba onde coloquei os botões para navegação e quando clico para que ele busque, ele acha cetinho porém ele pula para a aba que esta a base de dados, essa aba vou deixar ocultada, para que nem todos acessem... mais obrigado estou vendo se acho algum video sobre o tema.
Eu gostaria de fazer isso no power point
Olá, não temos conteúdo sobre essa necessidade, na realidade nem sei se é possível.
Monteu um pre e pos teste em vba no power point. Porem queria que na aba login que montei com textbox1 ( matrícula) no slide , ao digitar a matricula ele fosse busca em uma planinha no excel o nome dele e preenchendo a textbox2 ( nome ) automaticamente
no meu da erro no c.activate
fica tarjado de amarelo
Boa tarde, deixe seu e-mail que envio a planilha para que possa comparar.
E se fosse mais de um? Três, por exemplo?
Olá, não entendi sua dúvida. Três o que? Nome? Textbox?
@@CanalSGP isso
eu precisava de um código que procurasse em uma tabela de várias colunas e linhas , achar um valor .
Boa noite, veja o procedimento da vídeo aula a seguir, para pesquisar em mais colunas, basta alterar.
th-cam.com/video/n0jOxl9glGw/w-d-xo.html
Eu criei um cadastro de visitantes e queria saber se tem como quando eu começar a digitar o nome já ir fazendo a busca nos já cadastrados e assim já preencher os dados e salvar meu whatsapp 12982576792
Bom dia, veja a vídeo aula a seguir, talvez consiga adaptar a sua necessidade.
pessoal a função with worksheets não esta funcionando o vba não roda por que?
Private Sub TextBox_MATR_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Planilha6.Select
Planilha6.Range("A2").Select
With Worksheets("Planilha6").Range("A:A") (esta função não esta funcionando o vba crifa ela de amarela o que acontece?)
Set C = .Find(TextBox_MATR.Value, LookIn:=X1Values, Lookat:=xlWhole)
If Not C Is Nothing Then
C.Activate
ActiveCell.Offset(0, 1).Select
TextBox_NOME.Value = ActiveCell.Value
Else
MsgBox "MATRICULA NÃO ENCONTRADA", vbInformation, "NOME"
End If
End With
End Sub
Boa tarde, talvez o nome renomeado da aba não seja Planilha6
@@CanalSGP mudei para o nome da planilha mesmo assim erro continua.
@@CanalSGP Inclusão_Geral_Unidade.Select (agora o erro esta aqui )
Inclusão_Geral_Unidade.Range("A2").Select
With Worksheets("Inclusão_Geral_Unidade").Range("A:A")
Set B = .Find(TextBox_MATR.Value, LookIn:=x1Values, Lookat:=xlWhole)
If Not B Is Nothing Then
B.Activate
ActiveCell.Offset(0, 1).Select
TextBox_NOME.Value = ActiveCell.Value
Else
MsgBox "MATRICULA NÃO ENCONTRADA", vbInformation, "NOME"
End If
End With