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.

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

Material Didático: Curso Excel VBA Expert