Com oWS
FormulaRow =. Pilhas (. Rows.Count, “d”). Extremidade (- 4162). Fileira + 'xlUp 2
.range (“c” & FormulaRow &”: f " & FormulaRow). Fórmula = “=SUM (c2: c” & (FormulaRow - 2) & ") “
. Cells.Font.Size = 10
. Fileiras (1). Font.Bold = retificam
.UsedRange.EntireColumn.AutoFit
.range (“H: J”) .NumberFormat = “0.00%; [Vermelho] 0.00%”
.range (“C: F”) .NumberFormat = “#, ##0.00; [Vermelho] #, ##0.00”
Extremidade com
|