Home Excel - Dicas Microsoft Excel VBA Excel VBA - Preco de Custo Excel planilha vba preco venda formacao mais mao de obra

Excel planilha vba preco venda formacao mais mao de obra

E-mail Imprimir PDF

Saberexcel - Site de quem precisa aprender Macros Microsoft Excel VBA

EXCEL VBA COMO MONTAR UM PROCEDIMENTO PARA FORMAÇÃO DE PREÇOS DE CUSTO - VBA

Esse a macro do procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), o ajudará na formação de preço de venda de determinado produto incluindo o Custo da Mão de Obra. Obseve que é bem simples, no exemplo simulei uma fórmula que poderá simplificar e faciliar o entendimento do Procedimento(VBA). Observe que aqui usei uma WorksheetFunction(Função de Planilha) para retornar determinados valores,
como podem ver as WorksheetFunctions(Funções de Planilhas) são muito útil no retorno de dados.
Quando alterar o preço ou os Coeficientes, atualizará todos os valores na tabela
wkf WorksheetFunction funções de planilhas retornam valores vba

CALCULANDO O PREÇO DE CUSTO DE PRODUTO + MÃO DE OBRA

P.B.C.........................: - Preço Básico de Custo
P.V.U.........................: - Preço Venda Unidade
M.O ..........................: -0,58 - também um coeficiente usado para determinar o valor da Mão Obra.
Coeficiente.................: 1,87 - determinará o lucro bruto
Preço por hora(MO).....: 30,57 - determina o valor da Mão de Obra
(*) observe que ao mudar o valor do coeficiente atualiza todos valores na tabela.

- Calcular o preço venda com base no (PBC)
- Macro(VBA) calcula
- Cálculo realizado...: (P.B.C *Coeficiente)+(MO*Preço hora)

Cálculo realizado pelo procedimento..:
EX: 3,87 x 1,87 = 7,24
(7,24 + (0,58*30,57) = 24,97


Cálculos serão atualizados automaticamente quando for mudado o preço básico de custo, P.B.C., ou Coeficiente

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
On Error Resume Next
'caso você delete alguma coisa,trata erro em tempo de execução.
'se ocorrer modificações no intervalo de células (D3:D65536)
If Not Intersect(Target, Range("D3:D65536")) Is Nothing Then
Target.Offset(0, 1).Value = _
Application.WorksheetFunction.Sum(Target.Value * Range("G2") + Target.Offset(0, 2) * Range("H2"))
'Se Celula(Coluna(D) for limpo, Celula(Coluna(E)) também é apagada e considerado fora do processo
If Target.Value = "" Then Target.Offset(0, 1).Value = ""
End If

'Se ocorrer alguma modidifcação no intervalo nas células G2 ou H2
If Not Intersect(Target, Range("G2:H2")) Is Nothing Then

For i = 3 To Range("D65536").End(xlUp).Row
Cells(i, 5).Value = _
Application.WorksheetFunction.Sum(Cells(i, 4).Value * Range("G2") + Cells(i, 6).Value * Range("H2"))
Next

End If

End Sub


'eu sofro também veja a primeira tentativa...rs...
'Option Explicit

'Private Sub Worksheet_Change(ByVal Target As Range)
'Dim c As Range

'localizando a última célula se não localizar não tem jeito não é?
'Set c = Range("D2:D" & Range("D65536").End(xlUp).Row)

'se ocorrer modificações no intervalo de células (D3:D65536)
'If Intersect(Target, Range("D3:D65536")) Is Nothing Then Exit Sub
' Target.Offset(0, 1).Value = Application.WorksheetFunction.Sum(Target.Value * Range("G2") + Target.Offset(0, 2) * Range("H2"))
' 'Se col(D) for limpo, Col(E) também é apagado e considerado fora do processo
' If Target.Value = "" Then Target.Offset(0, 1).Value = ""
' Exit Sub
'End If

'End Sub

 


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




Baixe o exemplo de planilha contendo o procedimento acima.
Excel vba calculo calcular o preco de venda mais mao de obra (235.01 KB)

Última atualização em Dom, 14 de Agosto de 2011 12:46  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA