Notifications
Clear all

Fazer Cálculos de Acordo com Categoria

15 Posts
3 Usuários
0 Reactions
2,167 Visualizações
 Reef
(@reef)
Posts: 30
Eminent Member
Topic starter
 

Boas amigos,

Eu estou fazendo um projeto grande, porém para não dificultar eu criei um arquivo apenas com a dúvida que tenho para não complicar muito.

Eu preciso de uma código(fórmula) para calcular essa parte do projeto que segue em Anexo.

Eu tenho uma "Planilha CATEGORIAS", nela eu informo a categoria e o valor para determinado KM, como abaixo.

Prefeito

até 100 km = 250 reais
de 101 a 300 km = 500 reais
de 301 a 500 km = 750 reais
acima de 500km - 1.000 reais

e também valores para mais dois tipos de categorias...

e campos no formulário "KM" do tipo textbox, "Categoria" do tipo combobox, "Valor Unitário" do tipo textbox, "Quantidade" do tipo textbox, "Valor total" do tipo textbox.

O que preciso é:

Que ao informar o "KM" e selecionar a "Categoria" que o campo "Valor Unitário" informe o valor unitário referente ao KM e Categoria que informei, e que Quando digitar a "Quantidade" o campo "Valor Total" informe a soma de "Quantidade + Valor Unit."

Exemplo.

Informo o KM (350), Categoria(Prefeito), então Valor Unitário(750,00), e informo a Quantidade(2) e obtenho a soma em Valor Total(1.500)

Será que entenderam ? :D

 
Postado : 27/03/2016 9:19 am
 Reef
(@reef)
Posts: 30
Eminent Member
Topic starter
 

O cálculo do valor Total eu consegui fazendo direto como achei em um artigo na internet.

Fiz

Private Sub tbx_total_Enter()

tbx_total.Text = Val(tbx_unit.Text) * Val(tbx_qtd.Text)

End Sub

E ele me informou na tbx_total o valor unitário multiplicado pela quantidade. Porém ainda não encontrei nenhuma informação que me resolvesse a primeira parte do problema.

Que é ao informar um número de KM e a categoria e ele me retorna o valor unitário buscando o mesmo na planilha Categoria.

Por exemplo, se o Valor que eu informar em KM for entre 0 e 100, e a categoria for prefeito, ele vai lá e informa no valor unitário o valor que tá na planilha categoria na coluna até 100 km. Se o valor que eu informar em KM estiver entre 101 e 300 kM, ele vai e me informa o valor que tá na coluna entre 101 e 300 KM e assim sucessivamente.

Se tiver um mestre da matemática dos códigos aí eu agradeço.

 
Postado : 27/03/2016 3:17 pm
(@tsa-xlsx)
Posts: 55
Trusted Member
 

Olá, amigo,

Veja a planilha em anexo.

Creio que atende ao que você pediu.

Se não atender, talvez você possa ajustar ao que pretende, ou então, volta ai que a gente te ajuda.

Abs.

Abs.
Espero ter ajudado.

Todos que ajudaram ou tentaram ajudar estão com boa vontade fazendo isso de graça.
Por isso, seja educado, ajude-os a te ajudar, e sempre clique na mãozinha para agradecer.

 
Postado : 27/03/2016 6:00 pm
 Reef
(@reef)
Posts: 30
Eminent Member
Topic starter
 

Tentei editar a última resposta mais não consegui, por isso estou fazendo uma nova resposta.

Se por acaso for difícil da forma que falei, resolve de outra forma que não precisa de cálculo.

Seria um ListBox em outro UserForm, no UserForm principal tem um Botão na frente do TextBox Categoria onde clicando abre um outro UserForm com esse ListBox onde tem as informações da Planilha CATEGORIAS, e quando eu der um Double Click no item do ListBox ele fecha UserForm da ListBox e retorna ao UserForm principal com os valores para os dois campos (Categoria) e (Valor Unitário).

Eu já coloquei o Código que puxa os valores da Planilha Cadastro para dentro da ListBox.

Segue em anexo o arquivo de Teste.

 
Postado : 27/03/2016 6:07 pm
 Reef
(@reef)
Posts: 30
Eminent Member
Topic starter
 

Olá, amigo,

Veja a planilha em anexo.

Creio que atende ao que você pediu.

Se não atender, talvez você possa ajustar ao que pretende, ou então, volta ai que a gente te ajuda.

Abs.

Muito bom amigo, é exatamente o que eu queria.

Agora preciso ver uma restrição enquanto a selecionar a categoria sem preencher o KM, pois da um erro quando seleciona a categoria sem antes por o KM. Mas acho que isso eu dou conta.

Muito obrigado.

 
Postado : 27/03/2016 6:16 pm
(@tsa-xlsx)
Posts: 55
Trusted Member
 

Este tópico é continuação do outro que está aqui:
viewtopic.php?f=10&t=19685

