Limitar porcentagem de desconto por VBA

Question

Bom dia a todos...

Tenho duas c&eacute;lulas na planilha onde s&atilde;o inseridas o percentual de desconto. Eu preciso limitar o desconto m&aacute;ximo de desconto. A soma dessas duas c&eacute;lulas (desconto 01 + desconto 02) n&atilde;o pode ultrapassar o valor de 30%. n&atilde;o estou conseguindo. Se eu der um desconto de 30% o VBA interpreta como fora do limite especificado, mas eu coloquei se a soma for maior que 30% n&atilde;o maior ou igual.

Preciso tamb&eacute;m, fixar a data o dia do vencimento de acordo com a c&eacute;lula selecionada, dias 05 ou 10 de cada m&ecirc;s. Se a op&ccedil;&atilde;o for dia 05, etn&atilde;o, vai mudar o m&ecirc;s e o ano se for o casa, mas o dia, precisa ser sempre o mesmo.

Sei que o VBA n&atilde;o aceita virgula. Na execu&ccedil;&atilde;o passo a passo, o valor da vari&aacute;vel C &eacute; 0,3 (com v&iacute;rgula). N&atilde;o estou conseguindo resolver...

Em anexo a planilha com mais detalhes.

Gratid&atilde;o a quem ajudar

Utilizando a fun&ccedil;&atilde;o DataM com a fun&ccedil;&atilde;o LIN, eu consegui mudar m&ecirc;s e ano, mas o dia, eu n&atilde;o consegui fixar os dias 05 ou 10 de cada m&ecirc;s. Da forma que fiz, o dia das parcelas, est&aacute; sendo a data do or&ccedil;amento.

segue nova planilha com a f&oacute;rmula utilizada, pode ser &uacute;til para algu&eacute;m

Answer

Boa tarde [USER=669]@Playboy[/USER]

Eu fiz com f&oacute;rmulas, pode ter at&eacute; 12 parcelas.

Para testar clique no dia 10 ou digite outro n&uacute;mero de parcelas.

D&ecirc; retorno.

[]s

Answer

[QUOTE=P@tropi, post: 8483517, member: 743236]Boa tarde [USER=669]@Playboy[/USER]

Eu fiz com f&oacute;rmulas, pode ter at&eacute; 12 parcelas.

Para testar clique no dia 10 ou digite outro n&uacute;mero de parcelas.

D&ecirc; retorno.

[]s[/QUOTE]

[USER=743236]@P@tropi[/USER], Perfeito... Maravilha... s&oacute; gratid&atilde;o...

S&oacute; aguardar agora, a ajuda com a porcentagem,,, mais uma vez, muit&iacute;ssimo obrigdao.

Answer

Bom dia, [USER=669]@Playboy[/USER]

Para falar a verdade eu at&eacute; esqueci de ver essa parte da porcentagem, mas &eacute; simples, basta acrescentar a condi&ccedil;&atilde;o na tua f&oacute;rmula.

