Editar Registro de Coluna de Planilha Excel com DUPLO CLICK em Listbox VBA

Editar dados de planilha Excel diretamente de Listbox VBA com dulpo click na linha. Dados para edição são inseridos em mensagem de inputbox ao clicar na linha a ser editada na listbox VBA e planilha Excel. Editando direto de formulário, com dados carregados em Listbox do Excel.
✅Site SGP: Venda de Coleção de Planilhas Excel VBA Prontas:
planilhascanal...
===============

[@gersonchaves5860]

Muito bom meu amigo ... hoje me quebrou um galhao seu video ... Grato

[@CanalSGP]

Que bom que ajudou.

[@1lucasmartins]

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

[@CanalSGP]

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

[@clovissouza6884]

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.

[@CanalSGP]

Bom dia, segue link de vídeo explicativo sobre formatação de textbox para telefone: kzbin.info/www/bejne/p37OmYFmeKyHp6s

[@JoaoPaulo-fr6nd]

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.

[@CanalSGP]

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.

[@JoaoPaulo-fr6nd]

@@CanalSGP bom dia. É justamente essa pesquisa do id que não estou conseguindo fazer. Tem que ser dentro de um evento With?

[@CanalSGP]

Bom dia, precisa ser dentro do evento da listbox, mesmo evento que está utilizando para manipular os dados.

[@kaikera1237]

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 ?

[@CanalSGP]

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.

[@kaikera1237]

@@CanalSGP Consegui resolver colocando Plan4.Select acima de Plan4.Range("B2").Select

[@CanalSGP]

Que bom que resolveu

[@dariosouza8956]

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?

[@CanalSGP]

Olá, qual a opção a mais que teria?

[@pitanga002]

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

[@CanalSGP]

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

[@jA-en7iu]

Olá boa noite você pode mandar esse código pra mim?

[@CanalSGP]

Bom dia, solicite a planilha no e-mail do site do canal, link na descrição do vídeo.

[@felipeizui5750]

Olá, professor. Você poderia me enviar essa planilha para estudo?

[@CanalSGP]

Bom dia, qual e-mail para envio?

[@BrunoSilvaconceicao]

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

[@CanalSGP]

Olá, vou estudar o assunto, se for viável gravo vídeo explicativo.

[@RaphaelBoscardini]

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 !

[@CanalSGP]

Bom dia, obrigado, deixe seu e-mail que envio a planilha para que possa comparar.

[@RaphaelBoscardini]

@@CanalSGP Muito Obrigado

[@dionatarmac7202]

Fiz tudo ingual e não funcionou

[@CanalSGP]

Boa noite, alguma mensagem de erro?