Preciso que esse código abaixo eu consigo inserir os valores de textbox/label em uma listbox, porém a listbox aceita no máximo 10 colunas.Preciso que a listbox aceite mais que 10 colunas.
- Código: Selecionar todos
Private Sub Adc_ProdCorpoNFiscal_Click()
Dim RETORNO As Double
Corpo_NFiscal.ColumnWidths = "65;80;60;65;80;60;60;60;60;60;60"
'Dim TextoCelula As String
'Set ws = ThisWorkbook.Worksheets("fornecedor")
'Me.Lst_Fornecedor.Clear
'Me.Lst_Fornecedor.ColumnCount = 5
'Me.Lst_Fornecedor.ColumnWidths = "50;150;130;200;80;70;70;70;70;70;70"
Corpo_NFiscal.ColumnCount = 11
Corpo_NFiscal.AddItem
Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 0) = Cod_Id.Value
Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 1) = Data_NotaFiscal.Value
Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 2) = Num_NotaFiscal.Value
Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 3) = Qtde_Itens.Value
Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 4) = Frete_Compra.Value
Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 5) = Lbl_Taxas.Caption
Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 6) = Valor_FreteTaxa.Caption
Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 7) = Class_Produto.Caption
Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 8) = Id_CodFornec.Caption
Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 9) = Id_NomeFornec.Caption
'Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 10) = Id_CodProduto.Caption
'Lst_FornecProd.List(Lst_FornecProd.ListCount - 1, 9) = Total
'Lst_CorpoNFiscal.List(Lst_CorpoNFiscal.ListCount - 1, 10) = Prc_Custo.Caption
'MsgBox ("Item incluido com sucesso!")
'Call Calculo_Colunas
RETORNO = MsgBox("Produto incluso com sucesso. Deseja incluir mais para o fornecedor?", vbYesNo, "Retorno")
'MsgBox retorno
If RETORNO = 6 Then
Me.Pesq_Produto.Value = Empty
Me.Pesq_Produto.SetFocus
'Me.Cod_Prod = Empty
'Me.Desc_Prod.Caption = Empty
'Me.Btn_AdcListagem.Enabled = True
'Dados_Produto.Show
'Me.Btn_AdcListagem.Enabled = True
'Me.Desc_Prod = Empty
'dados_produto.cla
'Me.Classif_Produto.Caption = Empty
'Me.Perc_Calc.Caption = Empty
'Me.Btn_AdcListagem.Enabled = True
'Me.Btn_AdcListagem.SetFocus
'Me.InfoProduto.Caption = Empty
'Me.Calculo.Caption = Empty
'Me.Qtde_Embal.Caption = Empty
'Me.Valor.Value = Empty
'Me.FreteUnitario.Caption = Empty
'Me.TotalProduto.Caption = Empty
'Me.DataRecebNFiscal.SetFocus
'Me.Btn_BuscaProduto.SetFocus
Else
'Call Somar
Call Salvar_NotaFiscal
'Me.Salva_Info.Enabled = True
Exit Sub 'ADICIONADO
End If
End Sub