none
Criar um formulário de pesquisa

    Question

  • 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á

    Tuesday, January 19, 2010 10:55 AM

Answers

All replies

  • 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
    Tuesday, January 19, 2010 1:05 PM
  • 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
    Tuesday, January 19, 2010 1:16 PM
  • Vlw, disponha.
    jose
    • Marked as answer by LeandroSarno Wednesday, January 20, 2010 2:18 PM
    Tuesday, January 19, 2010 11:54 PM