Abordagem alternativa:
Sub AplicarDesconto()
[H1] = 1 - [H1]: [H1].Copy
[C:C].SpecialCells(xlCellTypeConstants, xlNumbers).PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
[H1] = 1 - [H1]
Application.CutCopyMode = False
End Sub
Postado : 09/10/2020 4:24 pm