EITA ...estou aprendendo muito com o Sr.,sei que e muito difícil responder comentários de todas as suas aulas que o senhor posta mas vamos la ne na espera quem sabe sou felizardo , gostei muito dessa ideia de não usar botão de comando nem textbox tudo pratico usando apenas a listbox para pesquisar e clicar...fiz os codigos exatamente como o Sr. porem nao esta alterando a celula da coluna programada , no meu caso estou usando (PENDENTE E PAGO) a pergunta é se a forma que carreguei meus dados para listbox pode afetar na execução destes codigos citados acima ...se o senhor puder enviar o seu exemplo como comparativo agradeceria demais ... a minha planilha esta muito top uso para minha empresa e o senhor estara me ajudando demais desde ja agradeço felicidades
Boa noite. Essas dicas são muito boas. Tenho uma planilha com 15 colunas mas a ListBox só tem 9. Assim, ao clicar na linha do ListBox preciso editar todos os dados da planilha. Como trazer para o formulário as colunas que não estão no ListBox. Pode ajudar? Estou tentando adaptar suas instruções mas não estou tendo sucesso... Obrigado.
Bom dia, obrigado, para carregar mais colunas na listbox pode ser utilizado array. Ou se tiver id de identificação para cada linha, poderia fazer uma pesquisa.
Boa note Noite, Primeiramente quero Agradecer imensamente, pois estou aprendendo muito com você . . . Show de Bola sua didática. "Parabéns" Fiz a planilha conforme minha necessidade, porém alterei as informação de "PAGO E NÃO PAGO" por data de envio, ou seja, quando a célula de data estiver vazia, eu gostaria de inserir a data que digitei em uma TextBox que inseri acima da List Box. No restante está funcionando, porém quando dou o duplo clique ele não está trazendo a a data digitada na TextBox. Segue o comando que fiz . . . Do If ActiveCell.Text = Envio Then ActiveCell.Select ActiveCell.Offset(0, 4).Select If Verificar = "NIHIL" Then ActiveCell.Value = TextBox1 ListBox1.List(Editar, 4) = TextBox1 Else ActiveCell.Value = " " ListBox1.List(Editar, 4) = TextBox1 End If Desde Já antecipo meus agradecimentos. Marcelo Pitanga
Bom dia, obrigado, o que pode fazer é colocar uma msgbox dentro das condição para ver se está entrando corretamente. If Verificar = "NIHIL" Then ActiveCell.Value = TextBox1 ListBox1.List(Editar, 4) = TextBox1 msgbox "entrou NIHIL" & Textbox1 Else ActiveCell.Value = " " ListBox1.List(Editar, 4) = TextBox1 End If
Olá bom dia, eu tenho uma dúvida. Fiz um agenda de contados no via Excel. Com dois Page mais não estou consigo formatar os texbox telefone, fiz como o sr encinou .tem como me ajudar.
No meu tem uma pesquisa no código acima utilizando o evento afterupdate. Fiz o que vc ensino logo abaixo do sub cliquei no listbox e fiz. Porém quando clico em alterar meu status ele da erro "O método range falhou 1004 - nessa parte: Plan4. Range("B4").Select " o que pode ser ?
Boma dia, talvez o nome interno do vba da aba esteja errado, confirme se de fato é Plan4. Outra possibilidade é a plan4 estar oculta, desta forma não podendo selecionar a célula.
Professor, boa noite. Estou estudando VBA através de suas aulas e desenvolvendo um sistema de forma educacional para aprender VBA de forma completa, ao tentar utilizar o código desta aula, só consigo alterar a primeira linha das parcelas que possuem ID de cliente igual mas numeros de parcelas diferentes,alteram se no listbox mas não na planilha. Segue meu código para possível correção. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Editar = ListBox1.ListIndex id = ListBox1.List(Editar, 0) Verificar = ListBox1.List(Editar, 2) Resp = MsgBox("Confirmar Alteração", vbYesNo, "confirmar?") If Resp = vbYes Then Planilha2.Range("A:A").Select Do If ActiveCell.Text = id Then ActiveCell.Select ActiveCell.Offset(0, 14).Select If Verificar = "NÃO PAGO" Then ActiveCell.Value = "PAGO" ListBox1.List(Editar, 2) = "PAGO" Else ActiveCell.Value = "NÃO PAGO" ListBox1.List(Editar, 2) = "NÃO PAGO" End If End If If ActiveCell.Value = "" Then Exit Sub End If ActiveCell.Offset(1, 0).Select Loop Else Exit Sub End If End Sub Obrigado por todo conhecimento !
Adorei sua aula, mas como faço para alterar mais de um item ao mesmo tempo, por exemplo, eu preciso alterar o campo status e hora de entrada, o campo status eu consegui fazer com a aula, mas como altero mais de um campo ao mesmo tempo quando clico com esse código? desde já agradeço
Muito bom meu amigo ... hoje me quebrou um galhao seu video ... Grato
Que bom que ajudou.
EITA ...estou aprendendo muito com o Sr.,sei que e muito difícil responder comentários de todas as suas aulas que o senhor posta mas vamos la ne na espera quem sabe sou felizardo , gostei muito dessa ideia de não usar botão de comando nem textbox tudo pratico usando apenas a listbox para pesquisar e clicar...fiz os codigos exatamente como o Sr. porem nao esta alterando a celula da coluna programada , no meu caso estou usando (PENDENTE E PAGO) a pergunta é se a forma que carreguei meus dados para listbox pode afetar na execução destes codigos citados acima ...se o senhor puder enviar o seu exemplo como comparativo agradeceria demais ... a minha planilha esta muito top uso para minha empresa e o senhor estara me ajudando demais desde ja agradeço felicidades
Bom dia, solicite a planilha de exemplo nos contatos do site do canal, link na descrição do vídeo.
Boa noite. Essas dicas são muito boas. Tenho uma planilha com 15 colunas mas a ListBox só tem 9. Assim, ao clicar na linha do ListBox preciso editar todos os dados da planilha. Como trazer para o formulário as colunas que não estão no ListBox. Pode ajudar? Estou tentando adaptar suas instruções mas não estou tendo sucesso... Obrigado.
Bom dia, obrigado, para carregar mais colunas na listbox pode ser utilizado array. Ou se tiver id de identificação para cada linha, poderia fazer uma pesquisa.
@@CanalSGP bom dia. É justamente essa pesquisa do id que não estou conseguindo fazer. Tem que ser dentro de um evento With?
Bom dia, precisa ser dentro do evento da listbox, mesmo evento que está utilizando para manipular os dados.
Boa note Noite,
Primeiramente quero Agradecer imensamente, pois estou aprendendo muito com você . . . Show de Bola sua didática. "Parabéns"
Fiz a planilha conforme minha necessidade, porém alterei as informação de "PAGO E NÃO PAGO" por data de envio, ou seja, quando a célula de data estiver vazia, eu gostaria de inserir a data que digitei em uma TextBox que inseri acima da List Box.
No restante está funcionando, porém quando dou o duplo clique ele não está trazendo a a data digitada na TextBox.
Segue o comando que fiz . . .
Do
If ActiveCell.Text = Envio Then
ActiveCell.Select
ActiveCell.Offset(0, 4).Select
If Verificar = "NIHIL" Then
ActiveCell.Value = TextBox1
ListBox1.List(Editar, 4) = TextBox1
Else
ActiveCell.Value = " "
ListBox1.List(Editar, 4) = TextBox1
End If
Desde Já antecipo meus agradecimentos.
Marcelo Pitanga
Bom dia, obrigado, o que pode fazer é colocar uma msgbox dentro das condição para ver se está entrando corretamente.
If Verificar = "NIHIL" Then
ActiveCell.Value = TextBox1
ListBox1.List(Editar, 4) = TextBox1
msgbox "entrou NIHIL" & Textbox1
Else
ActiveCell.Value = " "
ListBox1.List(Editar, 4) = TextBox1
End If
Olá bom dia, eu tenho uma dúvida. Fiz um agenda de contados no via Excel.
Com dois Page mais não estou consigo formatar os texbox telefone, fiz como o sr encinou .tem como me ajudar.
Bom dia, segue link de vídeo explicativo sobre formatação de textbox para telefone: th-cam.com/video/qMkhN0CGTqI/w-d-xo.html
No meu tem uma pesquisa no código acima utilizando o evento afterupdate. Fiz o que vc ensino logo abaixo do sub cliquei no listbox e fiz. Porém quando clico em alterar meu status ele da erro "O método range falhou 1004 - nessa parte: Plan4. Range("B4").Select " o que pode ser ?
Boma dia, talvez o nome interno do vba da aba esteja errado, confirme se de fato é Plan4. Outra possibilidade é a plan4 estar oculta, desta forma não podendo selecionar a célula.
@@CanalSGP Consegui resolver colocando Plan4.Select acima de Plan4.Range("B2").Select
Que bom que resolveu
nesse exemplo, foram duas opções " pago e não pago". No meu caso, seria mais de uma opção. como ficaria. qua a linha de codigo que devo alterar?
Olá, qual a opção a mais que teria?
Professor, boa noite.
Estou estudando VBA através de suas aulas e desenvolvendo um sistema de forma educacional para aprender VBA de forma completa, ao tentar utilizar o código desta aula, só consigo alterar a primeira linha das parcelas que possuem ID de cliente igual mas numeros de parcelas diferentes,alteram se no listbox mas não na planilha.
Segue meu código para possível correção.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Editar = ListBox1.ListIndex
id = ListBox1.List(Editar, 0)
Verificar = ListBox1.List(Editar, 2)
Resp = MsgBox("Confirmar Alteração", vbYesNo, "confirmar?")
If Resp = vbYes Then
Planilha2.Range("A:A").Select
Do
If ActiveCell.Text = id Then
ActiveCell.Select
ActiveCell.Offset(0, 14).Select
If Verificar = "NÃO PAGO" Then
ActiveCell.Value = "PAGO"
ListBox1.List(Editar, 2) = "PAGO"
Else
ActiveCell.Value = "NÃO PAGO"
ListBox1.List(Editar, 2) = "NÃO PAGO"
End If
End If
If ActiveCell.Value = "" Then
Exit Sub
End If
ActiveCell.Offset(1, 0).Select
Loop
Else
Exit Sub
End If
End Sub
Obrigado por todo conhecimento !
Bom dia, obrigado, deixe seu e-mail que envio a planilha para que possa comparar.
@@CanalSGP Muito Obrigado
Olá, professor. Você poderia me enviar essa planilha para estudo?
Bom dia, qual e-mail para envio?
Olá boa noite você pode mandar esse código pra mim?
Bom dia, solicite a planilha no e-mail do site do canal, link na descrição do vídeo.
Adorei sua aula, mas como faço para alterar mais de um item ao mesmo tempo, por exemplo, eu preciso alterar o campo status e hora de entrada, o campo status eu consegui fazer com a aula, mas como altero mais de um campo ao mesmo tempo quando clico com esse código?
desde já agradeço
Olá, vou estudar o assunto, se for viável gravo vídeo explicativo.
Fiz tudo ingual e não funcionou
Boa noite, alguma mensagem de erro?