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. :lol:

Abraços