Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Cupom não Fiscal Somatória após ultima linha ListBox
Moderador: joseA
Cupom não Fiscal Somatória após ultima linha ListBox
Olá boa tarde preciso de ajuda neste código, o objetivo é colocar na ultima linha após o ultimo lançamento deste cupom não fiscal, a quantidade de Itens, o valor total, e mais abaixo ainda o nome do cliente o problema é que ao dar enter após inserir a quantidade dá erro, já testei e não consigo descobrir o erro alguém pode me ajudar?
- Anexos
-
- Vendas Cupom não Fiscal.rar
- (1.13 MiB) Baixado 329 vezes
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Cupom não Fiscal Somatória após ultima linha ListBox
Veja se atende
Código: Selecionar todos
Sub Total() 'Este codigo coloca a quantidade de Itens e a soma na ultima linha após o lançamento
'On Error GoTo Erro
Dim linha As Integer
Dim Valor As Currency, Quantidade As Double
For linha = 0 To ListBox_Itens.ListCount - 1
If IsNumeric(ListBox_Itens.List(linha, 2)) = True Then Quantidade = Quantidade + CDbl(ListBox_Itens.List(linha, 2))
Next
For linha = 0 To ListBox_Itens.ListCount - 1
If IsNumeric(ListBox_Itens.List(linha, 4)) = True Then Valor = Valor + CDbl(ListBox_Itens.List(linha, 4))
Next
linha = ListBox_Itens.ListCount
Me.ListBox_Itens.AddItem ""
ListBox_Itens.List(linha, 1) = "Quant.Total"
ListBox_Itens.List(linha, 2) = Quantidade - 1
ListBox_Itens.List(linha, 2) = Format(ListBox_Itens.List(linha, 2), "0.00")
ListBox_Itens.List(linha, 3) = "Total"
ListBox_Itens.List(linha, 4) = Valor
ListBox_Itens.List(linha, 4) = Format(ListBox_Itens.List(linha, 4), "currency")
MsgBox "" & linha
Exit Sub
Erro:
MsgBox "Erro0!", vbCritical, "SOMA"
End Sub
Re: Cupom não Fiscal Somatória após ultima linha ListBox
Olá estamos quase lá, o que aconteceu, o código parou de funcionar após inserir a primeira linha do cupom, tudo que eu acrescentei ficou abaixo dele, ele só funcionou na primeira linha aqui eu queria que ele continuasse e sempre aparecesse abaixo de todas as linhas de produtos inseridos, que ele fosse se movimentando para baixo, com relação a quantidade que eu me refiro seria a quantidade de produtos ou linhas, ou seja no caso ele contaria a quantidade de linhas, também não sei se no caso ele está somando o valor total, por exemplo 3 produtos com o valor total de 100, ele deveria somar 3 x 100 escrevendo Total 300, é possível fazer assim?
Eis o que está acontecendo
Anexei uma imagem print para mostrar o que aconteceu
- Anexos
-
- Print Soma na ultima linha.rar
- Este é o print do que acontece
- (50.83 KiB) Baixado 320 vezes
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Cupom não Fiscal Somatória após ultima linha ListBox
Vamos pensar um pouco: É utilizando um controle ListBox, os dados/valores nele inseridos são estáticos;
para que se "movimente" entre os registros,considerando inclusão e/ou exclusão de linhas, é mandatório antes dessas operações, a exclusão desse registro/linha para posterior reinclusão na nova posição.
Efetuar essa manobra durante o preenchimento/detalhamento de produtos acredito ser anti-produtivo; e essa operação deva ser efetuada uma única vez no fechamento da venda/cupom; a exemplos dos aplicativos comerciais.
Se deseja ir acompanhando a evolução do preenchimento,sugiro acrescentar apos o listbox label ou texbox que receba essas contas conforme forem sendo incluidas/excluidas e ao fechamento as "transfira" para o listbox
para que se "movimente" entre os registros,considerando inclusão e/ou exclusão de linhas, é mandatório antes dessas operações, a exclusão desse registro/linha para posterior reinclusão na nova posição.
Efetuar essa manobra durante o preenchimento/detalhamento de produtos acredito ser anti-produtivo; e essa operação deva ser efetuada uma única vez no fechamento da venda/cupom; a exemplos dos aplicativos comerciais.
Se deseja ir acompanhando a evolução do preenchimento,sugiro acrescentar apos o listbox label ou texbox que receba essas contas conforme forem sendo incluidas/excluidas e ao fechamento as "transfira" para o listbox
Resolvido Cupom não Fiscal Somatória após ultima linha ListBox
Concordo com voce já tinha pensado assim tambem, é melhor incluir no final, foi de grande ajuda a modificação do codigo que vc fez posso inserir no final do cupom por um botão vai ficar muito bom, a orientação que voces passam ajuda muito a pessoas como eu que sou iniciante em vba obrigado mesmo.
-
- Colaborador
- Mensagens: 10
- Registrado em: Ter Out 22, 2019 11:06 am
Re: Cupom não Fiscal Somatória após ultima linha ListBox
Boa tarde Galera,
Estou precisando de uma ajuda com programação VBA.
Tenho várias planilhas com mais de 15k linhas e preciso quebrar em bases de 500.
Tentei (sem sucesso) elaborar uma macro que me fizesse esse processo, de achar a última célula preenchida, recortar 500 linhas abaixo e colar em uma nova planilha.
alguém consegue me ajudar com isso?
Estou precisando de uma ajuda com programação VBA.
Tenho várias planilhas com mais de 15k linhas e preciso quebrar em bases de 500.
Tentei (sem sucesso) elaborar uma macro que me fizesse esse processo, de achar a última célula preenchida, recortar 500 linhas abaixo e colar em uma nova planilha.
alguém consegue me ajudar com isso?
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Cupom não Fiscal Somatória após ultima linha ListBox
Sua demanda e completamente diferente da demanda deste topico, para manter o forum organizado e propriciar a outros uma pesquisa coerente, favor abrir seu proprio tópico.
Obs.:Reveja tambem sua necessidade/demanda:
"... de achar a última célula preenchida, recortar 500 linhas abaixo..."
Creio eu que depois da ultima linha preenchida, já queé a ultima, não há nada mais. assim não obterá qualquer resultado.
Obs.:Reveja tambem sua necessidade/demanda:
"... de achar a última célula preenchida, recortar 500 linhas abaixo..."
Creio eu que depois da ultima linha preenchida, já queé a ultima, não há nada mais. assim não obterá qualquer resultado.
-
- Colaborador
- Mensagens: 10
- Registrado em: Ter Out 22, 2019 11:06 am
Re: Cupom não Fiscal Somatória após ultima linha ListBox
É isso mesmo Reinaldo.
desculpa por entrar no tópico alheio, sou novo por aqui e não sei mto bem como funciona para abrir um novo tópico.
Na vdd é pra achar a Primeira linha preenchida e não a última como havia dito antes.
mas eu vou tentar abrir um novo tópico.
Obrigado e desculpe mais uma vez.
desculpa por entrar no tópico alheio, sou novo por aqui e não sei mto bem como funciona para abrir um novo tópico.
Na vdd é pra achar a Primeira linha preenchida e não a última como havia dito antes.
mas eu vou tentar abrir um novo tópico.
Obrigado e desculpe mais uma vez.