Página 2 de 4
Re: Módulo Orçamento
Enviado: Qua Mai 09, 2012 10:29 am
por Salete Rodrigues
Bom dia
Estou utilizando o projeto gentilmente cedido pelo colega e gostaria de pedir ajuda para incluir mais um campo userform que calculasse o acrescimo do IPI nos preços de compra dos produtos.
desde já agradeço
Re: Módulo Orçamento
Enviado: Qua Mai 09, 2012 4:32 pm
por LEANDRO ALVES
Salete,
Consideranto que a taxa de IPI seria um acréscimo sobre o preço de custo, basta você acrescentar um novo textbox para tal e basear-se na na rotina que calcula o acréscimo disponível no módulo Orçamento. Se não me engano a rotina chama-se: Calc_Desc_Acresc
Basicamente é isto.
Um Abraço
Re: Módulo Orçamento
Enviado: Qua Mai 09, 2012 4:58 pm
por LEANDRO ALVES
Em tempo,
A rotina pode ser a mesma usada na margem de lucro.
Abraços
Re: Módulo Orçamento
Enviado: Qui Mai 10, 2012 10:41 am
por Salete Rodrigues
bom dia, Sr Leandro
Obrigada pelo pronto atendimento a minha solicitação, mas tentei fazer o sugerido e nao esta funcionando, caso possa me dar mais alguma dica, agradeço.
obrigada
Re: Módulo Orçamento
Enviado: Qui Mai 10, 2012 12:36 pm
por LEANDRO ALVES
Bom Dia Salete,
Você poderia incluir um textbox (txt_IPI) entre o cuto unitário e entre o custo total,
depois é só inserir o seguinte código:
Código: Selecionar todos
Public custoUnit_IPI As Double
Private Sub txt_IPI_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtQuantidade <> Empty And txtCustoUnitario <> Empty And txt_IPI <> Empty Then
a = Me.txtQuantidade
b = Me.txtCustoUnitario
c = Me.txt_IPI
txtCustoUnitario = Format(txtCustoUnitario, "Currency")
'txtCustoTotal = Format((a * b), "Currency")
custoUnit_IPI = b + (b * c / 100)
txtCustoTotal = Format((a * custoUnit_IPI), "Currency")
Me.txt_IPI = Format(Me.txt_IPI, "0.00")
End If
End Sub
Assim você obetrá o custo total + IPI
O resto é só adptações.
Abraços
Re: Módulo Orçamento
Enviado: Sáb Jun 16, 2012 10:09 am
por ThiagoPedro
Eu baixei a do link
http://www.tomasvasquez.com.br/blog/mic ... -excel-vba
Mas quando eu abro dá o erro: Não foi possível carregar um objeto porque ele não está(ão) disponível(is) nesta máquina.
Re: Módulo Orçamento
Enviado: Ter Jul 24, 2012 10:11 pm
por revolutionjtg
Se não for pedir muito tem como vc separar o banco de dados.
Re: Módulo Orçamento
Enviado: Ter Jul 31, 2012 4:02 pm
por Arthur maack
Leandro,
Excelente modelo. Muito bom mesmo.
Arthur.
Re: Módulo Orçamento não abre
Enviado: Qui Ago 02, 2012 3:11 pm
por jcarloslopesn
Boa tarde,
Baixei a planilha orçamento mais quando tento abrir esta dando a seguinte mensagem.
Object library invalid or contains references to object definitions that could not be found.
Qual seria o motivo desta mensagem.
Atenciosamente.
JC
Re: Módulo Orçamento
Enviado: Qui Ago 02, 2012 4:37 pm
por LEANDRO ALVES
JC,
só assim fica difícil de identificar o problema. Eu presumo que esteja faltando alguma biblioteca no seu computadora ou talvez você tenha que acrecentá-la manualmente.
Feliz o Tomás que criou o seu Modelo de Cadastro somente com a biblioteca padrão do VBA.
Abraços