Excel planilha vba usf combobox duplos ligados a departamentos

Seg, 29 de Novembro de 2010 18:32 Expedito Marcondes
Imprimir

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)

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