Comboboxs encadeados sem repetição de valores

[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

Edited February 19, 2016 at 12:32 AM by Guilherme Artiles

[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