Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções
Este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando o evento change da folha de Planilha, calcula o Preço Real de Venda, com base no preço de Custo. Ao Alterar a percentual, calculará o Preço Real de Venda, com base no Custo. isto é o Procedimento vai Memorizar o Preço de Custo e Dividí-lo pelo (Percentual – 100),
isto é se for 25% subtrai de 100, resta 75, (Preço de Custo / 75) = 133,00, porque se voce der um desconto de 25% sobre o valor 133,00 obterá 100,00, que é o preço inicial do cálculo. Sendo esta a maneira correta de calcular preço de Venda.
‘//===============’ EVENTO CHANGE DA FOLHA DE PLANILHA (AO DIGITAR, ALTERAR,)’
‘- digitar preço de custo e o preço de venda mostra a margem
‘ – porém se digitar o preço de custo e margem, achará o valor do preço de venda, COM BASE NA MARGEM
Preço de Venda .
‘//==============’
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect([a2:a13], Target) Is Nothing And Target.Count = 1 Then
Target.Offset(0, 2) = (Target.Offset(, 1) – Target) / Target
[e3].Value = “Calculando percentual de lucro”
[e4].Value = “Preço Custo ” & Format(Target, “R$ ###,###,#00.00″) & _
” e Preço Venda ” & Format(Target.Offset(, 1), “R$ ###,###,#00.00″) & _
” Lucro Obtido = ” & Format(Target.Offset(, 2).Value, “percent”)
End If
If Not Intersect([b2:b13], Target) Is Nothing And Target.Count = 1 Then
Target.Offset(0, 1) = (Target – Target.Offset(0, -1)) / Target.Offset(0, -1)
[e3].Value = “Calculando percentual de lucro”
[e4].Value = “Preço Custo ” & Format(Target.Offset(, -1), “R$ ###,###,#00.00″) & _
” e Preço Venda ” & Format(Target, “R$ ###,###,#00.00″) & ” Lucro Obtido = ” & _
Format(Target.Offset(, 1).Value, “percent”)
End If
If Not Intersect([c2:c13], Target) Is Nothing And Target.Count = 1 Then
Target.Offset(0, -1) = Target.Offset(0, -2) / (1 – Target)
[e3].Value = “Calculando o preço de venda”
[e4].Value = “Preço Custo..: ” & Format(Target.Offset(, -2), “R$ ###,###,#00.00″) & _
” dividido por ” & ((1 – Target) * 100) & vbCrLf & _
” Preço Venda…” & Format(Target.Offset(0, -1), “R$ ###,###,#00.00”)
End If
Application.EnableEvents = True
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.
Baixe o exemplo de planilha contendo os macros acima:
Planilha Evento change preco venda base margem ou custo
