Este fórum está sendo desativado

[SOUZADENILSON]

Boa noite.
Estou desenvolvendo um pequeno sistema onde preciso que no formulario os campos de textbox e label sejam transferidos para a listbox, porém só consigo no máximo 10 colunas.
Como proceder para que consiga mais de 10 colunas na listbox
O formulario que estou tentando fazer este procedimento é Nota Fiscal

[Jimmy]

Olá,

Você deve alterar a propriedade ColumnCount do ListBox para a quantidade de colunas que deseja. De que forma está fazendo que não consegue? Anexe a planilha, ou um modelo dela, já com os dados, a form e a listbox, para que possamos ver o que está acontecendo.

Jimmy San Juan

[SOUZADENILSON]

O números de coluna está definido no ColumnCount do Listbox, porém no corpo do programa especifiquei 12 colunas para o listbox e está dando erro. Segue abaixo a estrutura que está dando erro.

Obs: Os dados das textbox/label do formulario nota fiscal serão incluídos na listbox, depois de todos os itens da nota fiscal especificada estiverem na listbox, que os dados serão salvos na planilha do excel. (Arquivo está anexo na mensagem anterior)

Private Sub Adc_ProdCorpoNFiscal_Click()
Dim RETORNO As Double

Me.Corpo_NFiscal.ColumnWidths = "65;80;60;65;80;60;60;60;60;60;60;60"
Me.Corpo_NFiscal.ColumnCount = 12
'Sheets("dados entrada").Select
'Me.Corpo_NFiscal.List = Range("A:l").Value
'Corpo_NFiscal.Clear 'Caso a range determinada consta algum valor/dado/conteudo
'Inicia o preenchimento normal da listbox
Me.Corpo_NFiscal.AddItem
'Me.Corpo_NFiscal.List = Cod_Id.Value
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 0) = Cod_Id.Value
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 1) = Data_NotaFiscal.Value
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 2) = Num_NotaFiscal.Value
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 3) = Qtde_Itens.Value
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 4) = Frete_Compra.Value
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 5) = Lbl_Taxas.Caption
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 6) = Valor_FreteTaxa.Caption
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 7) = Class_Produto.Caption
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 8) = Id_CodFornec.Caption
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 9) = Id_NomeFornec.Caption
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 10) = Id_CodProduto.Caption
Me.Corpo_NFiscal.List(Corpo_NFiscal.ListCount - 1, 11) = Id_NomeProduto.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_Id.SetFocus
'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.Adc_ProdCorpoNFiscal.Enabled = True
'Me.Adc_ProdCorpoNFiscal.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

[Jimmy]

Olá Souza,

Alterei as Subs UserForm_initialize e Adc_ProdCorpoNFiscal_Click.

Acho que terá que alterar o tamanho das colunas para que não apareça a barra de rolagem horizontal. Com ela, as colunas do cabeçalho e dos dados não vão mais ficar alinhadas. Uma saída para isso é colocar o cabeçalho como a primeira linha dos dados, mas ai, se o operador rolar pra baixo, o cabeçalho não é mais visto.

Nas mensagens acima que você julgar que ajudaram de alguma forma com a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita. Obrigado.

Jimmy San Juan