Alteração Dados Lis...
 
Notifications
Clear all

Alteração Dados ListBox

8 Posts
4 Usuários
0 Reactions
2,484 Visualizações
(@odorizi)
Posts: 9
Active Member
Topic starter
 

Boa Tarde,
estou aqui novamente para tentar concluir o meu projeto, falta pouco! rs
Na planilha em questão, estou puxando os dados selecionados na ListBox e gostaria de realizar as alterações (edição), porém na planilha ele esta editando porém todo desconfigurado. Alguem me ajuda? Além disso, como consigo fazer que após a atualização, a própria listbox atualize os dados?
Desde já agradeço.

 
Postado : 27/04/2017 10:05 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

odorizi,

Boa tarde!

ele esta editando porém todo desconfigurado

- Como assim? Não entendi... Como é o processo de execução para se chegar a essa desconfiguração? Explique os detalhes.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 27/04/2017 11:24 am
(@odorizi)
Posts: 9
Active Member
Topic starter
 

Wag,
segue a imagem em anexo o que acontece depois que modifico...
Desde já agradeço.

 
Postado : 27/04/2017 11:56 am
cleiton jm
(@cleiton-jm)
Posts: 115
Estimable Member
 

Pelos meus cálculos assim deve resolver

 Dim linha As String
    Dim titulo As Long
    Dim categoria As String
    Dim data As String
    Dim favorecido As String
    Dim valor As Double
    Dim status As String
    Dim observacao As String

    'On Error Resume Next 'para não gerar erro caso o registro não exista
      
    titulo = Me.baixa_titulo.Text
    categoria = Me.baixa_categoria.Text
    data = Me.baixa_data.Text
    favorecido = Me.baixa_favorecido.Text
    valor = Me.baixa_valor.Text
    status = Me.baixa_status.Text
    observacao = Me.baixa_observacao.Text
    
    'Localiza um registro pelo método find
    linha = Sheets("BD-Duplicatas").Range("A:A").Find(titulo).Row
    
    Sheets("BD-Duplicatas").Cells(linha, 1).Value = titulo 'coluna valor unitario 1ª coluna
    Sheets("BD-Duplicatas").Cells(linha, 2).Value = categoria   'coluna produto 2ª coluna
    Sheets("BD-Duplicatas").Cells(linha, 3).Value = CDate(data)  'coluna quantidade 3ª coluna
    Sheets("BD-Duplicatas").Cells(linha, 4).Value = favorecido  'coluna valor unitario 4ª coluna
    Sheets("BD-Duplicatas").Cells(linha, 5).Value = valor  'coluna valor unitario 5ª coluna
    Sheets("BD-Duplicatas").Cells(linha, 6).Value = status  'coluna valor unitario 6ª coluna
    Sheets("BD-Duplicatas").Cells(linha, 7).Value = observacao  'coluna valor unitario 7ª coluna
      
    MsgBox "Título Baixado/Editado com sucesso!"
 
Postado : 28/04/2017 5:05 pm
(@odorizi)
Posts: 9
Active Member
Topic starter
 

Cleiton,
deu certo!
Agora, há alguma macro que consigo colocar que ao alterar os itens e apos concluir, o listbox atualize?
Desde já agradeço!

 
Postado : 02/05/2017 10:56 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Cleiton,
deu certo!
Agora, há alguma macro que consigo colocar que ao alterar os itens e apos concluir, o listbox atualize?
Desde já agradeço!

Chame o codigo que carrega os dados na listbox.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 03/05/2017 9:21 am
(@odorizi)
Posts: 9
Active Member
Topic starter
 

MPrudencio, desde já agradeço a ajuda. Inserir o seguinte codigo:

Call PreencheLista

Porém esta dando erro: "O Argumento não é opcional", imagino que ele não esteja lendo a macro, correto?

Além disso, após alguns teste do código que o Cleiton postou do primeiro erro deste topico, percebi que ao tentar alterar a categoria "Titulo" da o seguinte erro:
"A variável do objeto ou a variável do bloco With não foi definida"

Como consigo corrigir?

Desde já agradeço

 
Postado : 03/05/2017 10:59 am
(@mprudencio)
Posts: 2749
Famed Member
 

Ao inves de usar a macro direto no formulario, coloque em um modulo e chame no formulario e na rotina de atualização

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 03/05/2017 3:08 pm