none
Criar um formulário de pesquisa RRS feed

  • Pergunta

  • Tenho uma planilha de dados com várias creches e criei um formulário para criar novos registros, gostaria de saber como faço para preechener um ListBox com os dados da tabela.

    Se alguém puder me ajudar...

    Vlw desde já

    terça-feira, 19 de janeiro de 2010 10:55

Respostas

Todas as Respostas

  • Private Sub UserForm_Initialize()
    Dim lastRow As Long
    Dim i As Integer
    ListBox1.Clear
    ' Verifica qual a ultima linha preenchida
    lastRow = Plan1.Range("A65000").End(xlUp).Row
    'adiciona dados
    For i = 2 To lastRow
    ListBox1.AddItem Plan1.Range("A" & i)
    Next
    End Sub
    

    Aqui considerando coluna A altere conforme seus dados.
    jose
    terça-feira, 19 de janeiro de 2010 13:05
  • Private Sub UserForm_Initialize()
    
    Dim lastRow As Long
    
    Dim i As Integer
    
    ListBox1.Clear
    
    ' Verifica qual a ultima linha preenchida
    
    lastRow = Plan1.Range("A65000").End(xlUp).Row
    
    'adiciona dados
    
    For i = 2 To lastRow
    
    ListBox1.AddItem Plan1.Range("A" & i)
    
    Next
    
    End Sub
    
    
    
    

    Aqui considerando coluna A altere conforme seus dados.
    jose
    Vlw :) - vou usar OBRIGADO ! Fique com Deus!

    Leandro Sarno
    terça-feira, 19 de janeiro de 2010 13:16
  • Vlw, disponha.
    jose
    • Marcado como Resposta LeandroSarno quarta-feira, 20 de janeiro de 2010 14:18
    terça-feira, 19 de janeiro de 2010 23:54