Ativar as lista dos ComboBoxes no UserForm

[silva_jmp]

Olá, sou iniciante em VB em Excel, e preciso da ajuda de alguém

Fiz um userform no excel para cadastro de atividades da empresa, contendo vários comboboxes:

- Descrição do Material (Plan2)

- Solicitante (Plan3)

- Área Industrial (Plan4)

- Classificação do Serviço (Plan5)

- Equipe de Manutenção (Plan6)

- Tipo de Manutenção (Plan7)

Dentro o mesmo UserForm coloquei botão para chamar os userformes correspondente as comboboxes acima, assim quando são cadastrados item novos os combobox atualizam automaticamente, disponibilizando a visualização da caixa de listagem de cada uma, pois bem, no combobox (Descrição do Material) utilizei:

Private Sub UserForm_initialize()
Call Atual_ComboSet
End Sub
-------------------------------------------------------------------
Sub Atual_ComboSet()

Cad_Ativ.ComboBox1.Clear 'Cadastro de materiais'
Dim linha
 x = 2

While (Plan2.Cells(x, 3) <> "")
Cad_Ativ.ComboBox1.AddItem (Plan2.Cells(x, 3).Text)
x = x + 1
Wend
End Sub

...deu certo, porém não esta atualizando automaticamente, tenho que sai do userform principal e entrar novamente.

no combobox (Solicitante) utilizei:

Private Sub UserForm_Activate()
Cad_Ativ.ComboBox2.Clear 'Cadastro de Solicitantes'

Dim a
a = 2

While (Plan2.Cells(a, 3) <> "")
Cad_Ativ.ComboBox2.AddItem (Plan3.Cells(a, 3).Text)
a = a + 1
Wend

End Sub

...deu certo, mas também não esta atualizando automaticamente, tenho fazer o processo acima.

Não sei como proceder para os outros comboboxes e a autlização automatica, podem me ajudar?

Editado Dezembro 6, 2010 por kuroi
Adicionar tag CODE

[Renato Knupp]

tente escrever seu codigo dentro do evento active do form e não no initialize.