Aula 2 Cadastro VBA - ListBox
Galera,
Segue mais uma postagem sobre VBA, como usar uma Lista Box.
Acesse http://www.zedasplanilhas.com.br/listbox.html e veja como fazer.
Abaixo o código que utilizei.
Private Sub listarcontatos()
Dim Seleção As String
linha = 1
Do Until Sheets("Fornecedores").Cells(linha, 2) = ""
linha = linha + 1
Loop
Seleção = "Fornecedores!B1:C" & linha - 1
ListBox1.ColumnCount = 2
ListBox1.RowSource = Seleção
Numlinhas = linha - 1
End Sub
Abraços e seja feliz.
Segue mais uma postagem sobre VBA, como usar uma Lista Box.
Acesse http://www.zedasplanilhas.com.br/listbox.html e veja como fazer.
Abaixo o código que utilizei.
Private Sub listarcontatos()
Dim Seleção As String
linha = 1
Do Until Sheets("Fornecedores").Cells(linha, 2) = ""
linha = linha + 1
Loop
Seleção = "Fornecedores!B1:C" & linha - 1
ListBox1.ColumnCount = 2
ListBox1.RowSource = Seleção
Numlinhas = linha - 1
End Sub
Abraços e seja feliz.
Comentários
Postar um comentário