Con el oWS
FormulaRow =. Células (. Rows.Count, “d”). Extremo (- 4162). Fila + 'xlUp 2
.range (“c” y FormulaRow y”: f " y FormulaRow). Fórmula = “=SUM (c2: c” y (FormulaRow - 2) y ") “
. Cells.Font.Size = 10
. Filas (1).Font.Bold = verdad
.UsedRange.EntireColumn.AutoFit
.range (“H: J”) .NumberFormat = “0.00%; [Rojo] 0.00%”
.range (“C: F”) .NumberFormat = “#, ##0.00; [Rojo] #, ##0.00”
Extremo con
|