Substitua a formula da c&eacute;lula E9 por est&aacute;:
=SE(SOMA(E2-(E2*E5))-(E2*E7)

Answer

[QUOTE=P@tropi, post: 8483609, member: 743236]Bom dia, [USER=669]@Playboy[/USER]

Para falar a verdade eu at&eacute; esqueci de ver essa parte da porcentagem, mas &eacute; simples, basta acrescentar a condi&ccedil;&atilde;o na tua f&oacute;rmula.

Substitua a formula da c&eacute;lula E9 por est&aacute;:
=SE(SOMA(E2-(E2*E5))-(E2*E7)

Answer

Bom dia, [USER=669]@Playboy[/USER]

Veja como funciona, com aviso e tudo sem utilizar VBA.
Sei que voc&ecirc; quer com VBA, mas pode ser que ajude a outras pessoas.

[]s

Answer

[QUOTE=P@tropi, post: 8483783, member: 743236]Bom dia, [USER=669]@Playboy[/USER]

Veja como funciona, com aviso e tudo sem utilizar VBA.
Sei que voc&ecirc; quer com VBA, mas pode ser que ajude a outras pessoas.

[]s[/QUOTE]

Show de bola... voc&ecirc; &eacute; o cara... mas veja bem, a soma dos dois descontos, n&atilde;o pode ultrapassar os 30%, mas dessa forma, n&atilde;o funciona adequadamente por que ela checa apenas o desconto 01. Se eu colocar no Desconto 02 0% de desconto, eu tenho toda liberdade de colocar 100% no desconto 01, entendeu?

Muito obrigado pela ajuda...

Answer

olha s&oacute; ....  faz assim ....  no primeiro desconto vc coloca a condicional < 30 e no segundo desconto vc coloca a condicional 30 - primeiro_desconto !!!

Answer

[USER=669]@Playboy[/USER]

Voc&ecirc; que est&aacute; por dentro do assunto vai testando e dando retorno.
Agora inclu&iacute; uma valida&ccedil;&atilde;o na primeira tamb&eacute;m.

[]s

Answer

[QUOTE=P@tropi, post: 8483863, member: 743236][USER=669]@Playboy[/USER]

Voc&ecirc; que est&aacute; por dentro do assunto vai testando e dando retorno.
Agora inclu&iacute; uma valida&ccedil;&atilde;o na primeira tamb&eacute;m.

[]s[/QUOTE]

Boa tarde [USER=743236]@P@tropi[/USER].. Resolvido. Extamente da forma como necessito. Agora, gostaria de mais uma coisa. ao inv&eacute;s de aparecer parcela 1, parcela 2, gostaria que o aparecesse parcela 01, parcela 02... gostaria que me explicasse como fez para checar os campos descontos, n&atilde;o encontrei onde est&aacute; a f&oacute;rumula. Gostaria de saber tamb&eacute;m, como fez para exibir essa mensagem e se tem como personalizar.

gratid&atilde;o [USER=743236]@P@tropi[/USER]

[QUOTE=Mauriciodez, post: 8483851, member: 832313]olha s&oacute; ....  faz assim ....  no primeiro desconto vc coloca a condicional < 30 e no segundo desconto vc coloca a condicional 30 - primeiro_desconto !!![/QUOTE]

[USER=832313]@Mauriciodez[/USER], a solu&ccedil;&atilde;o do [USER=743236]@P@tropi[/USER] foi prefeita, mas, agrade&ccedil;o a boa vontade e gostaria que me mostrasse na pr&aacute;tica como seria, por que n&atilde;o entendi. Gostaria de ver uma outra forma de fazer...

Answer

[QUOTE=Playboy, post: 8484029, member: 669][USER=832313]@Mauriciodez[/USER], a solu&ccedil;&atilde;o do [USER=743236]@P@tropi[/USER] foi prefeita, mas, agrade&ccedil;o a boa vontade e gostaria que me mostrasse na pr&aacute;tica como seria, por que n&atilde;o entendi. Gostaria de ver uma outra forma de fazer...[/QUOTE]

eu estou sem office aqui mas &eacute; o seguinte ...  na c&eacute;lula do primeiro desconto vc insere uma valida&ccedil;&atilde;o de dados, decimal, estar entre, 0,01 e 30 ...  na c&eacute;lula do segundo desconto vc insere uma valida&ccedil;&atilde;o de dados, decimal, estar entre 0 e =30-[celula-do-primeiro-desconto] ... ( as mensagens de entrada e erro s&atilde;o opcionais ). https://support.microsoft.com/pt-br/office/aplicar-valida%C3%A7%C3%A3o-de-dados-a-c%C3%A9lulas-29fecbcc-d1b9-42c1-9d76-eff3ce5f7249

por VBA &eacute; o mesmo esquema, s&oacute; que l&aacute; vc faz a condi&ccedil;&atilde;o dentro de um if !!!

OBS: &eacute; muito prov&aacute;vel do [USER=8126]@patropi[/USER] ter feito dessa maneira !!!

Answer

Boa noite [USER=669]@Playboy[/USER]

Para ver como eu fiz as valida&ccedil;&otilde;es ==> com o cursor na c&eacute;lula E5 ==> Guia Dados ==> Valida&ccedil;&atilde;o de dados ==> veja as abas configura&ccedil;&otilde;es, onde tem a f&oacute;rmula que eu usei e a Aba ==> Alerta de erro, onde tem o alerta que eu digitei.

Segue outro arquivo com a inser&ccedil;&atilde;o de um zero antes do n&uacute;mero de parcelas.

[]s

Ferramentas

Mover Tópico