VBA - Preenchendo um listbox com mais de 10 colunas

[webmaster]

Modelo utilizado o artigo: http://wp.me/pes9W-18d

[Mikel Silveira Fraga]

Tomás, bom dia.

Cara, muito bacana o modelo. Digo isso pois a um tempo atrás, me deparei com essa dificuldade, mas consegui dar a volta através dos Modelos de Cadastro, postado aqui no Fórum e no Blog.

Mas é sempre interessante ter o problema/solução como foco de um tópico.

Mais uma vez, trabalho de Mestre.

Forte abraço meu amigo.

[jp.bolsairriga]

Bom dia a todos.

Ótimo exemplo de listbox com mais de 10 colunas.
Minha duvida é de como começar o preenchimento a partir da linha 22.

Abraços

[Mikel Silveira Fraga]

JP.Bolsairriga, bom dia.

Nesse caso, você pode atribuir a uma variável, o valor da linha que iriá iniciar o processo de inclusão. Seria algo parecido com o código abaixo:

Código: Selecionar todos

Dim lin As Integer
lin = ListBox1.ListCount 'Neste caso, 21 linhas preenchidas.
ListBox1.List(lin,0) = "Texto recebido na linha 22".

Isso é apenas uma orientação básica, que precisa ser adaptada a sua realidade.

Espero que esse comando possa ajudar.

Abraços e excelente final de semana.

[jp.bolsairriga]

Mikel, boa noite

Consegui fazer as alterações mto obg

[milton]

Boa tarde!
Como filtrar a coluna "O" (15)?
A coluna contém "SIM" e "" (vazio)
Quero que carregue só ""
Obrigado!

[fbzam]

Boa tarde
Pois é vi em vários lugares como resolver esse problema buscando dados da planilha para a Listbox, porem o meu problema é que tenho que lançar de diversas textbox e combos que retido dados dos produtos escolhidos. como seria esse procedimento? tenho um botão incluir produto e ele lança os diversos itens digitados e pegos nos textbox e de dados de diversas outras planilhas como valores de venda, de custo, dados para pagamento etc.

[Basole]

fbzam, com o Listbox acrescentando dados de textbox e combobox, seria mais ou menos assim:

Código: Selecionar todos

With ListBox1
 
 .List(.ListCount - 1, 0) = TextBox1.Text
 .List(.ListCount - 1, 2) = comboBox1.Text
 .List(.ListCount - 1, 3) = TextBox2.Text
 .List(.ListCount - 1, 4) = TextBox3.Text
 .List(.ListCount - 1, 5) = comboBox2.Text
 .List(.ListCount - 1, 6) = TextBox4.Text
 'List(.ListCount - 1, 7)  .....
 ' ............. .. . . . . . . . . . . .  . .  . 
End With

Caso tenha alguma dificuldade, poste seu arquivo ou um modelo bem próximo com alguns dados fictícios, para tentarmos ajudar.

Abs.

[fbzam]

Obrigado Basole, esta noite vou tentar usar desta forma e ver se coloca mais de 10 colunas caso não consiga vou limpar os dados de uma planilha e enviar para ver se alguem consegue me ajudar, o bom mesmo seria o listview retornar. mas pelo jeito foi um erro usa-lo mesmo

[Mikel Silveira Fraga]

Boa tarde a todos.

Pessoal, sobre essa questão de preencher acima de 10 colunas no ListBox, no blog do Tomás tem um artigo sobre isso. Segue link:
- Artigo Blog Tomás Vásquez

Até onde sei, o método desse artigo é a única forma de se preencher acima de 10 colunas em uma ListBox.

Dêem uma olhada.