Este fórum está sendo desativado

[lecipriano]

Galera,
Preciso da ajuda de vocês para desenvolver ou corrigir minha macro para obter um percentual de desconto.

O cálculo é o seguinte:
- Eu tenho um preço de tabela e um preço sugerido, junto a este preço de tabela existem vários fatores, como fretes, acréscimos, etc.
Para que o preço sugerido seja igual ao preço calculado na tabela, será necessário calcular um desconto (%), este desconto está sendo calculado através da seguinte macro:

If Range("AQ4") <> 0 Then
'...Cálculando 1'
Range("W4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("AR4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("AV4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("L4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

Explicando a Macro acima:

* Coluna (W4) - Copia os valores do preço calculado para outra coluna (AR);
* Neste momento terá uma fórmula para calcular a diferença entre o preço sugerido e o preço calculado, esta diferença será lançada então na planilha em forma de percentual (L4)
* Eu repito este cálculo por 50 vezes ou até que todos os valores estejam zerados.

PROBLEMA

O problema é que alguns valores não estão zerando, será que alguém me ajudaria a decifrar este cálculo?

Obrigado.

[alexandrevba]

Bom dia!!

Eu entendi sua macro (apesar de está poluída), mas o fato de zerar você vai me fazer entender, me parece que qualquer valor que posto nas colunas que recebe a ação da macro vai ter dar zero, você pode confirmar isso?

Do contrario sua macro está apenas fazendo o que tem que fazer.


Att

[lecipriano]

Olá, bom dia
Não entendo muito de macro, mas foi a única maneira que encontrei para realizar este cálculo, pois tenho que copiar e colar os valores várias vezes até zerar a coluna (Y).
Os valores devem ser inseridos na coluna L (percentual de desconto) até a coluna Y zerar.
Manualmente seria assim...
Exemplo:
Preço calculado: R$ 40,00 coluna (W)
Preço sugerido: R$ 50,00 coluna (X)
Diferença: R$ 10,0 coluna (Y)

Fórmula: Preço Sugerido (/) Preço calculado (-) 1
% Desconto = (((R$ 50,00 / R$ 40,00)-1))*100
% Desconto = 0,25 * 100
% Desconto= 25%

Faço este mesmo cálculo várias vezes até zerar, mas alguns valores não estão zerando.

Obrigado pelo interesse e pelo apoio.

[Reinaldo]

Não é muito minha praia;mas creio que ao utilizar números com tantas casas depois da virgula, faze-los zerar é quase uma missão impossível; pois muitos se tornarao em uma dizima periódica.
Não é possível utilizar somente com duas casas decimais? Assim deverá ser mais simples

[lecipriano]

Olá, Reinaldo
Pode-se utilizar sim duas casas, o importante é que a coluna W (Preço Calculado) seja igual a coluna X (Preço sugerido) ou pelo menos seja igual até atingir duas casas.
Quando eu falo em zerar seria a diferença entre estes preços seja igual a 0 zero, mas a diferença pode ser por exemplo 0,000055646.
Obrigado pelo apoio.