Notifications
Clear all

REGISTRAR VALORES ADICIONAIS

7 Posts
2 Usuários
0 Reactions
1,399 Visualizações
(@zoomg1)
Posts: 11
Active Member
Topic starter
 

Olá Pessoal.
Sou novo no forum, qualquer coisa que estiver fazendo errado me desculpem ok.
Venho pedir a ajuda dos mais capacitados para poder resolver uma questão.
Estou elaborando uma planilha para controle de estacionamento, e ja fiz a macro para registrar entrada de carros e ao mesmo tempo fazer um cadastro, apenas para saber se aquele veiculo ja entrou alguma vez no estabelecimento.

Até ai Ok.
A questão é que eu queria registrar na mesma aba da entrada o horário de saída do veiculo, ou seja, achar a linha que contem o código do cupom que foi gerado ao registrar entrada e editar apenas o campo do horario de saida para posteriormente fazer o calculo do valor da estadia.

Sou muito leigo em VBA e tudo o que fiz até agora foi fuçando somente. Então nao reparem se tiver coisa desnecessaria ou ate redundante em meus codigos que fiz ate agora.

Espero ter sido claro.
Agradeço a Ajuda de todos.

 
Postado : 24/08/2016 9:54 am
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa tarde Zoomg1,

Em anexo está duas macros que criei, uma para registrar Entrada (melhorei o que você montou) e outra que registra a Saída.

A que registra a Saída está no Módulo 3, se você quiser entender como fiz o calculo do preço você pode ver a "Tabela Preços".

Uma coisa que não entendi é o funcionamento do Código do Cupom.

Teste a planilha e de retorno.

att,

 
Postado : 24/08/2016 1:06 pm
(@zoomg1)
Posts: 11
Active Member
Topic starter
 

Olá Brunoxro.
Ficou Muito boa. Obrigado.
Acho que esqueci de mencionar que ainda não esta pronta a planilha, ainda falta colocar alguns processos que esqueci de mencionar.

o Caso do código do cupom é o seguinte. Na minha macro original (muito ruim kkk), eu pegava com a macro o registro do cupom que estava em proximo codigo na aba do ticket de estacionamento e usava para registrar o carro e ao final da macro eu jogava esse codigo para a celula dentro do ticket. Não sei se vc reparou mas abaixo dele, fora da area de impressão existe a linha ultimo codigo e a linha proximo codigo. A linha ultimo codigo pega o que esta no ticket e a proximo codigo soma mais um. Assim vai gerando codigos infinitos pois a cada carro que entra pega o ultimo codigo e lança no ticket fazendo a celula do proximo codigo gerais mais um.
Ok.

Agora algo que notei é que eu tinha arrumado uma gambiarra para poder verificar se tinha duplicatas do carro na aba cadastros, verificando pela placa e preenchendo os tres ultimos campos da linha com X caso fosse o primeiro cadastro da placa, e se caso ja houvesse o carro (placa) excluía a linha inteira . Da pra fazer isso nesse codigo que vc montou?

Eu ainda quero ver se arranjo jeito de integrar um botao para imprimir o ticket para entregar para o cliente e outro para imprimir uma especie de nota de serviço, também para o cliente, por isso nao ha necessidade de demonstrar o valor na pagina inicial.
A minha intenção é manter o inicio bem minimalista.

Sei que é muita coisa, portanto ja agradeço o que fez. Mesmo que nao possa me ajudar vou tentando aqui com o que me passou que ja foi muita coisa. Obrigado.

 
Postado : 24/08/2016 1:56 pm
(@zoomg1)
Posts: 11
Active Member
Topic starter
 

Como podem ver eu montei o meu codigo praticamente usando o gravador de macros do excel, apenas ajustando para o que eu queria dentro do vba. A minha intenção também é aprender um pouco a mais de vba, ja que é o que me falta em excel. VLW a todos

 
Postado : 25/08/2016 5:44 am
(@zoomg1)
Posts: 11
Active Member
Topic starter
 

Boa tarde Zoomg1,

Em anexo está duas macros que criei, uma para registrar Entrada (melhorei o que você montou) e outra que registra a Saída.

A que registra a Saída está no Módulo 3, se você quiser entender como fiz o calculo do preço você pode ver a "Tabela Preços".

Uma coisa que não entendi é o funcionamento do Código do Cupom.

Teste a planilha e de retorno.

att,

Pode me tirar uma duvida? No registro da hora de saida, como eu faria para pegar a data e hora atual ao inves de so a hora? Como se fosse a função agora. Vlw

 
Postado : 25/08/2016 9:01 am
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa tarde Zoomg1,

Sobre a verificação de duplicatas na planilha (aba) Cadastro eu coloquei o código de volta (módulo 2).

Outro coisa importante que adicionei nessa versão e a contagem total de horas caso atravesse o dia, a versão anterior só contava horas de maneira correta dentro de um mesmo, o código que adicionei vai calcular o valor mesmo que o carro fique mais de um dia dentro do estacionamento. (De uma olhada no módulo 3)

Para para jogar a data e hora em uma célula use a função Now(), Na linha 36 do módulo 2 você pode ver o uso.

Eu não alterei a parte do Código do Cupom. Se você quer criar uma macro para impressão, recomendo que deixe para o final do montagem, quando já tiver tudo o que deseja já pronto.

Sobre aprender VBA, assistir aulas no Youtube pode ser uma boa opção para começar: https://www.youtube.com/results?search_ ... +vba+aulas

att,

 
Postado : 26/08/2016 1:47 pm
(@zoomg1)
Posts: 11
Active Member
Topic starter
 

Bom dia Brunoxro.
Muito Obrigado. Ajudou muito. Vlw mxm.

 
Postado : 29/08/2016 5:40 am