Combobox dependentes

[Marco Freitas]

Olá! Estou a tentar desenvolver duas comboboxes que são dependentes uma da outra, ou seja, quando na primeira seleciono algo na outra a lista muda conforme a selecção na primeira combobox.

Eis o código que tenho:

Sub UserForm_Initialize()
Dim linha As Integer
linha = 5

ComboBox1.Clear
ComboBox2.Clear

With Worksheets("Folha1")
Do While .Cells(linha, 1).Value > ""
ComboBox1.AddItem .Cells(linha, 1).Value
linha = linha + 1
Loop
End With


'Este select case serve para de acordo com o que se escolhe na combobox1, preencher e abrir outra combobox (a 2) 
With Worksheets("Folha1")
linha = 4
Select Case ComboBox2.listindex
Case 0     'Este é o index em que está o valor na combobox1
    Do While .Cells(linha, 2).Value > ""
    ComboBox2.AddItem .Cells(linha, 2).Value
    linha = linha + 1
    Loop

Case 1
Do While .Cells(linha, 3).Value > ""
    ComboBox2.AddItem .Cells(linha, 3).Value
    linha = linha + 1
    Loop

End Select
End With
End Sub

Espero que me ajudem, já tou a desesperar

[Marco Freitas]

Alguém por favor, estou mesmo a precisar de ajuda.

[JoséA]

Alguém por favor, estou mesmo a precisar de ajuda.

Mostra o que já tem pronto...