Página 1 de 1

Deduzir um valor mensal e atualizar.

Enviado: 17 Fev 2017 às 12:40
por GENECI
Boa tarde!

Pergunta posta em outro fórum e não obtida a resposta.

Sua ajuda é necessária para o problema apresentado.

Uma conta corrente do banco X, está com o valor 4.600,00 na célula B1.

O desconto mensal de 19,99 ref. taxa manutenção que está na célula D.

Como elaborar um método no VBA, que todo dia 14 de cada mês faça o desconto, e atualize o valor da célula B1, automaticamente no dia 14 de cada mês.

Para o esse exemplo: No dia 14/03/2017 o valor da célula B1, muda para 4.580,01.

Dia 14/04/2017 o valor da célula B1 muda para 4.561,02.

E assim segue...

Muito obrigado.

GENECI.

Deduzir um valor mensal e atualizar.

Enviado: 17 Fev 2017 às 20:14
por mdiego
Precisa mesmo de vba ou pode ser fórmula? Se for fórmula talvez essa atenda.
É só copiar e colar na célula B1. Essa função só tem validade dentro no ano. Quando for no dia 17/03/2017 o valor vai para 4600-19,99 e assim em diante.

=SEERRO(4600-SE(DIA(HOJE())=14;MÊS(HOJE());"")*D1;4600-MÊS(FIMMÊS(HOJE();-1))*D1)+D1

Sds,

Re: Deduzir um valor mensal e atualizar.

Enviado: 18 Fev 2017 às 08:49
por osvaldomp
Alternativa:

em qualquer célula vazia
Código: Selecionar todos
=B1-DATADIF("14/2/2017";HOJE();"m")*D1
ou se preferir colocar a fórmula em B1, substitua B1 na fórmula pelo valor 4.600

obs. o resultado correto em 14/4/17 é 4.560,02

Deduzir um valor mensal e atualizar.

Enviado: 18 Fev 2017 às 09:47
por mdiego
Muito boa solução osvaldo.