Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Comobox encadeado

Dúvidas gerais sobre Excel
fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Comobox encadeado

Mensagem por fabiodias »

Olá pessoal, gostaria de uma ajuda se possível..

nessa plan ilha em anexo fiz combobox encadeado, mas ta repetindo no final, por exemplo:


quando voce escolhe o "Pacote de Trabalho - Serviços Preliminares" e a "Atividade - Terraplanagem" a "Tarefa" deveria vir apenas 3, porem ela aparece 6 tarefas porque puxa as tarefas ligadas ao "Pacote de Trabalho - Urbanismo e Paisagismo", pois quando chega na atividade as duas tem "Terraplanagem" então reconhecem como se fosse uma coisa só, mas não é porque o Pacote de Trabalho é diferente.


deu pra entender??


Desde já agradeço ao pessoal do Forum.
Anexos
ComboBox Encadeado.rar
Combobox Encadeado
(135.8 KiB) Baixado 283 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: Comobox encadeado

Mensagem por fabiodias »

Alguém pode ajudar nessa?


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Comobox encadeado

Mensagem por Mauro Coutinho »

Fabio, se entendi corretamente, você tem de procurar pelo valor refrente ao ComboBox3 na coluna C e então prencher o proximo combo.

Troque sua rotina pela a abaixo, e faça os testes se é isto:

Código: Selecionar todos

Sub PreencheCombo5()
Dim OCOLLECTION As New Collection
Dim VARVALUE As Variant
Dim i As Long
Dim L As Long
L = 2
ComboBox5.Clear

On Error Resume Next
    For Each VARVALUE In Plan1.Range("E2:E" & Plan1.Range("A65536").End(xlUp).Row)
        If ComboBox3.Value = Plan1.Range("C" & L).Value Then
            OCOLLECTION.Add VARVALUE, VARVALUE
        End If
        
        L = L + 1
        
    Next

For i = 1 To OCOLLECTION.Count
    ComboBox5.AddItem OCOLLECTION.Item(i)
Next i

End Sub
[]s


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: Comobox encadeado

Mensagem por fabiodias »

Oh Mauro, obrigado pela dica, mas infelizmente não funcionou, quando troca para combobox3 ele nem puxa para os outros combobox as tarefas, fica em branco.

:(

mas obrigado, vou continuar tentanto aqui, se souber de alguma coisa agradeço!!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder