Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Problemas com Soma ...
 
Notifications
Clear all

Problemas com Soma e Porcentagem

 
2024 - VBA & Macros
Post Recente por fcarlosc 8 anos atrás
4 Posts
2 Usuários
0 Reactions
839 Visualizações
RSS
 fcarlosc
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

Boa-noite,

Gostaria de uma ajuda com um formulário de Cadastro de Produtos.
As somas estão quase corretas, só não na parte onde: se eu colocar a "porcentagem" e sair da textbox, é feito o cálculo corretamente, só que se eu voltar na textbox e apagar a porcentagem para colocar um novo valor, o cálculo está sendo "somado" e não refeito.
E também gostaria de ajustar os valores, para apareça os centavos, não estou conseguindo aplicar corretamente algo do tipo "CURRENCY" na textbox e na label.

Obs: também gostaria de saber qual a melhor forma de aplicar esses códigos, com as devidas variáveis.

Att,

Francisco

 
Postado : 16/09/2016 3:47 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se atende

 
Postado : 16/09/2016 4:34 pm
 fcarlosc
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

Blz Reinaldo

Esqueci de perguntar como fazer o mesmo tanto na hora de preencher a ListBox e também quando der um Duplo Click dentro da ListBox para preencher os campos.

Qual linha precisa ser alterada para aparecer os centavos...!?

 
Postado : 16/09/2016 5:08 pm
 fcarlosc
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

Opa...achei aqui !

Para aparecer os centavos quando está na textbox (change ou afterupdate) e depois do "duploclick", ficou assim.

.List(linhalistbox, 3) = Format(guia.Cells(linha, 4), "CURRENCY")

Para aparecer os centavos quando preenche a listbox, ficou assim.

frmProdutos.ListBox1.List(frmProdutos.ListBox1.ListCount - 1, 3) = Format(Plan10.Range("D" & linha), "CURRENCY")

Aparentemente resolveu meu problema

Obrigado pela ajuda...!

 
Postado : 16/09/2016 5:43 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico