Boa tarde! Tudo bem? A algum tempo eu utilizo seu código para controle de contas a receber e pagar. Até um tempo atrás estava funcionando tudo perfeitamente. Daí então quando eu copiei o arquivo excel para criar o controle de contas a pagar e receber de 2025 ele parou de funcionar quando tenho que fazer alguma alteração de algum dado na listbox. Os outros comandos de inserir, apagar está funcionando normal, o que não está funcionando é para fazer alterações. Quando clico no item que quero alterar na listbox ele passa os dados para os textboxes correspondentes, porém quando clico no botão editar ele substitui os dados da primeira linha abaixo do cabeçalho com as alterações feitas e fica duplicado. Não foi feito nenhuma alteração no código. Só vi que estava fazendo após eu fazer a cópia do arquivo. Poderia me ajudar, por favor?
Após fuçar muito, muito. Descobri o conflito. Ao acrescentar um código para somar as linhas selecionadas do listbox e então como o multselect estava 1 - fmMultiSelectMulti ao editar a linha selecionada ele estava copiando o conteudo para a primeira da lista. Ainda bem que descobri! Agora tenho que fuçar mais para adaptar esse codigo da soma das linhas.
Boa noite Professor. Minha variável insereOuAltere não muda para 1, que pode estar acontecendo. Private Sub LBListaCliente_Change() Call CarregarCadastroParaAltera UFCLIENTES.BTSalvarNovo.Caption = "Salvar Registro Alterado" insereOuAltere = 1 End Sub Sub SalvarOuAlterarCadastroCliente() 'On Error Resume Next Dim ultimaLinha As Long CLIENTES.Activate
Parabéns! Excelente didática.
Show@@ssilvabr , que bom que tenha gostado. Abraços
Muito top! Parabéns e gratidão.
Show de bola@@shirlleymercedes, que bom que gostou. Abraços
Boa tarde! Tudo bem?
A algum tempo eu utilizo seu código para controle de contas a receber e pagar. Até um tempo atrás estava funcionando tudo perfeitamente. Daí então quando eu copiei o arquivo excel para criar o controle de contas a pagar e receber de 2025 ele parou de funcionar quando tenho que fazer alguma alteração de algum dado na listbox. Os outros comandos de inserir, apagar está funcionando normal, o que não está funcionando é para fazer alterações. Quando clico no item que quero alterar na listbox ele passa os dados para os textboxes correspondentes, porém quando clico no botão editar ele substitui os dados da primeira linha abaixo do cabeçalho com as alterações feitas e fica duplicado. Não foi feito nenhuma alteração no código. Só vi que estava fazendo após eu fazer a cópia do arquivo. Poderia me ajudar, por favor?
Após fuçar muito, muito. Descobri o conflito. Ao acrescentar um código para somar as linhas selecionadas do listbox e então como o multselect estava 1 - fmMultiSelectMulti ao editar a linha selecionada ele estava copiando o conteudo para a primeira da lista. Ainda bem que descobri! Agora tenho que fuçar mais para adaptar esse codigo da soma das linhas.
Boa noite Professor.
Minha variável insereOuAltere não muda para 1, que pode estar acontecendo.
Private Sub LBListaCliente_Change()
Call CarregarCadastroParaAltera
UFCLIENTES.BTSalvarNovo.Caption = "Salvar Registro Alterado"
insereOuAltere = 1
End Sub
Sub SalvarOuAlterarCadastroCliente()
'On Error Resume Next
Dim ultimaLinha As Long
CLIENTES.Activate
ultimaLinha = [counta(CLIENTES!A:A)]
If insereOuAltere = 0 Then
'INSERIR CADASTRO NOVO
Worksheets("CLIENTES").Cells(ultimaLinha + 1, 1).Value = UFCLIENTES.TBID.Value
Worksheets("CLIENTES").Cells(ultimaLinha + 1, 2).Value = UFCLIENTES.TBCliente.Value
Worksheets("CLIENTES").Cells(ultimaLinha + 1, 3).Value = UFCLIENTES.TBUF.Value
Worksheets("CLIENTES").Cells(ultimaLinha + 1, 4).Value = UFCLIENTES.TBCidade.Value
Worksheets("CLIENTES").Cells(ultimaLinha + 1, 5).Value = UFCLIENTES.TBEndereço.Value
Worksheets("CLIENTES").Cells(ultimaLinha + 1, 6).Value = UFCLIENTES.TBBairro.Value
Worksheets("CLIENTES").Cells(ultimaLinha + 1, 7).Value = UFCLIENTES.TBCep.Value
Worksheets("CLIENTES").Cells(ultimaLinha + 1, 8).Value = UFCLIENTES.TBCNPJ.Value
Worksheets("CLIENTES").Cells(ultimaLinha + 1, 9).Value = UFCLIENTES.TBContato.Value
Worksheets("CLIENTES").Cells(ultimaLinha + 1, 10).Value = UFCLIENTES.TBTelefone.Value
Worksheets("CLIENTES").Cells(ultimaLinha + 1, 11).Value = UFCLIENTES.TBEmail.Value
Else
Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 1).Value = UFCLIENTES.TBID.Value
Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 2).Value = UFCLIENTES.TBCliente.Value
Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 3).Value = UFCLIENTES.TBUF.Value
Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 4).Value = UFCLIENTES.TBCidade.Value
Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 5).Value = UFCLIENTES.TBEndereço.Value
Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 6).Value = UFCLIENTES.TBBairro.Value
Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 7).Value = UFCLIENTES.TBCep.Value
Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 8).Value = UFCLIENTES.TBCNPJ.Value
Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 9).Value = UFCLIENTES.TBContato.Value
Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 10).Value = UFCLIENTES.TBTelefone.Value
Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 11).Value = UFCLIENTES.TBEmail.Value
End If
ActiveWorkbook.Save
End Sub
Olá @picoli83, te respondi no e-mail. Abraços