PESQUISA em TEXTBOX EXCEL VBA - PESQUISA AUTOMÁTICA

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

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

  • @papelariatotustuus8679
    @papelariatotustuus8679 3 หลายเดือนก่อน +1

    Deus abneçoe resolveu um problema de maneira muito facil. Gratidão

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

      Que bom que ajudou.

  • @marcodoval6332
    @marcodoval6332 2 ปีที่แล้ว +3

    Obrigado por essa aula me ajudou muito!!!!

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

      Que bom que ajudou.

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

    O SEU VIDEO É INCRÍVEL! ESTOU FAZENDO UM PROJETO YELLOW BELT E SOU LEIGO EM VBA.
    MUITO OBRIGADO! GANHOU UM FÃ!

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

      Que bom que ajudou

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

    Excelente aula, deu certo aqui!!! Obrigadooo...

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

      Que bom que deu certo.

  • @josesilvand9244
    @josesilvand9244 6 หลายเดือนก่อน +1

    Sempre uma boa explicação.

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

      Obrigado.

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

    Parabéns pela aula. gostei muito de aprender esta forma de pesquisa.

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

      Obrigado, sucesso em seus estudos.

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

    Parabens !!! Professor, Excelente conteúdo me ajudou muito

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

      Que bom que ajudou.

  • @AdemarCosta-mg7cp
    @AdemarCosta-mg7cp ปีที่แล้ว +1

    Parabens!!! Estava tendo resolver esse problema já a alguns dias. Muito obrigado pelo vídeo e pela explicação detalhada.

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

    Muitíssimo obrigado por essa aula maravilhosa! Deus abençoe!!

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

      Obrigado

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

    Bom dia
    Montei uma estrutura com 20 colunas e 26 linhas com: ID, NÚMERO DE TELEFONE, OPERADORA, ENDEREÇO,ETC.
    Coloquei tudo em um único layout com 20 textboxs visualmente bem organizados, quando eu digito na texboxID um número, ele automaticamente replica os demais dados e informações nas outras texbox, tudo certo até ai, o problema é que eu não estou conseguindo por exemplo ao digitar somente o endereço, ou o código do cliente e ou o número de telefone aparecer as informações nas demais texbox, por exemplo se eu digitar na texboxTELEFONE o número de telefone por exemplo, não aparece o ID,ENDEREÇO, ou seja consegui como evento “EXIT”, montar na texboxID, tudo que eu queria ficou filé, mas para as demais texbox não consigo programar para ter a mesma ação.

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

      Boa tarde, talvez seja questão de referência as colunas. Mas depende do código que está utilizando, se for com activecell ou cell.

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

      eu repliquei os comandos desta sua aula direcionando os comando a texboxID que é a que funciona bem, 4 texbox funcionaram muito bem mas demais sequer acionam ou dão erro, @@CanalSGP

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

      Bom dia, qual mensagem de erro retorna.

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

      eu não programo mensagens de erro, mas no sistema não retorna nenhuma, mas fiz algumas modificações, por exemplo, double para numeros e string para caracteres, com isso 4 funcionaram, mas o cnpj não, e os numeros dos firewalls e switchs e access poit também não, pois mesclam números e letras,@@CanalSGP

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

      Bom dia, ideal seria fazer um exemplo igual ao do vídeo, depois que funcionar vai adaptando uma parte cada vez e testando.

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

    Excelente mais uma vez!!

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

    Show, dúvida, tem como chamar um WebBrowser neste mesmo código ?

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

      Bom dia, não tentei fazer isso ainda.

  • @marciosantos-st8jx
    @marciosantos-st8jx 3 ปีที่แล้ว +1

    Woww que conteúdo incrível, Seu Canal esta me ajudando muito, Parabéns.

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

      Obrigado, sucesso em seus estudos.

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

    Tem como fazer esse mesmo procedimento, mas usando dois parâmetros para a pesquisa?

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

      Boa tarde, neste procedimento acredito que não. Para considerar mais de um critério talvez com loop.

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

    Muito bom. Queria uma possibilidade de abrir uma lista com itens do banco de dados e eu poder selecionar o que eu quero

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

      Boa tarde, neste caso vai precisar carregar uma lista em uma combobox. Segue link de vídeo sobre combobox: th-cam.com/video/F5SUlAPotpY/w-d-xo.html

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

    Olá, poderia me ajudar com o tema abaixo:
    Tenho uma tabela com duas colunas, coluna A com a referencia do fornecedor ex: AAA123 e na coluna B a descrição com a referencia ex: MATERIAL METALICO AAA123.
    Como faço para fazer essa pesquisa dos códigos da coluna A na coluna B e marcar as linhas da coluna B com os códigos que forem encontrados, lembrando que são mais de 2mil linhas e precisa rodar de forma automatica.

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

      Bom dia, neste caso acredito que seja mais viável trabalhar com filtro. Segue link de vídeo sobre filtro. th-cam.com/video/eBSlI6dPb6k/w-d-xo.html

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

    Bom dia! Fiz aqui e deu certo, porém gostaria de fazer o mesmo passo a passo em uma planilha que possui valores repetidos. É possivel fazer puxando o último dado?

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

      Bom dia, para retornar o último registro vai ser um pouco diferente, segue link de vídeo sobre esse tema. th-cam.com/video/GXGtCHCAMlA/w-d-xo.html

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

    Olá.
    Testei!! Sucesso na aplicação!!
    Poderia me ajudar com uma dúvida? Tenho um textbox que com base no código pesquisado retorna o valor unitário do mesmo e tenho outro que será a conta entre a quantidade que será informada X unitário, ou seja, custo total. Como e onde escrever essa programação?

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

      Boa tarde, de multiplicação não tenho vídeo ainda, mas vai ser procedimento semelhante ao do vídeo no link a seguir, vai alterar apenas o sinal. th-cam.com/video/7oYccRi3cq0/w-d-xo.html

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

      @@CanalSGP Obrigado pelo retorno!

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

    Pode criar um formulários desse para acessar via internet?

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

      Bom dia, vba funciona apenas no Excel.

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

    Adaptei a uma planilha com dados aqui, mas algumas linhas não estão com todas as colunas preencidas. Então o código acima deu erro informando sobre essas colunas sem dados no arquivo de dados. Gostaria de realizar a pesquisa e pudesse vizualizar os dados disponiveis e os não preenchidos na tabela de dados fossem apresentados vazios no formulário após a pesquisa. Obrigado

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

      Boa tarde, qual mensagem de erro retorna?

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

      @@CanalSGP "uso de null inválido" erro em tempo de execução 94 - Pois algumas celulas da linha estão vazias. Por exemplo: maticula e funcionario tem dados digitados na planilha, mais o setor não tem dado. Ai a pesquisa da esse erro.

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

      Boa tarde, solicite a planilha de exemplo do vídeo nos contatos do site, link na descrição.

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

    Boa tarde meu amigo, tudo bem com você? Teria como eu realizar esse mesmo procedimento porem puxando as informações de um banco de dados Access, to procurando de todas as formas na internet mas nao consigo achar nada para que eu possa colocar no sistema que estou criando como estudo.
    Ao preencher uma textbox ou combobox, as outras textbox fossem completadas puxando as informações do banco de daddos Access.
    Agradeço, abraços.

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

      Boa noite, tenho uma playlist de vídeos sobre VBA e Access, segue link. th-cam.com/video/z8pOUU07sT4/w-d-xo.html

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

    Professor como criar uma from para imprimir fatura?

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

      Boa tarde, de impressão não tentei fazer ainda.

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

      @@CanalSGP tá certo.. gostaria de uma from que busca dados cadastrados e adiciona na fatura mostrando os valores dos produtos.. salvando a fatura e imprimir.. usando base de dados Access

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

      @@CanalSGP Quando tiver tempo pesso para fazer um vídeo mostrando

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

      Bom dia, vou analisar.

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

    Prezado Luan,
    Preciso de um socorro seu.
    Eu estou adaptando este código para uma pesquisa de uma lista de telefones de colaboradores.
    Sucede que eu não reparei que abri o formulário e coloquei os códigos numa outra planilha.
    Como eu faço para colocar o formulário e os códigos na planilha correta? Desde já agradeço a sua atenção.

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

      Boa tarde, pode exportar o formulário e importar na outra planilha, clique com botão direito do mouse sobre o nome do formulário na barra lateral esquerda do vba e vai exportar.

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

    Dúvida: "Como eu automatizo pra ele fechar sozinho depois, ou um botão OK e ele fecha?"
    Aguardo resposta, e Parabéns pelo vídeo.
    Muito bom.

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

      Bom dia, o código para fechar o formulário é unload. Ex: Userform1.unload

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

      @@CanalSGP Deu certo, era o nome da TXT que eu tinha colocado errado kkkk
      (obs, estava fazendo um usando o seu como base)

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

      @@CanalSGP Ah, e só consegui abrir em "uma" planilha, NO MEU CASO: Home. Mas tem como ser aberta em outros locais (planilha da mesma pasta de trabalho? Minha área de trabalho tem 12 Planilhas kkkk

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

      Boa noite, se deseja utilizar o mesmo formulário em todas as abas vai precisar referenciar a guia utilizar activesheet no caso, vai ser diferente o código.

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

    Tem um jeito que não precisa apertar "Enter" para trazer os dados. Qual é esse jeito?

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

      Boa tarde, talvez o evento after update, mas o mais indicado é no evento exit mesmo.

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

    Ola tentei fazer uma com um base de medicos mas nao consegui esta dando erro poderia verificar onde estou errando
    se pode me ajudar agradeço

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

      Bom dia, qual mensagem de erro está retornando?

  • @joelsonv.s1078
    @joelsonv.s1078 2 ปีที่แล้ว

    Bom dia! Tentei criar utilizando um caixa de listagem, mas não deu certo. Aparece a primeira msg de erro que foi inserida.

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

      Boa noite, com listbox acredito que seja melhor um filtro. Segue link de vídeo de exemplo. th-cam.com/video/eBSlI6dPb6k/w-d-xo.html

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

    Estou tentando realizar na combobox e não está dando certo😢

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

      Boa tarde, retorna alguma mensagem de erro?

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

    Amigo, eu quero fazer uma busca usando 3 campos, nesse vídeo vc mostrou usando 1 campo apenas para digitar e outro pra trazer o resultado
    No meu caso quero usar 3 campos para digitar , e 1 campo para trazer a buscas desses 3 campos que eu digitei. Me ajuda pfv

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

      Boa tarde, neste caso acredito que seja melhor um filtro em listbox.

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

      @@CanalSGP ok, me indica um vídeo seu que ensina melhor trazendo melhor essa informação!

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

      Bom dia, segue link.th-cam.com/video/bzVV3uBvNfU/w-d-xo.html

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

    fiz tudo do mesmo jeito não está puxando as demais informações

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

      Boa tarde, retorna alguma mensagem de erro?

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

    Eu tentei fazendo o passo a passo mas, não deu certo.

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

      Boa tarde, algum erro em específico?

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

    Não funcionou aqui, não sei pq.

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

      Boa tarde, alguma mensagem de erro?

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

      agora deu certo,

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

    NOVAMENTE FIZ IGUAL VOCÊ EXPLICOU POREM ESTA DANDO MSGBOX "ERRO"
    rivate Sub TextBox_MATR_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error GoTo erro
    If TextBox_MATR.Value = Empty Then
    Exit Sub
    End If
    Dim Linha As Double
    Dim B As Variant
    Dim Plan As String
    Plan = Planilha6.Name
    With Worksheets(Plan).Range("A:A")
    Set B = .Find(TextBox_MATR.Text, LookIn:=x1values, Lookat:=x1Whole)
    If Not B Is Nothing Then
    Linha = B.Row
    TextBox_NOME.Value = Planilha6.Cells(Linha, 2).Value

    Else

    MsgBox "Registro Não Encontrado Na Qualificativa", vbInformation, "PESQUISA"

    TextBox_NOME = Empty
    Cancel = True

    End If


    End With
    Set B = Nothing
    erro:
    MsgBox "Fatal Erro", vbCritical, "PESQUISA"

    End Sub

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

      Boa tarde, o que notei é que está trocando o l pelo um.
      TextBox_MATR.Text, LookIn:=xlvalues, Lookat:=xlWhole

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

    revisei muitas vezes e ainda continua a dar erro :(
    Private Sub TextBox1_Change()
    TextBox2 = Empty
    TextBox3 = Empty
    End Sub
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error GoTo Erro
    If TextBox1 = Empty Then
    Exit Sub
    End If
    Dim Linha As Double
    Dim C As Variant
    Dim Plan As String
    Plan = Planilha1.Name
    With Worksheets(Plan).Range("B:B")
    Set C = .Find(TextBox1.Text, LookIn:=xlValue, Lookat:=xlWhole)
    If Not C Is Nothing Then
    Linha = C.Row
    TextBox2.Value = Planilha1.Cells(Linha, 3).Value
    TextBox3.Value = Planilha1.Cells(Linha, 4).Value
    Else
    MsgBox "ANEL NAO ENCONTRADO!", vbInformation, "PESQUISA"
    TextBox2 = Empty
    TextBox3 = Empty
    Cancel = True
    End If
    End With
    Set C = Nothing
    Exit Sub
    Erro:
    MsgBox " ERRO!", vbCritical, "PESQUISA"
    End Sub

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

      Boa noite, qual mensagem de erro retorna?

    • @1608murilo
      @1608murilo 2 ปีที่แล้ว

      @@CanalSGP “ ERRO! “

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

      Bom dia, desative o sistema de tratamento de erro para ver qual linha de código está errada. Coloque aspas simples no início da linha de código abaixo e execute novamente.
      'On Error GoTo Erro

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

      tem uma letra errada no seu código mano kkkkk, falto um s em value
      seu codigo:
      Set C = .Find(TextBox1.Text, LookIn:=xlValue, Lookat:=xlWhole)
      coreto seria:
      Set C = .Find(TextBox1.Text, LookIn:=xlValues, Lookat:=xlWhole)

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

      Boa tarde, não tinha me atentado a este detalhe também.