Home Excel - Dicas Microsoft Excel VBA Excel VBA - Soma Excel planilha vba soma combobox e listbox lista vendas e comissoes

Excel planilha vba soma combobox e listbox lista vendas e comissoes

E-mail Imprimir PDF

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)

Última atualização em Ter, 23 de Agosto de 2011 09:00  

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

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje41
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana29805
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês43534
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466363
Aprenda MS Excel VBA

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