Marcelo, você deseja um modelo em um arquivo pronto ou as linhas de comando? Se forem as linhas que fiz de ComboBox para preenchimento de outra ComboBox aí vão:
Private Sub CboResponsavel_Change()
If cboUnidade.Value = "A" Then
cboResponsavel.RowSource = "Responsavel!A3"
ElseIf cboUnidade.Value = "1º" Then
cboResponsavel.RowSource = "Responsavel!B3"
ElseIf cboUnidade.Value = "2º" Then
cboResponsavel.RowSource = "Responsavel!C3"
ElseIf cboUnidade.Value = "3º" Then
cboResponsavel.RowSource = "Responsavel!D3"
ElseIf cboUnidade.Value = "4º" Then
cboResponsavel.RowSource = "Responsavel!E3"
ElseIf cboUnidade.Value = "5º" Then
cboResponsavel.RowSource = "Responsavel!F3"
ElseIf cboUnidade.Value = "6º" Then
cboResponsavel.RowSource = "Responsavel!G3"
ElseIf cboUnidade.Value = "7º" Then
cboResponsavel.RowSource = "Responsavel!H3"
ElseIf cboUnidade.Value = "8º" Then
cboResponsavel.RowSource = "Responsavel!I3"
ElseIf cboUnidade.Value = "9º" Then
cboResponsavel.RowSource = "Responsavel!J3"
ElseIf cboUnidade.Value = "10º" Then
cboResponsavel.RowSource = "Responsavel!K3"
ElseIf cboUnidade.Value = "11º" Then
cboResponsavel.RowSource = "Responsavel!L3"
ElseIf cboUnidade.Value = "12º" Then
cboResponsavel.RowSource = "Responsavel!M3"
ElseIf cboUnidade.Value = "13º" Then
cboResponsavel.RowSource = "Responsavel!N3"
ElseIf cboUnidade.Value = "14º" Then
cboResponsavel.RowSource = "Responsavel!O3"
ElseIf cboUnidade.Value = "15º" Then
cboResponsavel.RowSource = "Responsavel!P3"
ElseIf cboUnidade.Value = "16º" Then
cboResponsavel.RowSource = "Responsavel!Q3"
ElseIf cboUnidade.Value = "17º" Then
cboResponsavel.RowSource = "Responsavel!R3"
ElseIf cboUnidade.Value = "18º" Then
cboResponsavel.RowSource = "Responsavel!S3"
End If
End Sub
A partir de tabelas diferentes criei um formulário que concentra algumas informações. Dentre essas informações, constam os campos Unidade e Responsável. O campo unidade está em uma ComboBox e campo Responsável, também. Quando seleciono uma Unidade específica, o nome do Responsável fica disponível automaticamente em outra ComboBox mesmo sem preenche-la. Quero que o Responsável apareça em uma TextBox automaticamente quando selecionar uma Unidade. Não sei se fui claro rs
Postado : 03/06/2016 1:55 pm