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.


Comentários

Postagens mais visitadas deste blog

Curso Google Sheets com HTML e JS - Aula-01

Curso Google Sheets com HTML e JS - Aula-02