Adicionar no listbox vários itens com mas de 10 colunas para depois salvar na planilha
Enviado: 15 Set 2022 às 09:36
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
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