ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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

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 171 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 » Sex Mar 30, 2012 1:38 pm

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

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


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

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

Re: Comobox encadeado

Mensagem por fabiodias » Qui Abr 05, 2012 9:25 pm

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