Ir para o conteúdo
Guilherme Artiles

Comboboxs encadeados sem repetição de valores

Mensagens Recomendadas

Guilherme Artiles

Ola pessoal, estou precisando de uma ajudinha.

tenho duas colunas departamento e linha na mesa sheet

preciso carregar uma combobox usando VBA com a coluna departamento sem repetiçao e ao escolher um item da combobox, carregar uma segunda combobox com os dados da Linha tambem sem repetiçao.

tenho um codigo que consigo carregar a primeira combobox, mas como carrego a segunda combobox a partir do que foi selecionado na primeira ?

Private Sub UserForm_initialize()

Dim ultimaLin As Long, area As New Collection

Dim Value As Variant, temp() As Variant

On Error Resume Next

ultimaLin = Sheets("Estruturas_mercadologicas").Range("B" & Rows.Count).End(xlUp).Row

'A linha abaixo refere-se a coluna que contém os dados da lista

'temp = Sheets(“Plan1”).Range(“E2:E” & ultimaLin).Value

temp = Sheets("Estruturas_mercadologicas").Range("b2:b" & ultimaLin).Value

For Each Value In temp

If Len(Value) > 0 Then area.Add Value, CStr(Value)

Next Value

For Each Value In area

Departamento.AddItem Value

Next Value

Set area = Nothing

End Sub

Departamento Linha

automotivo Autopeças

automotivo Autopeças

automotivo Autopeças

automotivo Autopeças

automotivo Autopeças

automotivo Autopeças

Bebes Para Mamae

Bebes Para Mamae

Bebes Para Mamae

Bebes Enxoval

Bebes Enxoval

Departamento linha AUTOMOTIVO AUTOPECAS AUTOMOTIVO AUTOPECAS AUTOMOTIVO AUTOPECAS AUTOMOTIVO AUTOPECAS AUTOMOTIVO CENTRAL MULTIMIDIA AUTOMOTIVO FUNILARIA AUTOMOTIVO CALOTA AUTOMOTIVO CALOTA AUTOMOTIVO CALOTA AUTOMOTIVO Seguros e Servicos AUTOMOTIVO Seguros e Servicos BEBES PARA A MAMAE BEBES PARA A MAMAE BEBES ENXOVAL DO BEBE BEBES ENXOVAL DO BEBE BEBES ENXOVAL DO BEBE BEBES ENXOVAL DO BEBE

Editado por Guilherme Artiles

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
acao

boas

ao carregares a 2 combo tens que verificares vários factores.

1. criar range com a coluna departamento e coluna da 2 combo.

2. ao percorrer as linhas verificar se a célula da coluna departamento é igual à combo e sendo positivo adicionar o valor da célula da coluna da 2 combo à 2ª combo.

cumps

acao

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.