code button

[larrymullenjr]

Hallo,

Ik zou graag een button in excel willen maken waarmee ik de waarde van een kolom met 25% zou willen verlagen.
Heeft iemand hiervoor de code voor in VB?

 

[Eugene]

Sub Verlagen()

On Error Resume Next

Dim c As Range

For Each c In Selection
c.Value = WorksheetFunction.Round(c.Value * 0.75, 2)
Next c

End Sub