Este fórum está sendo desativado

[batistathor]

Prezados bom dia , alguém pode me dar uma ajuda esse código adiciona itens no listbox para depois salvar na planilha ,
sendo que no listbox só consigo adicionar 10 colunas .
alguém tem uma solução para poder adicionar mas de 10 colunas e depois salvar na planilha?
desde já agradeço pela a ajuda.

Private Sub AdicionarList_Click()

Dim LinhaListbox As Integer

LinhaListbox = Me.ListCad.ListCount

ListCad.AddItem (Me.ListCad.ListCount + 1)
ListCad.List(LinhaListbox, 1) = TxtDataRelat
ListCad.List(LinhaListbox, 2) = TxtNomeRelat
ListCad.List(LinhaListbox, 3) = CmbEventoRelat
ListCad.List(LinhaListbox, 4) = CmbsolictanteRelat
ListCad.List(LinhaListbox, 5) = CmbautorizadoRelat
ListCad.List(LinhaListbox, 6) = cmbSuperviRelat
ListCad.List(LinhaListbox, 7) = TxtGarçomRelat
ListCad.List(LinhaListbox, 8) = TxtLocalRelat
ListCad.List(LinhaListbox, 9) = CmbMaterialRelat' obs so condigo adicionar até aqui

ListCad.List(LinhaListbox, 10) = CmbalimentRelat
ListCad.List(LinhaListbox, 11) = TxtPrecoRelat
ListCad.List(LinhaListbox, 12) = TxtUndRelat
ListCad.List(LinhaListbox, 13) = TxtTotalRelat

LinhaListbox = LinhaListbox + 1


End Sub

[luizpaps]

veja se esta matéria lhe ajuda:

https://www.tomasvasquez.com.br/blog/mi ... 0-colunas/

[batistathor]

bom dia luiz , o problema nao e preencher os dados da planilha pra o listbox , o que eu quero e ir adicionando varias informações no listbox e salvar na planilha so que no formulário tenho 14 textebox para adicionar no listbox e pelo que percebi o listbox so aceita 10 colunas ...

[osvaldomp]

Uma opção é ao invés de carregar os dados diretamente na ListBox, carregá-los antes em uma matriz e depois carregar da matriz na ListBox.

Outra opção é o macete explicado neste vídeo ~~~> https://www.youtube.com/watch?v=7dNEK__40O8