Señores, Saludos.

Tengo una hoja de excel llena con muchas formulas, como hago para aplicar la formula de REDONDEAR, a todas las formulas al mismo tiempo. Me explico la hoja tiene mas de 500 formulas y los resultados de esas formulas son números con decimales, ponerse a aplicar la formula de rendo a las 500 formulas una por una, no es muy agradable, ¿ habrá una forma de aplicar la formula de redondeo a todas las formulas de manera rápida, u otra forma que no sea con la formula de REDONDEO, OJO NO QUIERO DISMINUIR DECIMALES, QUIERO APROXIMAR O REDONDEAR

Muchas Gracias por sus ayudas

Oveth Camargo

Hola! Oveth.

Como no estoy seguro que orientarnos por el lado del "Redondeo en pantalla" pueda serte de utilidad, te diría que incorpores la siguiente macro a un módulo común:

Sub IntroducirRedondeo()
Dim myForm As Range, C As Range, tmp$
Application.Calculation = xlCalculationManual
Set myForm = Cells.SpecialCells(xlCellTypeFormulas, 23)

For Each C In myForm
  tmp = C.Formula
  C.Formula = "=round(" & Right(tmp, Len(tmp) - 1) & ", 2)"
Next C

Application.Calculation = xlCalculationAutomatic
MsgBox "Proceso terminado"
End Sub[/PHP]

¿Qué hace?... Agrega un redondeo con 2 dígitos a todas las fórmulas de la hoja activa.

¡Pruébala y nos comentas!, por favor.

Saludos, Cacho R.