Makro - multiplisere og runde av til nærmeste 0,5

[epder]

Hei.

 

Jeg ønsker en makro for å multiplisere en celle med en gitt verdi.

Når denne verdien er multiplisert ønsker jeg at verdien som er kommet ut rundes av til nærmeste 0,5.

 

Jeg har fått til multipliseringen med denne koden, men sliter med avruningen.

 

CODE

Sub Multiplisere()
Dim x As Double
x = Range("J4").Value

x = x * 1.025
Range("J4").Value = x
End Sub

 

Er det noen kloke hoder som kunne hjulpet meg med en kode for avrundingen?

[Harald Staff]

Det er flere muligheteter, her er en av dem

 

x = CLng(x * 1.025 * 2) / 2

 

Beste hilsen Harald