Criei o tópico para responder ao Reef, que me fez um pedido por MP, para incluir um checkbox na planilha, e também aproveitei para ajudar com uma questão que ele levantou no outro tópico.

Não respondi lá no tópico porque está trancado, mas, se a moderação julgar por certo, pode juntar os 2 tópicos.

Reef, segue a planilha em anexo.

Abs

Abs.
Espero ter ajudado.

Todos que ajudaram ou tentaram ajudar estão com boa vontade fazendo isso de graça.
Por isso, seja educado, ajude-os a te ajudar, e sempre clique na mãozinha para agradecer.

 
Postado : 28/03/2016 4:03 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Tsa e Reef

Eu fundi os 2 tópicos, quando for necessário reabrir algum tópico, basta enviar uma MP para um dos moderadores.

Acessem --> viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/03/2016 5:21 pm
 Reef
(@reef)
Posts: 30
Eminent Member
Topic starter
 

Este tópico é continuação do outro que está aqui:
viewtopic.php?f=10&t=19685

Criei o tópico para responder ao Reef, que me fez um pedido por MP, para incluir um checkbox na planilha, e também aproveitei para ajudar com uma questão que ele levantou no outro tópico.

Não respondi lá no tópico porque está trancado, mas, se a moderação julgar por certo, pode juntar os 2 tópicos.

Reef, segue a planilha em anexo.

Abs

Você é um gênio, te amo cara!

Dê uma olhada nesse outro tópico, onde tento resolver outro problema. Se puder ajudar nesse também agradeço desde já!

http://www.planilhando.com.br/forum/viewtopic.php?f=23&t=19696

 
Postado : 28/03/2016 6:51 pm
 Reef
(@reef)
Posts: 30
Eminent Member
Topic starter
 

Uma coisa que vi aqui agora quando implementei o CheckBox no projeto foi que quando eu desmarco o valor não retorna pro original.

Tem como resolver isso ?

 
Postado : 28/03/2016 7:29 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Reef

Pelo jeito você não prestou atenção na mensagem que postei anteriormente, onde eu disse para você fazer testes antes de marcar o tópico como Resolvido.

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/03/2016 9:49 am
 Reef
(@reef)
Posts: 30
Eminent Member
Topic starter
 

Patropi

Me desculpe amigo, isso não é um erro, na verdade o que o colega fez foi exatamente o que eu pedi, só que ao implementar no meu projeto eu imaginei que o cliente poderia falar, "a não vai ser mais meia valor, vai ser inteiro, daí ficaria mais fácil eu criar um botão pra ele limpar todo o documento que ele fez e alterar ou simplesmente desmarcar a caixa?", diante da nova necessidade, eu pedi para que se possível fosse implementado o retorno do processo da CheckBox.

Se perceber no meu último pedido a ele, eu peço apenas uma checkbox para dividir o valor, não peço para retornar ao valor original. Para não criar um novo tópico pedindo um complemento ao código atual eu achei melhor comentar no mesmo post já que o mesmo ainda se encontrava aberto.

Enfim, peço desculpas caso infringi alguma regra, não foi minha intenção.

 
Postado : 29/03/2016 10:19 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Reef

Vou te explicar o que ocorreu.

O moderador não tem tempo para ler todos os tópicos, portanto, quando você marca como Resolvido, imediatamente trancamos o tópico.

Como você já havia marcado como Resolvido, mesmo dando tempo de você postar a tua mensagem, logo após, algum moderador passou e trancou o tópico .
Quando eu li a tua mensagem ele já se encontrava trancado.
Você deveria ter clicado novamente no Vezinho para desmarcar o tópico como Resolvido, antes dele ser trancado.

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/03/2016 10:52 am
(@tsa-xlsx)
Posts: 55
Trusted Member
 

Amigo, desculpe a demora, mas veja agora.

Troquei o checkbox por 2 option buttons.

Abs

Abs.
Espero ter ajudado.

Todos que ajudaram ou tentaram ajudar estão com boa vontade fazendo isso de graça.
Por isso, seja educado, ajude-os a te ajudar, e sempre clique na mãozinha para agradecer.

 
Postado : 02/04/2016 10:52 pm
 Reef
(@reef)
Posts: 30
Eminent Member
Topic starter
 

Ficou bom, outra coisa, da um erro caso a pessoa delete por acidente o "KM" ou a "Quantidade" e clique em meia, inteira ou outro campo.

Da um erro de incompatibilidade.

Se pegar esse arquivo que me mandou e testar vai ver melhor o erro.

Será que tem algum código que trate esse erro ?

 
Postado : 07/04/2016 6:40 pm
 Reef
(@reef)
Posts: 30
Eminent Member
Topic starter
 

Eu percebi que em dois lugares você utilizou o "On Error Resume Next", então eu coloquei ele nos dois outros lugares que estava dando o erro e resolveu.

Obrigado!

 
Postado : 07/04/2016 7:46 pm