1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Duvida em Excel

Discussão em 'Programação' iniciada por palmoura, 7 de Agosto de 2006. (Respostas: 1; Visualizações: 813)

  1. 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
     
  2. 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
     

Partilhar esta Página