Med oWS
FormulaRow =. Celler (. Rows.Count, ”D”). Avsluta (- 4162). Ro + 'xlUp 2
.range (”c” & FormulaRow &”: f " & FormulaRow). Formel = ”=SUM (c2: c” & (FormulaRow - 2) &”) ”,
. Cells.Font.Size = 10
. Ror (1). Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range (”H: J”) .NumberFormat = ”0.00%; [Röd] 0.00%”,
.range (”C: F”) .NumberFormat = ”nr., ##0.00; [Rött] nr., ##0.00”,
Avsluta med
|