Excel VBA Planilha calcula comissões vendas automóveis

Nesta planilha vamos aprender como calcular comissões de vendas de automóveis.

Codificação da Planilha com Excel VBA.
controle comissão veiculos planilha excel

Sub sbx_calcular_comissao()
Dim i As Long ‘variavel (i =”incremento”, poderia ser (j,k,m,manga,aborbora, jiló,banana,abacate)
Dim tSoma, tComissao As Double ‘double (numeros com decimais, ou Currency(moeda)
‘// escolher uma coluna preenchida para contar a quantidade de linhas.
For i = 8 To Cells(Rows.Count, “b”).End(xlUp).Row
‘// calculando os valores dos descontos.
Cells(i, “h”).Value = Cells(i, “f”) * Cells(i, “g”).Value
‘//condição para comissão entre 0%
If Cells(i, “g”).Value = 0 Then
Cells(i, “j”).Value = CDbl(Cells(i, “f”).Value * 0.03)
Cells(i, “i”).Value = Format(0.03, “Percent”)
‘//condição para comissão entre 0% e 5%
ElseIf Cells(i, “g”).Value <= 0.05 And Cells(i, “g”) > 0# Then
Cells(i, “j”).Value = CDbl(Cells(i, “f”).Value * 0.02)
Cells(i, “i”).Value = Format(0.02, “Percent”)
‘//condição para comissão acima de 5 ou poderia fazer mais condições (ex: entre 5 e 10)
ElseIf Cells(i, “g”).Value >= 0.05 Then ‘And Cells(i, “g”) >= 0.10 (se fosse entre 5 e 10%
Cells(i, “j”).Value = CDbl(Cells(i, “f”).Value * 0.01)
Cells(i, “i”).Value = Format(0.01, “Percent”)
End If
‘//carregando a variável soma (a cada loop adicona os valores:
tSoma = tSoma + Cells(i, “f”).Value
tComissao = tComissao + Cells(i, “j”)
Next i
Cells(13, “m”).Value = tSoma ‘descarregando a variavel tSoma
Cells(14, “m”).Value = tComissao ‘descarregando a variável tComissao
MsgBox (“Calculos [Descontos e Comissões] realizado com sucesso!”), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub

Sub sbx_limpar_teste()
x = Cells(Rows.Count, “b”).End(xlUp).Row + 1 ‘localiza a ultima linha (+1 para nao apagar o cabeçalho)
Range(Cells(8, “h”), Cells(x, “j”)).ClearContents ‘limpa a area desejada (cells(linha,coluna))
[m13:m14,m18:M24].ClearContents ‘limpa as tabelas
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.

 

Compre pelo PagSeguro   Compre pelo PayPal
excel-vba-treinamento-pagseguro  
     
 Material Didático: Curso Excel VBA Expert 
 
excel vba treinamentos planilhas
 
 
Faça o Download do Arquivo do Post
Planilha:  Excel VBA Planilha calcula comissões vendas automóveis
<< Link Download:  Verifique também caixa de itens excluídos >>
 

     




    Deixe uma resposta

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