Página 1 de 1

Comobox encadeado

Enviado: Qui Mar 08, 2012 9:54 pm
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.

Re: Comobox encadeado

Enviado: Sex Mar 30, 2012 1:38 pm
por fabiodias
Alguém pode ajudar nessa?

Re: Comobox encadeado

Enviado: Sáb Mar 31, 2012 1:42 am
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

Re: Comobox encadeado

Enviado: Qui Abr 05, 2012 9:25 pm
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!!!