Notifications
Clear all

Planilha de frete com erro

12 Posts
2 Usuários
0 Reactions
4,324 Visualizações
(@repinike)
Posts: 7
Active Member
Topic starter
 

Estou começando agora com excel e entende pouquíssimo mas como sou metido acabei por fazer um UserForm para fim de cálculo de frete, então fiz 3 planilhas de onde são tirados os dados para preenchimento do meu UserForm,então agora começaram a aparecer os problemas para mim, como podem na imagem tenho uma combobox onde são puxados os aeroportos, em outro textbox puxa direto a UF, no outro puxa a Taxa mínima e no outro textbox busca o valor da tarifa... isto tudo selecionando-se o aeroporto estes campos já são preenchidos, o q preciso é q ao buscar o aeroporto e depois de preencher o peso ele já faça o cálculo automático lá no textbox subtotal e ao alterar o peso ele mude o cálculo automaticamente, outro problema q está acontecendo é com o botão limpar quando clico nelee preencho novamente o peso ele dá erro, se alguém puder me ajudar nestes problemas eu agradeço.
Estou disponibilizando meu arquivo excel neste link caso necessite, segue link http://www.gramadoavesornamentais.com.br/fretes.xls

Imagem do Userform:

 
Postado : 26/07/2012 6:46 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O erro ao limpar refere-se ao fato de ao limpar as variaveis peso, total, etc.. são limpas com ""; porem no evento change do combo são multiplicados valor freteXpeso; então ao "limpar" utilize 0 (Zero) ao inves de "" ou substitua na conversão desses campos Cdbl por Val.
para que ao colocar/alterar o peso crie o envento on change do(s) campo(s) que deseja

Private Sub Peso1_Change()
Sub1 = CDbl(Tarifa1) * CDbl(Peso1)
End Sub

 
Postado : 27/07/2012 8:56 am
(@repinike)
Posts: 7
Active Member
Topic starter
 

Cara muito obrigado por responder... como indicado mudei no combobox o Cdbl por Val e funcionou certinho, só esqueci de um detalhe, tem como limpar o combobox deixando em branco tbm para um novo cálculo??
Desculpe, quanto a segunda parte não entendi onde devo colocar ou alterar este código, como falei sou mais metido do q entendido, teria como explicar melhor onde coloco ou altero este código q passou pois eu colei ele no código e apresentou:
"Erro em tempo de execução '13':
Tipos incompatíveis

Segue código q colei:

Private Sub Peso1_Change()
Sub1 = CDbl(Tarifa1) * CDbl(Peso1)
End Sub

Upei novamente a planilha caso alguém precise já com a parte de limpeza dos campos funcionando, e vou upando ela conforme for mexendo e funcionando.
Agradeço desde já a ajuda, segue link para baixar a planilha http://www.gramadoavesornamentais.com.br/fretes.xls

 
Postado : 27/07/2012 5:54 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja no anexo, se está conforme imagina;

 
Postado : 29/07/2012 12:38 pm
(@repinike)
Posts: 7
Active Member
Topic starter
 

Mais uma vez muito obrigado... o userform está grande parte como eu gostaria, ele só não está somando o total geral, teria como colocar pra q ele some o total geral e tbm ao se colocar ou modificar os valores de "Outros" e "Desconto" ele já faça o cálculo automático tbm?
Outro detalhe q é preencher as duas casas decimais quando o valor for redondo, por exemplo ele aparece somente 128 e nao 128,00... desculpe abusar mas como sou totalmente iniciante e necessito da planilha tenho q pedir a quem entende.

Muito obrigado desde já.

 
Postado : 29/07/2012 6:51 pm
(@repinike)
Posts: 7
Active Member
Topic starter
 

Tentei de diversas formas fazer com q aparecesse o total a pagar no final da planilha, mas infelizmente não tive sucesso, apenas coloquei 0,00 nos campos de Outros e Desconto para q saia valor zero, mas a fórmula do cálculo não obtive sucesso.
Então se puder me ajudar mais uma vez agradeço.

 
Postado : 01/08/2012 1:22 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Qual o critério para o total? À partir de qual valor começa a contar? Qual a sequencia dos campos?

 
Postado : 01/08/2012 1:26 pm
(@repinike)
Posts: 7
Active Member
Topic starter
 

Ele deve somar o total do frete + valor total das embalagens + GTA + Outros - Descontos. E se possível quando alterar o valor em algum destes campos o valor Total a Pagar altere automaticamente.

Então seria:

TotFrete + Embal + Gta + Outros - Desc = TotalG

Obrigado desde já

 
Postado : 01/08/2012 1:33 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja no anexo

 
Postado : 02/08/2012 8:58 am
(@repinike)
Posts: 7
Active Member
Topic starter
 

Queria agradecer a força, nunca iria conseguir fazer sem ajuda.

Obrigado mesmo, ficou show.

 
Postado : 02/08/2012 10:55 am
(@repinike)
Posts: 7
Active Member
Topic starter
 

No caso a planilha q foi feita com a ajuda do pessoal do site aqui me ajudou muito, só estou com uma dúvida... passei esta planilha q foi feita em excel 2003 a um amigo q tem uma versão mais recente do excel e na versão dele a planilha não abre, alguém poderia me dizer se pode ser problema de versões do excel e se teria como corrigir??

 
Postado : 02/04/2013 12:50 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pelo modelo que está no tópico anterior (fretes.zip) abre com o excel 2010 sem problemas, e pelos comandos/controles não é para existir qualquer conflito de versões.
Primeiro é preciso saber se o equipamento com a versão +nova, está com a segurança / macros habilitadas para o projeto, bem como se há alguma mensagem de erro retornando.

 
Postado : 02/04/2013 1:00 pm