Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel planilha vba usf combobox duplos ligados a departamentos

Excel planilha vba usf combobox duplos ligados a departamentos

E-mail Imprimir PDF

Saberexcel - o site de quem precisa Aprender Macros Microsfot Excel VBA

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando UserForm e ComboBox, mostram determinados dados relacionados em outra caixa de combinação (ComboBox), alterando simultaneamente a Propriedade RowSource de ambas.

Private Sub Cb1_Click()
'A maneira de se fazer é Alterar a propriedade RowSouce pelo código

'Esse If testa qual o Depto foi escolhido
If Cb1.ListIndex = 0 Then 'ListIndex 0 representa o primeiro dpto da lista
Cb2.RowSource = "Adm" 'Adm é o nome da lista criada
Cb2.Text = Cb2.List(0) 'faz com que o Primeiro item da lista já apareça como a primeira opção no combo

ElseIf Cb1.ListIndex = 1 Then 'ListIndex 1 representa o segundo dpto da lista e assim por diante
Cb2.RowSource = "Prod" 'Prod é o nome da lista criada
Cb2.Text = Cb2.List(0) 'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
End If

End Sub

'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
'não esqueça que a numeração da lista inicia em 0
Private Sub UserForm_Activate()
Cb1.RowSource = "Dept"
Cb1.Text = Cb1.List(0) '0 é o primeiro item da lista
End Sub

'Abaixo o evento change de uma combobox somente para voce ver como montar uma mensagem concatenando dados
Private Sub Cb2_Change()
[J3].Value = Cb2.Text
Label3.Caption = "Depto. [" & Cb1.Text & " ] Nome funcionário: [ " & Cb2.Text & " ]"
End Sub

Private Sub Cb1_Change()
[J2].Value = Cb1.Text
Label3.Caption = "Depto. [" & Cb1.Text & " ] Nome funcionário: [ " & Cb2.Text & " ]"
End Sub


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



   Baixe o exemplo de planilha contendo os procedimentos e objetos acima citados
Excel planilha vba usf combobox duplos ligados a departamentos (24.02 kB)

Última atualização em Ter, 23 de Agosto de 2011 10:04  

Comentários  

 
# 11/01/2012 23:20
Incrível!!
encontrei exatamente do jeito que eu estava procurando...
muito obrigado!
Responder | Responder com citação | Citação
 
 
# 11/01/2012 23:21
incrível!
encontrei a solução do jeitinho que eu estava procurando
muito obrigado!
Responder | Responder com citação | Citação
 

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_counterHoje4892
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19939
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês38127
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460956
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