Waarde in kolommen automatisch laten afronden

[jv345]

Hallo,

Ik wil graag dat de ingevulde getallen in bijv de kolommen 5 t/m 9 automatsch afgerond worden naar beneden.
Voorbeeld: wordt er 125 ingevuld dan moet dit 100 worden, wordt er 151 ingevuld dan moet het 200 worden.
De formule = afronden(waarde;-2) moet van kracht worden. Het lastige is echter dat deze formule de waarde direct in de formule wil hebben.
Kan dit opgelost worden in een macro?

 

[Roncancio]

Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) = True And Right(Target, 2) <> "00" Then
    If Target.Column >= 5 And Target.Column <= 9 Then
        Target.Formula = WorksheetFunction.Round(Target, -2)
    End If
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[jv345]

Roncancio,

Briljant. Het werkt als een speer.
Mijn hartelijke dank.