Pesquisar Dado ao Digitar em Textbox Excel VBA e Preencher Outra Textbox Automaticamente

แชร์
ฝัง
  • เผยแพร่เมื่อ 30 ต.ค. 2024

ความคิดเห็น • 154

  • @vandineisantos1968
    @vandineisantos1968 4 ปีที่แล้ว +1

    Graças a sua clara explicação, consegui implementar uma rotina de busca entre duas planilhas. Obrigado!

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Boa tarde, que bom, sucesso em seus estudos.

  • @jfd32016
    @jfd32016 2 ปีที่แล้ว +1

    Obrigado, essa dica resolveu o meu problema no projeto..

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว

      Que bom que ajudou.

  • @atendimentodjricardonasci752
    @atendimentodjricardonasci752 4 ปีที่แล้ว +2

    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!

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Boa tarde, obrigado, sucesso em seus estudos.

  • @andreknipp
    @andreknipp ปีที่แล้ว

    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!

    • @CanalSGP
      @CanalSGP  ปีที่แล้ว +1

      Bom dia, acredito que já tenha entrado em contato pelo WhatsApp do site.

  • @sergiopereira9778
    @sergiopereira9778 ปีที่แล้ว

    Olá Luan, muito boa a aula. Teria como vc fazer uma pesquisa no banco access ao inves da planilha do excel? obrigado

    • @CanalSGP
      @CanalSGP  ปีที่แล้ว

      Bom dia, obrigado, tem o procedimento do vídeo no link a seguir. th-cam.com/video/vvyw1laGqwE/w-d-xo.html

  • @SueliAngarita
    @SueliAngarita 11 หลายเดือนก่อน

    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.

    • @CanalSGP
      @CanalSGP  11 หลายเดือนก่อน

      Bom dia, obrigado, acredito que um if pode atender a sua necessidade. Ex:
      If Textbox.value = empty Then
      Textbx2.value = empty
      End if

  • @andressaneto6565
    @andressaneto6565 2 ปีที่แล้ว

    Perfeito. Está de parabéns

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว

      Muito obrigado

  • @hesslerrossler8750
    @hesslerrossler8750 4 ปีที่แล้ว +1

    Parabéns, funcionou perfeitamente.Gostaria de saber como faço para não aparecer a planilha, preciso deixar ela oculta .obrigado

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      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

  • @vinirocha659
    @vinirocha659 4 ปีที่แล้ว +1

    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!

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      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

    • @vinirocha659
      @vinirocha659 4 ปีที่แล้ว

      @@CanalSGP Nossa!!! Muito Obrigado! você é muito fera!

  • @charlescardoso7563
    @charlescardoso7563 3 ปีที่แล้ว

    Show de bola, a explicação.. agora e se quiser utilizar com texto, tem como?

    • @CanalSGP
      @CanalSGP  3 ปีที่แล้ว

      Bom dia, obrigado, é o mesmo procedimento, funciona para ambos.

  • @lab_hemostasia
    @lab_hemostasia 3 ปีที่แล้ว

    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

    • @CanalSGP
      @CanalSGP  3 ปีที่แล้ว +4

      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

  • @andregarciajr6008
    @andregarciajr6008 5 ปีที่แล้ว

    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?

  • @andersonmartins2166
    @andersonmartins2166 2 ปีที่แล้ว

    Percebemos de cara quem realmente é professor. E quem tenta ser.

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว

      Obrigado

  • @paulolira7196
    @paulolira7196 5 ปีที่แล้ว

    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

  • @janduijunior4497
    @janduijunior4497 4 ปีที่แล้ว

    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)?

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Bom dia, sim é possível, é o mesmo procedimento, apenas colocando os objetos direto na planilha.

  • @moreiradasilva22
    @moreiradasilva22 4 ปีที่แล้ว

    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?

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      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

  • @RodrigoSouza-hd5cs
    @RodrigoSouza-hd5cs 2 ปีที่แล้ว

    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

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว

      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

  • @geovanebraga8394
    @geovanebraga8394 5 ปีที่แล้ว +1

    gostei vou levar para meu trabalho

    • @CanalSGP
      @CanalSGP  5 ปีที่แล้ว

      Olá, que bom.

  • @eziorealestate1585
    @eziorealestate1585 2 ปีที่แล้ว +1

    top demais

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว +1

      Obrigado

  • @jorgelopes4559
    @jorgelopes4559 3 ปีที่แล้ว +1

    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?

    • @CanalSGP
      @CanalSGP  3 ปีที่แล้ว

      Bom dia, segue exemplo de vídeo explicativo que acredito que atende sua necessidade: th-cam.com/video/XOYPF4kcgGM/w-d-xo.html

  • @megatecksolucoestermicas6284
    @megatecksolucoestermicas6284 2 ปีที่แล้ว

    @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?

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว

      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

  • @iza1292
    @iza1292 ปีที่แล้ว

    Ola! Consigo fazer isso no word? Preciso que ao selecionar uma opção da Combobox ele preencha com um texto. Obrigada

    • @CanalSGP
      @CanalSGP  ปีที่แล้ว +1

      Boa tarde, não tentei fazer algo assim ainda no word.

  • @mariodaniellustosa9553
    @mariodaniellustosa9553 7 หลายเดือนก่อน

    Após localizar o item procurado, é possível editá-lo pelo userform?

    • @CanalSGP
      @CanalSGP  7 หลายเดือนก่อน

      Boa noite, fizemos algo semelhante no formulário do vídeo a seguir. th-cam.com/video/xcw3pN1SbNk/w-d-xo.html

  • @arturaryanna1
    @arturaryanna1 5 ปีที่แล้ว +1

    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.

    • @CanalSGP
      @CanalSGP  5 ปีที่แล้ว

      Boa tarde, vamos estudar possibilidade.

  • @caiorodrigues4488
    @caiorodrigues4488 ปีที่แล้ว

    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

    • @CanalSGP
      @CanalSGP  ปีที่แล้ว

      Bom dia, exatamente assim não fiz código ainda.

    • @caiorodrigues4488
      @caiorodrigues4488 ปีที่แล้ว

      @@CanalSGP mas é possível existe alguma forma? Já perguntei pra várias pessoas e não sabem rsrs.

    • @CanalSGP
      @CanalSGP  ปีที่แล้ว

      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.

  • @edelsonvieira5483
    @edelsonvieira5483 8 หลายเดือนก่อน

    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?

    • @CanalSGP
      @CanalSGP  8 หลายเดือนก่อน

      Bom dia, pela mensagem é erro referência, pode ser o nome da guia que esteja com erro.

  • @marcioreis6079
    @marcioreis6079 6 ปีที่แล้ว

    muito bom Parabéns

    • @CanalSGP
      @CanalSGP  6 ปีที่แล้ว

      Obrigado.

  • @lucyfandrade490
    @lucyfandrade490 5 ปีที่แล้ว

    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.

  • @rafaelpedro4326
    @rafaelpedro4326 6 ปีที่แล้ว

    Mto bom! Mas como faço para q a planilha não apareça? , quero apenas o formulário no meu desktop.

  • @wagnerdinizventura9568
    @wagnerdinizventura9568 3 ปีที่แล้ว

    Muito obrigado, ajudou muito

    • @CanalSGP
      @CanalSGP  3 ปีที่แล้ว

      Que bom que ajudou

  • @benixkan
    @benixkan 11 หลายเดือนก่อน

    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?

    • @CanalSGP
      @CanalSGP  11 หลายเดือนก่อน +1

      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.

  • @guilhermeferro6018
    @guilhermeferro6018 4 ปีที่แล้ว

    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.

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Bom dia, pode definir o setfocus da textbox que deseja, por exemplo, Textbox3.setfocus, coloque no evento enter da textbox que deseja.

  • @robsonqueiroz3760
    @robsonqueiroz3760 6 ปีที่แล้ว

    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?

    • @CanalSGP
      @CanalSGP  6 ปีที่แล้ว

      Olá, obrigado, basta chamar o formulário e inserir a seguinte linha de código no evento initialize: Por exemplo:
      TextboxFuncionario.Value = Activecell.value

  • @edson11nunes
    @edson11nunes 7 หลายเดือนก่อน

    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
      @CanalSGP  7 หลายเดือนก่อน

      Boa tarde, segue link de vídeo sobre a função procv dentro do vba. th-cam.com/video/4jRtQSp39yg/w-d-xo.html

    • @edson11nunes
      @edson11nunes 7 หลายเดือนก่อน

      @@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?

  • @douglascgoulart79
    @douglascgoulart79 4 ปีที่แล้ว

    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?

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Boa tarde, vou estudar se é possível fazer algo.

  • @adrianomagalhaes9315
    @adrianomagalhaes9315 5 ปีที่แล้ว

    Boa tarde!
    Qual a diferença e qual a melhor opção entre esse e o ProcV no VBA?
    Abs

    • @CanalSGP
      @CanalSGP  5 ปีที่แล้ว

      Boa tarde, ambos tem a mesma funcionalidade.

    • @adrianomagalhaes9315
      @adrianomagalhaes9315 5 ปีที่แล้ว

      @@CanalSGP sim, mais qual do dois você recomendaria? Pós e Contra heheh

    • @CanalSGP
      @CanalSGP  5 ปีที่แล้ว +1

      Melhor este código, pode procurar em espaço personalizado.

  • @gabrielmaciel3108
    @gabrielmaciel3108 ปีที่แล้ว

    olá, e se um dos códigos tiver "." tipo código 5.1
    funciona??

    • @CanalSGP
      @CanalSGP  ปีที่แล้ว

      Boa tarde, se a coluna estiver formatada como texto acredito que sim.

  • @luispolidoro8740
    @luispolidoro8740 4 ปีที่แล้ว

    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
      @CanalSGP  4 ปีที่แล้ว

      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.

    • @luispolidoro8740
      @luispolidoro8740 4 ปีที่แล้ว

      @@CanalSGP Realmente professor. Esqueci de mencionar este detalhe. Eu gostaria que funcionasse no Change que fica muito mais dinâmico.

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Neste evento não tem o que fazer, vai executar a cada carácter, pelo menos não sei como resolver.

    • @luispolidoro8740
      @luispolidoro8740 4 ปีที่แล้ว

      @@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.

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Muito bom.

  • @bispooooo
    @bispooooo 6 ปีที่แล้ว

    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.

    • @CanalSGP
      @CanalSGP  6 ปีที่แล้ว

      Olá, obrigado, vamos estudar essa necessidade, se obtivermos sucesso, gravamos vídeo explicativo.

    • @bispooooo
      @bispooooo 6 ปีที่แล้ว

      Obrigado.

  • @peculiopinheiros6747
    @peculiopinheiros6747 2 ปีที่แล้ว

    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

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว

      Boa tarde, talvez esteja confundindo o l com um.
      .Find(TextBox1.Value, LookIn:=xlValues, Lookat:=xlWhole)

    • @peculiopinheiros6747
      @peculiopinheiros6747 2 ปีที่แล้ว +1

      @@CanalSGP professor muito obrigado erra um erro deste mesmo

  • @altairfreitas2816
    @altairfreitas2816 4 ปีที่แล้ว

    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.

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Boa tarde, vou estudar essa necessidade.

  • @franciscovicente2201
    @franciscovicente2201 หลายเดือนก่อน

    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?

    • @CanalSGP
      @CanalSGP  หลายเดือนก่อน

      Bom dia, acredito que o mais fácil seja enviar os dados para a planilha e gerar um documento pdf para impressão.

  • @marcioaffonso0
    @marcioaffonso0 2 ปีที่แล้ว

    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?

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว

      Bom dia, está funcionando normal, talvez seja algum código que inseriu no seu formalário.

  • @emersoAOliveira
    @emersoAOliveira 5 ปีที่แล้ว

    Boa tarde! Estou preciso carregar uma comboBox com HH:MM , mas não estou conseguindo,como posso fazer por favor?

  • @sergiotrindadedelaurentis7596
    @sergiotrindadedelaurentis7596 3 ปีที่แล้ว

    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
      @CanalSGP  3 ปีที่แล้ว

      Boa tarde, não entendi exatamente sua dúvida, mas pode acrescentar mais textbox neste formulário.

    • @sergiotrindadedelaurentis7596
      @sergiotrindadedelaurentis7596 3 ปีที่แล้ว

      @@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.

    • @CanalSGP
      @CanalSGP  3 ปีที่แล้ว

      Bom dia, acredito que neste caso vai precisar de um formulário mais avançado: th-cam.com/video/FDwGgMQo3JM/w-d-xo.html

  • @haroldopassos9859
    @haroldopassos9859 4 ปีที่แล้ว

    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.

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      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

  • @lucasmarcatto9688
    @lucasmarcatto9688 5 ปีที่แล้ว

    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

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      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

  • @moisesbraz2659
    @moisesbraz2659 4 ปีที่แล้ว

    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.

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Boa noite, pode selecionar a planilha desejada, por exemplo, Planilha1.Select no final do código.

  • @wallisonmenezes5639
    @wallisonmenezes5639 6 ปีที่แล้ว

    Bom dia
    e se eu tiver mesmo codigo para nomes diferentes ? como faço para baixar ? ai melhor em uma listbox no caso ?

    • @CanalSGP
      @CanalSGP  6 ปีที่แล้ว

      Bom dia, não entendi sua dúvida.

  • @MatheusFerreira-qq5pw
    @MatheusFerreira-qq5pw 4 ปีที่แล้ว +1

    show

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Obrigado.

  • @eduardofreitas3091
    @eduardofreitas3091 6 ปีที่แล้ว

    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?

    • @CanalSGP
      @CanalSGP  6 ปีที่แล้ว

      Olá, agradecemos, para expandir a pesquisa, altere a linha de código a seguir:
      With Worksheets("Plan1").Range("A:F")

  • @matheuszibordi3592
    @matheuszibordi3592 4 ปีที่แล้ว

    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

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Boa tarde, segue exemplo de formulário de pesquisa com mais campos: th-cam.com/video/4sgezx0aGsc/w-d-xo.html

  • @eduardocarvalho3933
    @eduardocarvalho3933 3 ปีที่แล้ว

    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
      @CanalSGP  3 ปีที่แล้ว

      Bom dia, verifique se os códigos estão no evento change e mude para o exit.

    • @eduardocarvalho3933
      @eduardocarvalho3933 3 ปีที่แล้ว

      @@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

    • @CanalSGP
      @CanalSGP  3 ปีที่แล้ว

      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

  • @SuperDavidFz
    @SuperDavidFz 4 ปีที่แล้ว

    Ao pesquisar o código o sistema emite errro, "Compile Error: Variable not definied", o que fazer perante esse erro?

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว +1

      Boa noite, experimente colocar antes do With a variável C:
      Dim C
      With

    • @SuperDavidFz
      @SuperDavidFz 4 ปีที่แล้ว

      @@CanalSGP Dim C as Integer?

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Pode ser somente Dim C

  • @persiocosta1343
    @persiocosta1343 5 ปีที่แล้ว

    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
      @CanalSGP  5 ปีที่แล้ว

      Olá, na linha dois precisa colocar o nome interno da planilha no VBA.

    • @CanalSGP
      @CanalSGP  5 ปีที่แล้ว

      Ex: Cadastrar.Range("c2").Select - Errado
      Plan1.Range("C2").Select - Certo

    • @persiocosta1343
      @persiocosta1343 5 ปีที่แล้ว +1

      @@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.

  • @joseaires7783
    @joseaires7783 5 ปีที่แล้ว

    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 ?

    • @CanalSGP
      @CanalSGP  5 ปีที่แล้ว

      Olá, Você está usando o nome renomeado da guia da planilha na linha de código a seguir?
      Cadastrar.Range("A2").Select

    • @CanalSGP
      @CanalSGP  5 ปีที่แล้ว

      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.

    • @CanalSGP
      @CanalSGP  5 ปีที่แล้ว

      O nome da planilha que está fora do parenteses, no ambiente VBA.

    • @joseaires7783
      @joseaires7783 5 ปีที่แล้ว

      @@CanalSGP eu coloquei a plan1 e mesmo assim ele continua dando erro

    • @joseaires7783
      @joseaires7783 5 ปีที่แล้ว

      @@CanalSGP meu execel e o 2016

  • @douglascgoulart79
    @douglascgoulart79 5 ปีที่แล้ว

    E se fosse mais de um? Três, por exemplo?

    • @CanalSGP
      @CanalSGP  5 ปีที่แล้ว

      Olá, não entendi sua dúvida. Três o que? Nome? Textbox?

    • @douglascgoulart79
      @douglascgoulart79 5 ปีที่แล้ว

      @@CanalSGP isso

  • @elisangelaoliveira9246
    @elisangelaoliveira9246 5 ปีที่แล้ว

    eu precisava de um código que procurasse em uma tabela de várias colunas e linhas , achar um valor .

    • @CanalSGP
      @CanalSGP  5 ปีที่แล้ว

      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

  • @leandrofontynelle3318
    @leandrofontynelle3318 4 ปีที่แล้ว

    no meu da erro no c.activate
    fica tarjado de amarelo

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Boa tarde, deixe seu e-mail que envio a planilha para que possa comparar.

  • @thomaswillams3956
    @thomaswillams3956 5 ปีที่แล้ว

    Eu gostaria de fazer isso no power point

    • @CanalSGP
      @CanalSGP  5 ปีที่แล้ว

      Olá, não temos conteúdo sobre essa necessidade, na realidade nem sei se é possível.

    • @thomaswillams3956
      @thomaswillams3956 5 ปีที่แล้ว

      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

  • @washeve
    @washeve 4 ปีที่แล้ว

    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

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Bom dia, veja a vídeo aula a seguir, talvez consiga adaptar a sua necessidade.

  • @peculiopinheiros6747
    @peculiopinheiros6747 2 ปีที่แล้ว +1

    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
      @CanalSGP  2 ปีที่แล้ว

      Boa tarde, talvez o nome renomeado da aba não seja Planilha6

    • @peculiopinheiros6747
      @peculiopinheiros6747 2 ปีที่แล้ว

      @@CanalSGP mudei para o nome da planilha mesmo assim erro continua.

    • @peculiopinheiros6747
      @peculiopinheiros6747 2 ปีที่แล้ว

      @@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