Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Ajuda listbox e Caixa de Texto
Ajuda listbox e Caixa de Texto
Boa Noite
fiz uma pequena aplicação em VBA porem esta acontecendo o seguinte eu criei um evento onde eu adiciono itens a uma listbox, dai dou um duplo click na linha a qual eu desejo modifica-la e faço as alterações necessárias porem quando clico no botão de adicionar o item que tem a mesma função de atualizar no campo que criei chamado de lb_total que é uma caixa de texto.
ele esta fazendo somente a soma dos item sempre exemplo
se eu adiciono um item q custa R$ 5,00 ai modifico ele por algum motivo e altero ele para R$ 2,00 ao invés de aparecer no lb_total o valor de R$ 2,00 ele faz a soma dos dos valor no caso a lb_total fica aparecendo R$ 7,00 e assim a cada modificação tanto para + quanto pra - ele sempre vai somando
gostaria de que me ajudasse neste caso se possível.
se necessario envio o projeto para uma analise
desde já obrigado
fiz uma pequena aplicação em VBA porem esta acontecendo o seguinte eu criei um evento onde eu adiciono itens a uma listbox, dai dou um duplo click na linha a qual eu desejo modifica-la e faço as alterações necessárias porem quando clico no botão de adicionar o item que tem a mesma função de atualizar no campo que criei chamado de lb_total que é uma caixa de texto.
ele esta fazendo somente a soma dos item sempre exemplo
se eu adiciono um item q custa R$ 5,00 ai modifico ele por algum motivo e altero ele para R$ 2,00 ao invés de aparecer no lb_total o valor de R$ 2,00 ele faz a soma dos dos valor no caso a lb_total fica aparecendo R$ 7,00 e assim a cada modificação tanto para + quanto pra - ele sempre vai somando
gostaria de que me ajudasse neste caso se possível.
se necessario envio o projeto para uma analise
desde já obrigado
- netocasaroli
- Consultor
- Mensagens: 219
- Registrado em: Seg Mai 11, 2015 5:24 pm
- Localização: Londrina-PR
Re: Ajuda listbox e Caixa de Texto
Maicon,
Bem-vindo ao Fórum.
Aparentemente o problema é na variável que armazena o valor que vai ser jogado em lb_total. De qualquer forma, se puder anexar seu projeto aqui, fica mais fácil para podermos ajudá-lo.
Bem-vindo ao Fórum.
Aparentemente o problema é na variável que armazena o valor que vai ser jogado em lb_total. De qualquer forma, se puder anexar seu projeto aqui, fica mais fácil para podermos ajudá-lo.
Re: Ajuda listbox e Caixa de Texto
ok vou postar para uma analise o problema corre dentro da guia orçamento.
- Anexos
-
- Projeto.zip
- (1.19 MiB) Baixado 629 vezes
- netocasaroli
- Consultor
- Mensagens: 219
- Registrado em: Seg Mai 11, 2015 5:24 pm
- Localização: Londrina-PR
Re: Ajuda listbox e Caixa de Texto
No UserForm frm_orcamento utilize o seguinte código no evento Click do botão cmd_adicionar:
Código: Selecionar todos
Private Sub cmd_adicionar_Click()
Dim i As Integer
Dim Soma As Double
If txt_codigo_produto.Text <> "" And combo_descricao_produto.Text <> "" And txt_qtd.Text <> "" And txt_val_unitario.Text <> "" Then
x = ListBox1.ListCount
'Verifica se o item já está na listbox
For a = 0 To ListBox1.ListCount - 1
If ListBox1.List(a, 0) = txt_codigo_produto Then
x = a: GoTo pula
Exit For
End If
Next
ListBox1.AddItem txt_codigo_produto.Text
pula:
ListBox1.List(x, 1) = txt_codigo_produto.Text
ListBox1.List(x, 2) = combo_descricao_produto.Text
ListBox1.List(x, 3) = txt_qtd.Text
ListBox1.List(x, 4) = Format(txt_val_unitario.Text, "currency")
ListBox1.List(x, 5) = Format(txt_valor_produto.Text, "currency")
For i = 0 To Me.ListBox1.ListCount - 1
Soma = Soma + Me.ListBox1.List(i, 5) * 1
Next i
lb_total.Caption = Format(Soma, "currency")
txt_codigo_produto.Text = ""
txt_codigo_produto.Text = ""
combo_descricao_produto.Text = ""
txt_qtd.Text = ""
txt_val_unitario.Text = ""
txt_valor_produto.Text = ""
Else
MsgBox "Campos obrigatórios não preenchidos", vbInformation + 0, "Campos Obrigatórios"
End If
End Sub
Re: Ajuda listbox e Caixa de Texto
Perfeito o código amigo, esse código pode ser aplicado no botão excluir também ou seria uma tratativa diferente, pois o botão excluir somente remove o item da listbox não faz o calculo.
- netocasaroli
- Consultor
- Mensagens: 219
- Registrado em: Seg Mai 11, 2015 5:24 pm
- Localização: Londrina-PR
Re: Ajuda listbox e Caixa de Texto
Para excluir, use o seguinte código:
Código: Selecionar todos
Private Sub btn_excluir_item_Click()
Dim i As Integer
Dim Soma As Double
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox1.RemoveItem (i)
Soma = Soma + Me.ListBox1.List(i, 5) * 1
End If
Next i
lb_total.Caption = Format(Soma, "currency")
End Sub
Re: Ajuda listbox e Caixa de Texto
Neto, muito obrigado pela ajuda resolveu meu problema de forma simples e muito funcional parabéns pelo grande trabalho.
neste projeto pretendo colocar para imprimir o contrato porem tentei colocar o contrato dentro da planilha mas ele fica muito fora do alinhamento e possível fazer com que o VBA transfira o preenchimento dos campos do contrato para um Doc. de Word. se sim essa aplicação seria muito complicada?
neste projeto pretendo colocar para imprimir o contrato porem tentei colocar o contrato dentro da planilha mas ele fica muito fora do alinhamento e possível fazer com que o VBA transfira o preenchimento dos campos do contrato para um Doc. de Word. se sim essa aplicação seria muito complicada?
- netocasaroli
- Consultor
- Mensagens: 219
- Registrado em: Seg Mai 11, 2015 5:24 pm
- Localização: Londrina-PR
Re: Ajuda listbox e Caixa de Texto
Maicon,
Na verdade o Word não é o meu forte... Mas acredito que é possível sim, pois os aplicativos da suite MS Office se comunicam muito bem entre si. Sei também que é possível através do VBA no Excel criar u objeto do Word e trabalhar nele, mas nunca trabalhei com isso. A única dica que eu poderia dar é criar um modelo padrão e inserir campos como uma Mala Direta e vincular esse documento à base de dados (Access).
Mas nesse caso, minha contribuição não vai além disso... kkkk... Foi mal.
Se alguém do fórum puder colaborar, será muito bem-vindo!!!!
Na verdade o Word não é o meu forte... Mas acredito que é possível sim, pois os aplicativos da suite MS Office se comunicam muito bem entre si. Sei também que é possível através do VBA no Excel criar u objeto do Word e trabalhar nele, mas nunca trabalhei com isso. A única dica que eu poderia dar é criar um modelo padrão e inserir campos como uma Mala Direta e vincular esse documento à base de dados (Access).
Mas nesse caso, minha contribuição não vai além disso... kkkk... Foi mal.
Se alguém do fórum puder colaborar, será muito bem-vindo!!!!
Re: Ajuda listbox e Caixa de Texto
Neto, de qualquer forma muito obrigado pois sua contribuição foi de grande importância na execução de minha aplicação sou grato por isso parabéns pelo grande trabalho.