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.
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
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
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.
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?
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?
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
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 "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.
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 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
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.
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.
@@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
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.
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
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"
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
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
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)
Deus abneçoe resolveu um problema de maneira muito facil. Gratidão
Que bom que ajudou.
Obrigado por essa aula me ajudou muito!!!!
Que bom que ajudou.
O SEU VIDEO É INCRÍVEL! ESTOU FAZENDO UM PROJETO YELLOW BELT E SOU LEIGO EM VBA.
MUITO OBRIGADO! GANHOU UM FÃ!
Que bom que ajudou
Excelente aula, deu certo aqui!!! Obrigadooo...
Que bom que deu certo.
Sempre uma boa explicação.
Obrigado.
Parabéns pela aula. gostei muito de aprender esta forma de pesquisa.
Obrigado, sucesso em seus estudos.
Parabens !!! Professor, Excelente conteúdo me ajudou muito
Que bom que ajudou.
Parabens!!! Estava tendo resolver esse problema já a alguns dias. Muito obrigado pelo vídeo e pela explicação detalhada.
Obrigado
Muitíssimo obrigado por essa aula maravilhosa! Deus abençoe!!
Obrigado
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.
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.
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
Bom dia, qual mensagem de erro retorna.
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
Bom dia, ideal seria fazer um exemplo igual ao do vídeo, depois que funcionar vai adaptando uma parte cada vez e testando.
Excelente mais uma vez!!
Obrigado
Show, dúvida, tem como chamar um WebBrowser neste mesmo código ?
Bom dia, não tentei fazer isso ainda.
Woww que conteúdo incrível, Seu Canal esta me ajudando muito, Parabéns.
Obrigado, sucesso em seus estudos.
Tem como fazer esse mesmo procedimento, mas usando dois parâmetros para a pesquisa?
Boa tarde, neste procedimento acredito que não. Para considerar mais de um critério talvez com loop.
Muito bom. Queria uma possibilidade de abrir uma lista com itens do banco de dados e eu poder selecionar o que eu quero
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
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.
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
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?
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
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?
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
@@CanalSGP Obrigado pelo retorno!
Pode criar um formulários desse para acessar via internet?
Bom dia, vba funciona apenas no Excel.
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
Boa tarde, qual mensagem de erro retorna?
@@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.
Boa tarde, solicite a planilha de exemplo do vídeo nos contatos do site, link na descrição.
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.
Boa noite, tenho uma playlist de vídeos sobre VBA e Access, segue link. th-cam.com/video/z8pOUU07sT4/w-d-xo.html
Professor como criar uma from para imprimir fatura?
Boa tarde, de impressão não tentei fazer ainda.
@@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
@@CanalSGP Quando tiver tempo pesso para fazer um vídeo mostrando
Bom dia, vou analisar.
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.
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.
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.
Bom dia, o código para fechar o formulário é unload. Ex: Userform1.unload
@@CanalSGP Deu certo, era o nome da TXT que eu tinha colocado errado kkkk
(obs, estava fazendo um usando o seu como base)
@@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
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.
Tem um jeito que não precisa apertar "Enter" para trazer os dados. Qual é esse jeito?
Boa tarde, talvez o evento after update, mas o mais indicado é no evento exit mesmo.
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
Bom dia, qual mensagem de erro está retornando?
Bom dia! Tentei criar utilizando um caixa de listagem, mas não deu certo. Aparece a primeira msg de erro que foi inserida.
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
Estou tentando realizar na combobox e não está dando certo😢
Boa tarde, retorna alguma mensagem de erro?
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
Boa tarde, neste caso acredito que seja melhor um filtro em listbox.
@@CanalSGP ok, me indica um vídeo seu que ensina melhor trazendo melhor essa informação!
Bom dia, segue link.th-cam.com/video/bzVV3uBvNfU/w-d-xo.html
fiz tudo do mesmo jeito não está puxando as demais informações
Boa tarde, retorna alguma mensagem de erro?
Eu tentei fazendo o passo a passo mas, não deu certo.
Boa tarde, algum erro em específico?
Não funcionou aqui, não sei pq.
Boa tarde, alguma mensagem de erro?
agora deu certo,
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
Boa tarde, o que notei é que está trocando o l pelo um.
TextBox_MATR.Text, LookIn:=xlvalues, Lookat:=xlWhole
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
Boa noite, qual mensagem de erro retorna?
@@CanalSGP “ ERRO! “
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
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)
Boa tarde, não tinha me atentado a este detalhe também.