Met oWS
FormulaRow =. Cellen (. Rows.Count, „D“). Eind (- 4162). Rij + 'xlUp 2
.range („c“ & FormulaRow &“: F " & FormulaRow). Formule = „=SUM (c2: c“ & (FormulaRow - 2) &“) „
. Cells.Font.Size = 10
. Rijen (1). Font.Bold = Waar
.UsedRange.EntireColumn.AutoFit
.range („H: J“) .NumberFormat = „0.00%; [Rood] 0.00%“
.range („C: F“) .NumberFormat = „#, ##0.00; [Rood] #, ##0.00“
Eind met
|