Duvida em Excel

[palmoura]

Boas pessoal,

O meu problema é este,

Estou a usar dois ficheiros de excel. Um que contem informação relativa a clientes e outro que contém uma lista de localidades. O que eu pretendo é fazer isto:

Tenho uma comboBox que vai ser preenchida com os valores que estão na tabela localidade. Só não sei é como fazer isto. Que estruturas de controlo tenho que usar. Agredecia uma ajuda.

Cumps

 

[palmoura]

Duvida já resolvida

ja consegui descobrir como dar a volta à questão/dúvida que tinha
aqui fica o código necessário para fazer isto.

Sub preenche_dados()
Dim listItems As Variant, i As Integer ' variavel que vai receber os dados a colocar na combo
Dim sourceWB As Workbook ' source do workbook
Dim path As String ' caminho do ficheiro
Const nomeFich As String = "nome_ficheiro.xls" ' nome do ficheiro
path = ThisWorkbook.path & "\" & nomeFich
With Me.cbListaDistritos
.Clear ' limpar o conteudo da comboBox
Application.ScreenUpdating = False ' prevenir o utilizador para ñ ver a origem onde estão os daos
Set sourceWB = Workbooks.Open(path, _
False, True) ' abrir o ficheiro em modo de leitura
listItems = sourceWB.Worksheets(1).Range("B2:B19").Value ' recebe os dados no intervalo definido
sourceWB.Close False ' fecha o ficheiro de origem sem gravar
Set sourceWB = Nothing ' desaloca o ficheiro
Application.ScreenUpdating = True
listItems = Application.WorksheetFunction.Transpose(listItems)
' converte os valores em "formato" de array
For i = 1 To UBound(listItems)
.AddItem listItems(i) ' preenche a comboBox
Next i
.ListIndex = -1 ' se nao houver dados seleccionados então ele coloca "0"

End With

End Sub

Fiquem bem