Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Cupom não Fiscal Somatória após ultima linha ListBox

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

RobertoCM
Colaborador
Colaborador
Mensagens: 51
Registrado em: Sáb Set 28, 2019 9:57 am

Cupom não Fiscal Somatória após ultima linha ListBox

Mensagem por RobertoCM »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

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


RobertoCM
Colaborador
Colaborador
Mensagens: 51
Registrado em: Sáb Set 28, 2019 9:57 am

Re: Cupom não Fiscal Somatória após ultima linha ListBox

Mensagem por RobertoCM »

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?


RobertoCM
Colaborador
Colaborador
Mensagens: 51
Registrado em: Sáb Set 28, 2019 9:57 am

Eis o que está acontecendo

Mensagem por RobertoCM »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

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


RobertoCM
Colaborador
Colaborador
Mensagens: 51
Registrado em: Sáb Set 28, 2019 9:57 am

Resolvido Cupom não Fiscal Somatória após ultima linha ListBox

Mensagem por RobertoCM »

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.


lupalestina
Colaborador
Colaborador
Mensagens: 10
Registrado em: Ter Out 22, 2019 11:06 am

Re: Cupom não Fiscal Somatória após ultima linha ListBox

Mensagem por lupalestina »

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?


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

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.


lupalestina
Colaborador
Colaborador
Mensagens: 10
Registrado em: Ter Out 22, 2019 11:06 am

Re: Cupom não Fiscal Somatória após ultima linha ListBox

Mensagem por lupalestina »

É 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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder