Planilha Excel VBA calcular preço venda base margem e custo

Planilha Excel VBA calcular preço venda base margem e custo

Planilha Excel VBA calcular preço venda base margem e custo


Planilha Excel VBA calcular preço venda base margem e custo 
Estas funções personalizadas e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), vão calcular o preço real de venda de determinados itens, aqui simulamos somente o preço com percentuais diversos, como Alertou nosso Amigo da Area de Finanças Marco, “a maioria dos empresários ao fazer seus preços de vendas de forma errada” podendo deixar de ganhar ou tomar prejuizos”, simplesmente aumenta um percentual no preço seus produtos: Por exemplo  R$ 100,00  x 25% = R$ 125,00 ‘esta errado’, porque se conceder esse desconto de 25%  no valor de 125,00 = novo valor é R$ 93,75 – e não 125,00 (que é o preço inicial do produto) então esta errado:
FORMA CORRETA:
Você tem que pegar o Preço de Custo dividir pelo (Percentual – 100) por exemplo 25%  = 100 – 25 = (75)
Pegue o Seu valor inicial que é R100,00 e divida por 75, obterá então R$ 133,00, que se conceder o desconto de 25%, obterá  o valor de R$ 100,00 (Preço Original).

Abaixo fiz duas Funções personalizadas para demonstrar isso, é um bom treinamento com VBA, observe que usei
a instrução For Next, para percorrer linha por linha e fazer os dois calculos em duas colunas distintas.
Retornando o Preço de Venda e também o Preço Custo (Concedendo o Desconto Relativo).
‘//===========’
Function AchaCusto(valor, pct As Double) As Double
AchaCusto = valor * (1 – pct)
End Function
‘//===========’
Function CalculaVENDA
(valor, pct As Double) As Double
CalculaVENDA = valor / (1 – pct)
End Function
‘//===========’
Sub sbx_calcula_custo_real()
Dim i As Long
For i = 4 To Cells(Rows.Count, “d”).End(xlUp).Row
Cells(i, “j”).Value = Format(CalculaVENDA(Cells(i, “d”), Cells(i, “f”)), “R$ ##,###,##0.00”)
Cells(i, “L”).Value = Format(AchaCusto(Cells(i, “j”), Cells(i, “f”)), “R$ ##,###,##0.00”)
Next i
End Sub
‘//===========’
Sub sbx_limpar_teste()
X = Cells(Rows.Count, “d”).End(xlUp).Row
Range(Cells(4, “j”), Cells(X, “l”)).ClearContents
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
PROMOÇÃO ESPECIAL - EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

PROMOÇÃO ESPECIAL – EXCEL VBA      Adquirir Todo Material Didático Escola SaberExcel VBA Estudos

 Baixe o exemplo de planilha contendo os macros acima:

iconPlanilha Excel VBA calcular preco venda base margem e custo

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *