Saberexcel - Site das Macros

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), busca em uma combobox, o vendedor e relaciona suas vendas em uma listbox, em seguida relaciona também em outra listbox as comissões(6,0%) , existe duas TextBoxes que somam ambos os valores, isto é, soma o total das vendas e outra caixa de texto soma o total de comissões.
Observem que neste exemplo tem saida de dados para as labels(captions) e frames, a intenção foi ajudar nossa Aluna (Aline - SC).
Espero que exemplo possa ajudá-los em alquma coisa. Fique com Deus. Obrigado. Expedito Marcondes.

Peço-lhes desculpas por liberar esse exemplo de planilha somente com login para registrados. caso não queira registra-se, em todos os casos liberei os códigos. Acesso Livre - Registrados (REGISTRE-SE!)

Private Sub cboVENDEDOR_Change()
i = 2
txtTOTAL = 0
lstVENDAS.Clear
lstCOM.Clear
[C2:C100].ClearContents

Do Until Cells(i, 2) = ""
If cboVENDEDOR = Cells(i, 1) Then
lstVENDAS.AddItem FormatNumber(Cells(i, 2), 2)
Cells(i, 3).Value = Cells(i, 2).Value * 0.06
txtTOTAL = FormatNumber(txtTOTAL + Cells(i, 2), 2)

lstCOM.AddItem FormatNumber(Cells(i, 3), 2)
txtTOTALCOM = FormatNumber(txtTOTAL.Value * 0.06, 2)

End If
i = i + 1
Loop

lbCOM.Caption = "Comissoes.:" & FormatNumber(txtTOTALCOM + Cells(i, 2), 2)
lbVENDAS.Caption = "Vendas.:" & txtTOTAL.Value
Me.lbVENDEDOR.Caption = "Vendedor...: " & Me.cboVENDEDOR.Value
Me.lbVEND.Caption = "Vendedor...: " & Me.cboVENDEDOR.Value
Me.lbRESULTADO.Caption = "Vendeu [ " & txtTOTAL & " ] Ganhou [ " & txtTOTALCOM & " ] de Comissões"
Me.fraGERAL.Caption = "Vendas acumulada " & txtTOTAL.Value

End Sub

Private Sub Label3_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Me.cboVENDEDOR.AddItem "ELIANE"
Me.cboVENDEDOR.AddItem "RITA"
Me.cboVENDEDOR.AddItem "MARIA JOAQUINA"
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
[C2:C100].ClearContents
End Sub




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

     Acesso Livre - Registrados (REGISTRE-SE!)
Baixe o exemplo de Planiha contendo os procedimentos acima.
Excel vba combobox e listbox soma relaciona vendas e comissoes (24.99 KB)