Jeg sidder som entreprenør, og har et langt regne ark.

Det omhandler mængdeopmåling, så jeg kan sætte priser pr. m² eller lbm eller stk osv.

Når jeg får nogle mængder ud i fx. 31,2 m², vil jeg gerne automatisk runde op til 32. Dette er jeg klar over hvordan jeg gør, men det er lidt op ad bakke at gentage fx. fra =F23*F24-F25/2 (bare for at tage et eksempel) til =RUND.OP(F23*F24-F25/2;0). Lad os sige at jeg skal gøre det for et projekt på 100.000.000 kr, da er der virkelig mange felter.

Det skal siges at formlerne ikke er ens i alle celler, ellers ville det jo være nemt. 

Dét jeg skal have det til, er at gå ind i cellerne, tilføje RUND.OP(Gammel formel;0) for den kopier bare det jeg gjorde da jeg optog makroen, selvom jeg ikke desideret rørte noget inde i formlen.

Jeg er godt klar over at jeg kan lave et nyt felt, men synes ikke at det virker proffessionelt at have 2 felter ved siden af hinanden, som omhandler det samme.

På forhånd tak!

 

Sub RundOp()
Selection.SpecialCells(xlCellTypeFormulas, 1).Select
For Each c In Selection
form = Replace(c.Formula, "=", "")
c.Formula = "=ROUNDUP(" & form & ",0)"
Next
End Sub