3 formas de carregar uma listbox no VBA

Curso de VBA do Zero ao Avançado - Assine por apenas R$49,90 por mês sem fidelidade👇🏼

Ao fazer sua assinatura hoje você terá acesso imediato a:

✅ Curso de VBA Completo (Do básico ao avançado)
✅ Curso de Excel Completo (Do básico ao avançado)
✅ Plano de Estudos Personalizado
✅ Lista de Exercícios
✅ Desenvolvimento de Sistemas e Programas Práticos em VBA
✅ Integração do VBA com Pacote Office (Word, Power Point, Access e Outlook)
✅ Integração do VBA com MySQL Online (Banco de dados online)
🎁 Lives e Eventos ao Vivo da DATA7 Academy (Todas as edições da Semana VBA na Prática)
🎁 Curso Completo de Web Scraping (Bônus por tempo limitado)
🎁 Curso Básico de Power BI (Bônus por tempo limitado)
🎁 Como ter um perfil atrativo no Linkedin (Bônus por tempo limitado)
🎁 Inglês para Entrevistas (Bônus por tempo limitado)
📃 Certificado de conclusão

➜ Conecte-se com a DATA7 Academy nas redes sociais:

[DATAAcademy]

Curso de VBA do Zero ao Avançado - Assine por apenas R$49, 90 por mês sem fidelidade👇🏼

[meuexcelfacil]

Boa tarde!

Conteúdo bem elaborado! Parabéns.

Uma dica para utilizar ao "RowSource" é você formatar seus dados como tabela. Altere o nome de sua tabela, inclua ela no comando RowSource e com isso toda nova inclusão entrará automaticamente na sua ListBox.

Sem dúvidas é o comando mais fácil de se utilizar!

Um abraço.

[RodrigoOliveira-ixgz]

Parabéns pela aula, explicação bem clara e objetiva, até agora foi a melhor explicação que encontrei sobre este assunto

[kayzer]

voce explica muito bem.. consegui logo de primeira

[franciscowaldemar]

Gostei da didática pois é passada de forma tranquila e boa explicação.vapenas notei que todos os instrutores colocam as variáveis no início impondo ao ouvinte aceitar. Como se tomasse um remédio sem saber para que estou tomando. Depois que tomo e que no final me vem a explicação. Monte o código então mostre a necessidade de criar uma variável para fazer funcionar o programa.

[anitaferreira]

Voce tem alguma aula gravada sobre ListBox com mais de 30 colunas e usada em um MultiPage? Se tiver, poderia disponibilizar? Muito obrigada.

[mdobicz]

Me escrevi no canal, conteúdo da hora manoooo!

[marciocustodio]

Muito boa a explicação, mas fiquei na duvida caso eu queira definir qual coluna inserir no listbox, sem ser sequencial ex: col1, col3, col8 e assim por diante. obg abraços.

[jacksonepje]

Como adiciona o cabeçalho a listbox através do códgo?

[jarvismendezmiranda]

Saludos desde Venezuela!! El idioma no es impedimento para entender su explicación!! Eso quiere decir que aunque esté en portugués en español se entiende muy claro.

[seomarreis]

Olá, tudo bem?
Usando o método “ Variável = a Range.Value e ListiBox .List = a Variável” que vc ensina neste vídeo, da para formatar uma coluna em formato de moeda, ou só dá para formatar usando o método Arrays para preencher a ListBox e conseguir formatar?

[Curumin]

Saudações, Israel! Há um conflito no meu código e ainda não consegui identificar. Modifiquei alguns campos acrescentando datas e horários, por exemplo, mas não consigo a pesquisa por data ou por outros campos, senão apenas um. Inseri 7 campos para a listagem e executando o filtro todos aparecem. Quando preencho o campo de pesquisa não há retorno. Um único campo aceita a filtragem, mas para isso tenho de fechar e reiniciar a execução. As linhas dos TextBox seguem o mesmo raciocínio, mas não identifico o erro. Pode me ajudar?
Lembrando que esse conflito eu me refiro às aulas 1, 2 e 3 Aplicando Filtro Avançado.

