PESQUISA em TEXTBOX EXCEL VBA - PESQUISA AUTOMÁTICA

[@papelariatotustuus8679]

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

[@CanalSGP]

Que bom que ajudou.

[@tiagotaylor6419]

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

[@CanalSGP]

Que bom que deu certo.

[@marlonferreira6561]

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

[@CanalSGP]

Que bom que ajudou

[@marcodoval6332]

Obrigado por essa aula me ajudou muito!!!!

[@CanalSGP]

Que bom que ajudou.

[@AdemarCosta-mg7cp]

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

[@CanalSGP]

Obrigado

[@douglasborrozine9333]

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

[@CanalSGP]

Que bom que ajudou.

[@josesilvand9244]

Sempre uma boa explicação.

[@CanalSGP]

Obrigado.

[@patriciobona7423]

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

[@CanalSGP]

Obrigado, sucesso em seus estudos.

[@DiogoAedo]

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

[@CanalSGP]

Obrigado

[@marciosantos-st8jx]

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

[@CanalSGP]

Obrigado, sucesso em seus estudos.

[@Luciogeo1]

Excelente mais uma vez!!

[@CanalSGP]

Obrigado

[@deividrubert7979]

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

[@CanalSGP]

Bom dia, não tentei fazer isso ainda.

[@elmojunior8115]

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]

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. kzbin.info/www/bejne/baC8lJaInpiWp5I

[@elmojunior8115]

@@CanalSGP Obrigado pelo retorno!

[@franciscovicente2201]

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]

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

[@franciscovicente2201]

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

[@franciscovicente2201]

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

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.

[@darthdesslock4820]

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

[@CanalSGP]

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

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

Boa tarde, neste caso vai precisar carregar uma lista em uma combobox. Segue link de vídeo sobre combobox: kzbin.info/www/bejne/fGa2hp93hdSnprs

[@benixkan]

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]

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]

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]

Bom dia, qual mensagem de erro retorna.

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

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

[@osmandosilva6005]

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

[@CanalSGP]

Bom dia, vba funciona apenas no Excel.

[@isabelcalixto7247]

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]

Bom dia, para retornar o último registro vai ser um pouco diferente, segue link de vídeo sobre esse tema. kzbin.info/www/bejne/fYmqpXZ-eKaAoqM

[@angelo59br]

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]

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.

[@rodrigospinardi8635]

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]

Bom dia, neste caso acredito que seja mais viável trabalhar com filtro. Segue link de vídeo sobre filtro. kzbin.info/www/bejne/m3O2nXxsmbWVbM0

[@luivanramires1972]

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]

Boa noite, tenho uma playlist de vídeos sobre VBA e Access, segue link. kzbin.info/www/bejne/sGnTgIiLZZymipY

[@sidneyparada3155]

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

[@CanalSGP]

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

[@trifolios1980]

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]

Boa tarde, qual mensagem de erro retorna?

[@trifolios1980]

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

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

[@drogariaconfiancafarmelhor4980]

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]

Bom dia, qual mensagem de erro está retornando?

[@joelsonv.s1078]

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

[@CanalSGP]

Boa noite, com listbox acredito que seja melhor um filtro. Segue link de vídeo de exemplo. kzbin.info/www/bejne/m3O2nXxsmbWVbM0

[@stefanyalexia1219]

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

[@CanalSGP]

Boa tarde, retorna alguma mensagem de erro?

[@gustavomenezes7693]

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]

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

[@gustavomenezes7693]

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

[@CanalSGP]

Bom dia, segue link.kzbin.info/www/bejne/mKu5h2ard9uBnLc

[@kayzer6197]

Professor como criar uma from para imprimir fatura?

[@CanalSGP]

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

[@kayzer6197]

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

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

[@CanalSGP]

Bom dia, vou analisar.

[@FerramentariaCIOPAER]

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

[@CanalSGP]

Boa tarde, algum erro em específico?

[@augustocarlos6379]

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

[@CanalSGP]

Boa tarde, alguma mensagem de erro?

[@augustocarlos6379]

agora deu certo,

[@aldessonmiranda8957]

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

[@CanalSGP]

Boa tarde, retorna alguma mensagem de erro?

[@1608murilo]

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]

Boa noite, qual mensagem de erro retorna?

[@1608murilo]

@@CanalSGP “ ERRO! “

[@CanalSGP]

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]

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]

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

[@peculiopinheiros6747]

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]

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