Comentários sobre: VBA – Preenchendo um Listbox com valores únicos de uma lista

Por: Tomás Vásquez

Tomás Vásquez — Sun, 27 Jun 2010 16:35:27 +0000

Willian,

É necessário varrer os itens do ListBox e verificar os selecionados. Esse pergunta já foi respondida em nosso fórum:

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=5&t=251&p=1561&hilit=listbox+selecionados#p1561

Nos vemos lá!

Por: Willian Nascimento

Willian Nascimento — Sun, 27 Jun 2010 16:05:51 +0000

Olá, gostaria de uma ajuda.
Tenho um ListBox e ativei o fmMultiSelectMulti para poder selecionar vários itens. Gostaria de saber se tem como criar uma lista dos itens que são selecionados no ListBox
Desde já agradeço

Por: Tomás Vásquez

Tomás Vásquez — Thu, 24 Sep 2009 19:11:48 +0000

Gregory,

Talvez o código não tenha funcionado porque algumas partes estavam com encodadas pelo HTML. Já está corrigido.

Quanto a seu código, obrigado por mais esta alternativa.

O código acima é só um exemplo. Quanto ao Range, ele pode ser dinâmico.

Mesmo assim, o objetivo do post era o preenchimento de itens únicos em uma lista, e isso ele está fazendo, e bem.

Qualquer outra dúvida ou sugestão, recomendo o fórum:

http://www.tomasvasquez.com.br/forum

Nos vemos lá!

Abraços
Tomás

Por: Gregory

Gregory — Thu, 24 Sep 2009 18:31:59 +0000

Eu utilizo uma maneira mais simples, e muito mais facil de ser lembrada.
Pois essa que vc mostrou não funcionou aki.
-
-
__________________________________________________

Dim linha As Integer
Dim tanto

linha = Worksheets(“Plan1″).Range(“A100″).End(xlUp).Row
tanto = 0

With Worksheets(“Plan1″)

For i = 1 To linha
tanto = tanto 1
Me.ListBox1.AddItem .Cells(tanto, 1).Value
Next

End With

__________________________________________________

Essa função descobre quantas linhas existe preechida e adiciona a “ListBox1″ o tanto determinado de valores até a ultima linha. sem precisar chamar função exterior.

Por: Raquel

Raquel — Sun, 26 Oct 2008 19:35:55 +0000

Olá Tomás!

Muito Obrigada!

Um Abraço!

Por: Tomás Vásquez

Tomás Vásquez — Fri, 05 Sep 2008 13:54:31 +0000

Raquel,

O código abaixo varre os itens de um listbox imprime os selecionados na janela de verificação imediata.

Private Sub ImprimeSelecionados()
For i = 1 To ListBox1.ListCount
If ListBox1.Selected(i – 1) Then
Debug.Print ListBox1.List(i – 1) & ” selecionado”
End If
Next
End Sub

Altere-o como quiser.
Abraços

Por: Raquel

Raquel — Thu, 04 Sep 2008 20:55:37 +0000

Olá!
Não sei se você pode me ajudar, mas estou com uma dúvida para varrer os dados selecionados de uma listBox.
Tenho uma listBox´que é preenchida atravéz de um Select e a pessoa que ira utilizar poderá selecionar mais de um item, e eu preciso saber qual as opções que ela escolheu para que ao clicar em um botão ela possa gerar um arquivo com as informações selecioandas.

Desde já agradeço.