[venancioekundi]

receba os meus cumprimentos mediante a hora do dia desde ja os meus parabenns tenho aprendido bastante com as suas aulas, tengo uma dúvida e agradeceria o seu apoio. estou desenolvendo um projecto e estou com as seguintes dificuldades: inserir os botoes maximizar e minimizar como bloquear totalmente o projecto, como parar de mostrar a folha do excer antes da folha de login. agradeceria bem haja

[FernandoSilva-oguu]

Excelente explicação, só não consegui entender porque esta dando erro quando cadastro novo item e ao fechar o formulário o Excel reinicia sem efetuar o novo cadastro, estou utilizando o Me.LISTA.RowSource = "Clientes" para carregar a listbox.

[antoniolelio]

Boa tarde! Ótimo vídeo e bem explicado! Nota-se que no caso de preencher por ROWSOURCE, seria mais para visualizar os dados sem permissão de editar. Parabéns pelo canal. Obrigado.


Agora que tal mostrar como transferir os dados que foram adicionados à ListBox para planilha? Seria bem legal um vídeo ensinando.

[glaubercaetano]

Bom dia amigo, muito obrigado por compartilhar conhecimento. Deus Abençoe cada vez mais com sabedoria. Fiz um cadastro de cliente para carregar no formulário e fazer pesquisas, mas quando tem mais de 100 dados a carregar fica muito lento, teria como fazer ao invés de carregar todos os conteúdos da planilha no formulario, fazer somente carregar os que busco escrito na linha de pesquisa?
Muito obrigado, tudo de bom?

[Irlanaraujo]

Olá. Daria para explicar como fixar a 1ª linha como cabeçalho ?

[haroldopassos]

Tenho interesse no curso, quando você fala em ShowModal para ocultar, VC se refere a um formulário, mas minha ListBox está em uma aba de uma Multi Página, teria algo parecido?
No seu exemplo você trabalha com apenas uma planilha, no caso de várias o comando por exemplo seria este? 'ListBox1.RowSource =

[luciamariaandrade]

Ótima Explicação, muito obg. Mas na opção rource se em vez de você colocar A1:D5 É SÓ COLOCAR A1: D1048576 Que nesse caso seria a última linha da planilha, então vai mostrar tudo, estou certa?

[LuisFernando-xzfv]

Bom dia! Estou tentando inserir a programação pelo additem mas apresenta um erro que não consegui ajustar "Não foi possivel definir a propriedade list. Indice de matriz de propriedade invalido". Segue abaixo condigo utilizado, em resumo ele deve me apresentar uma listagem ignorando as linhas que estão em branco na primeira coluna. apresentando o valor de todas as linhas que possuem valor na primeira coluna. Consegue me ajudar?

Dim linha As Integer
Dim n As Integer
linha = 1
n = lb_contratos.ListCount - 1
Do Until Planilha9.Cells(linha, 2) = ""
If Planilha9.Cells(linha, 1) <> "" Then
With Me.lb_contratos
.AddItem
.List(n, 0) = Planilha9.Cells(linha, 1)
.List(n, 1) = Planilha9.Cells(linha, 2)
.List(n, 2) = Planilha9.Cells(linha, 3)
.List(n, 3) = Planilha9.Cells(linha, 4)
.List(n, 4) = Planilha9.Cells(linha, 5)
.List(n, 5) = Planilha9.Cells(linha, 6)
.List(n, 6) = Planilha9.Cells(linha, 7)
.List(n, 7) = Planilha9.Cells(linha, 8)
.List(n, 8) = Planilha9.Cells(linha, 9)
.List(n, 9) = Planilha9.Cells(linha, 10)
.List(n, 10) = Planilha9.Cells(linha, 11)
.List(n, 11) = Planilha9.Cells(linha, 12)
.List(n, 12) = Planilha9.Cells(linha, 13)
End With
End If
linha = linha + 1
n = n + 1
Loop
Me.lb_contratos.ColumnCount = 13
Me.lb_contratos.ColumnHeads = True