Notifications
Clear all

Acrescentar uma Porcentagem em cima de um valor final VBA

3 Posts
2 Usuários
0 Reactions
877 Visualizações
(@lucasj)
Posts: 2
New Member
Topic starter
 

olá bom dia/tade/noite, gostaria de ajuda pois baixei uma planilha na internet e gostaria de adicionar sobre o valor final de uma venda/orçamento uma certa % como eu poderia fazer isso ? grato deis de já !
Link da tabela em questão : https://drive.google.com/file/d/0B2tBlp ... VaeXM/edit

 
Postado : 15/05/2017 7:14 am
(@skulden)
Posts: 170
Estimable Member
 

Lucasj, bom dia, tudo bom?

Você precisa de VBA para fazer isto?

Acredito que com as próprias funções básicas do Excel seja possivel fazer isso, basta você pegar uma coluna nova ao lado da do valor final e fazer a seguinte fórmula:

=(Aqui você seleciona a célula com o valor final) * (aqui você coloca o percentual, por ex: 15%)

Um exemplo:

=C2*15%

Abraços.

Se a resposta lhe foi útil, clique no joinha!

 
Postado : 15/05/2017 8:00 am
(@lucasj)
Posts: 2
New Member
Topic starter
 

ola, bom dia, e que gostaria de saber como edita esse valor no vba, porque eu iriar adicionar a porcentagem na formula q da o valor final, ja que tem varias outras informaçoes q precisa desse valor,acredito que eu alterando so essa formula do valor total ja servia, gostaria so de saber onde eu encontro essa formula pra conseguir edita-la, estou fazendo curso de excel mais ainda nao aprendi sobre vba, e estou precisando dessa planilha com urgencia ! obrigado.
'Soma itens da list
Dim soma As Double
For i = 1 To list_pedidos.ListItems.Count
soma = soma + list_pedidos.ListItems.Item(i).SubItems(8)
Next i
txt_soma = Format(FormatNumber(soma, 2), RMask)
txt_total_condicao = Format(FormatNumber(soma, 2), RMask)
Me.txt_VlrParc = Format(CDbl(Me.txt_total_condicao) - CDbl(Me.txt_Entrada), RMask)

achei essa linha sera q é aki q edito ? se sim como faço pra ele somar isso ai mais 80 %?

 
Postado : 15/05/2017 8:30 am