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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Comobox encadeado
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Comobox encadeado
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:
[]s
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
Re: Comobox encadeado
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!!!
mas obrigado, vou continuar tentanto aqui, se souber de alguma coisa agradeço!!!