Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Calculo preço de ve...
 
Notifications
Clear all

Calculo preço de venda na textbox

 
2024 - VBA & Macros
7 Posts
2 Usuários
0 Reactions
1,131 Visualizações
RSS
 Luisrod
(@luisrod)
Posts: 0
New Member
Topic starter
 

Boa tarde pessoal,preciso fazer no botão que nele calcule o valor de venda, estou usando essa formula;
txt_venda = Format((txt_quant * txt_valor) + txt_fiscal + (txt_valor * txt_comissao), "0.00")

o problema é quando ele faz a conta (txt_valor * txt_comissao) dá erro.

aparece a mensagem "tipos incompativeis"

OBS: txt_comissao está formatado para porcentagem
Me.txt_comissao.Value = Format(Me.txt_comissao / 100, "0.00%")

obrigado pela atenção

 
Postado : 20/02/2015 11:42 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Por gentileza, poste seu arquivo modelo (compactado)!

Att

 
Postado : 20/02/2015 12:48 pm
 Luisrod
(@luisrod)
Posts: 0
New Member
Topic starter
 

Segue o link da planilha
https://mega.co.nz/#!Q8tj2K4C!_7Y-VKjsp ... WH9umT24F0

 
Postado : 21/02/2015 5:57 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!!

Tente assim

Private Sub CommandButton1_Click()
'formata para porcentagem textbox fiscal
txt_fiscal.Value = txt_valor.Value * (2.75 / 100)
txt_venda.Value = Format(Val(txt_quant.Value) * Val(txt_valor.Value) + Val(txt_fiscal.Value) + Val(txt_valor.Value) * Val(txt_comissao.Value), "0.00")
End Sub

Att

 
Postado : 21/02/2015 6:30 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente assim:

(txt_valor * (Val(txt_comissao) / 100))

 
Postado : 21/02/2015 6:33 am
 Luisrod
(@luisrod)
Posts: 0
New Member
Topic starter
 

Obrigado pessoal deu certo. Vivendo e aprendendo.

 
Postado : 21/02/2015 9:07 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Luis

Se tua dúvida foi resolvida, clique no V da resposta que melhor atendeu a tua dúvida, para dar o tópico como Resolvido.

Para agradecer, clique na mãozinha que fica do lado da ferramenta Citar.

[]s

 
Postado : 21/02/2015 9:17 am
Forum Jump:
  Tópico Anterior
Próximo Tópico